Split tekst op

Eksempel (er ikke testet, der kan være fejl i "mid", "left", mht værdierne):

dim s as string ' strengen
dim c as string ' Command / kommandoen
dim u as string ' User / brugernavn
s = txtCommand.text

if left(s, 1) = "/" then
' dette er en kommando.. find kommandoen:
c = mid(s, 2, instr(s, " ") -1)

' hvis der er flere/mange kommandoer:
select case c
case "user"
' det er user-kommandoen... find brugernavn:
u = mid(s, instr(s, "'"))
u = left(u, instr(u, "'"))
msgbox "brugeren hedder: " & u

case "quit"
msgbox "kommandoen er quit"

end select

glemte "end if" efter "end select":

end select
end if

Jeg har lige testet det med ASP.. der var en del fejl, så her er en version der virker:

dim s as string ' strengen
dim c as string ' Command / kommandoen
dim u as string ' User / brugernavn
s = txtCommand.text

if left(s, 1) = "/" then
' dette er en kommando.. find kommandoen:

if instr(s, "?") then
  ' der er et mellemrum.. "c" = starten af "s", og indtil mellemrummet:
  c = mid(s, 2, instr(s, "?") - 2)
else
  ' c = fra andet tegn, og resten af "s":
  c = mid(s, 2)
end if

' hvis der er flere/mange kommandoer:
select case c
case "user"
' det er user-kommandoen... find brugernavn:
u = mid(s, instr(s, "'") +1)
u = left(u, instr(u, "'") -1)
msgbox "brugeren hedder: " & u

case "quit"
' dette er quit-kommandoen
msgbox "kommandoen er quit"

end select
else
msgbox "almindelig tekst"
end if

hmm.. "?" er en del af ASP testen, og skal erstattes af " ":

c = mid(s, 2, instr(s, " ") - 2)

prøver det lige :)

biohazard_666> Er det dig? :-)  (så ikke hvem det var..)
Hvordan går det med "mit program compiler et andet program"-projektet..?

kan ikk få det til.. Ingen reaktion når jeg fx skriver:
/user 'Bio'

biohazard_666> Er det dig? :-)  (så ikke hvem det var..)
Hvordan går det med "mit program compiler et andet program"-projektet..?

Ja det er mig ;)

Tjoo... Tror jeg lukker... Behøver det ik mere ;)
Det var mest fordi jeg var nysgerrig.. hehe

Nix putte.. nu vil jeg gerne vide, hvorfor "/user 'Bio'" ikke virker :-)

- Hvilken fejl får du?

Eller var "nysgerrig" til "program..compiler..prog.." ..? :-)

Ingen fejl... Faktisk slet ingen ting :(

Nå.. så må jeg jo lette en-vis-del-af-min-anatomi, og starte vb..

:D

Jeg tror at jeg havde givet dig noget forkert kode.. her er den rigtige:

Dim s As String ' strengen
Dim c As String ' Command / kommandoen
Dim u As String ' User / brugernavn
s = txtCommand.Text

If Left(s, 1) = "/" Then
' dette er en kommando.. find kommandoen:

If InStr(s, " ") Then
  ' der er et mellemrum.. "c" = starten af "s", og indtil mellemrummet:
  c = Mid(s, 2, InStr(s, " ") - 2)
Else
  ' c = fra andet tegn, og resten af "s":
  c = Mid(s, 2)
End If

' hvis der er flere/mange kommandoer:
Select Case c
Case "user"
' det er user-kommandoen... find brugernavn:
u = Mid(s, InStr(s, "'") + 1)
u = Left(u, InStr(u, "'") - 1)
MsgBox "brugeren hedder: " & u

Case "quit"
' dette er quit-kommandoen
MsgBox "kommandoen er quit"

End Select
Else
MsgBox "almindelig tekst"
End If

jamen det virker jo :)
Smid et svar, så får du point :)

Og et svar er smidt ;-)

Takker for hjælpen.. (endnu en gang :))

<*-*-*-* SPØRGSMÅL LUKKET -*-*-*->

En lille (men vigtig) rettelse:

Select Case LCase(c)

Så laver der indholdet af "c", til små bogstaver, da der er forskel på "user" og "uSeR", osv..

husk det i dine "case"s: case "kommando med små bogstaver"

Det var så lidt, og takker for points :-)

hehe.. kommer altid på noget, når man er "færdig" :-)

En tilføjelse (case else):

Case "quit"
' dette er quit-kommandoen
MsgBox "kommandoen er quit"

Case Else
MsgBox "Ugyldig kommando!"

End Select

Hvis det er en kommando, hvor kommandoen ikke er defineret, får man en "Ugyldig kommando"..

oki :) (til alt :P)