Gjøre en operasjon avhengig av hvilken tegn

[Degeim]

Hvordan kan jeg få programmet mitt til å gjøre en operasjon avhengig av hvilke tegn btrukeren har skrevet inn? Jeg vil gjøre en ting hvis det er a, en hvis

det er b, og en hvis det ikke er noen av de.

[Moskus]

Du kan jo bruke if-setninger

if txtTextbox.Text = "a" Then
       ' Do operaton
elseif txtTextbox.Text = "b" Then
       ' Do other operation
else 
       ' Do yet another operation
end if

 

Case select er også en mulighet.

Endret 18. april 2005 av moskus

[Degeim]

Oisann, unnskyld. det der kunne jeg jo. Mitt virkelige spørsmål var det samme, men det er flere bokstaver. F.eks:

aaaba

= aoperasjon 3 ganger, b en gang, opg a en gang tiol.

ababbaaa

=a en gang, b en gang, a en gang, b to ganger, a tre ganger. Jeg bruker Len(text1.text) til å finne lgngden, så jeg looper det. Problemet mitt er hvordan jeg finner ut hva tegn 1 er, tegn 2, osv

[aadnk]

Hva du behøver er Mid-funksjonen:

 

Public Sub ExecuteOperation(sCommand As String)

   Dim Tell As Long
   
   ' Gå gjennom hele strengen og utfør den korrekte operasjonen
   For Tell = 1 To Len(sCommand)
   
       ' Finn ut hvilket tegn den nåværende posisjonen er, og velg den egnete operasjonen deretter
       Select Case Mid(sCommand, Tell, 1)
       Case "a"
           ' Utfør operasjon for bokstav A
   
       Case "b"
           ' Utfør ...
       
       Case Else
           ' Dersom vi har kommet til en karakter som ikke faller innenfor noen av operasjonsbokstavene ovenfor
           ' MsgBox "Feil ved posisjon " & Tell & ": bokstaven er ikke støttet", vbCritical, "Feil"
       
       End Select
   
   Next

End Sub

 

Dersom du da skal eksekvere koden i en tekstboks, eksempelvis Text1, gjør du som følger:

 

ExecuteOperation Text1.Text

Endret 18. april 2005 av aadnk

[Degeim]

Noen millioner takk, aadnk. Jeg lurer på en ting:

Hva mener du med å "eksekvere"?

[aadnk]

Hva mener du med å "eksekvere"?

Med det mener jeg å utføre eller "kjøre" koden i tekstboksen. Det er kun et lite synonym for det engelske ordet execute.