Stringtokenizer i VB?

myArray = Split(Datasterng, \"¥\")

Så har du dem i:
myArray(0)
myArray(1)
myArray(2)
myArray(3)

Datastreng = Datastreng & \"¥\"

Do until Datastreng=\"\"
Resultat=Left$(Datastreng,instr(Datastreng,\"¥\")-1)
Datastreng=Len(Resultat)+1
msgbox Resultat
Loop

netsrac, kender du til vba? Hvis ja, gidder du så kigge på http://www.eksperten.dk/spm/58251

thokarl >> Så meget kender jeg desværre ikke til VB, jeg kan kun lidt fordi jeg kan ASP

æv...

thokarl>
Jeg får en fejl i:

Resultat = Left$(Datastreng, InStr(Datastreng, \"¥\") - 1)

???

Den virker første gang...altså den første bid af strengen... men så kommer \"Invalid call or argument\" ...

vippen1 >> Har du prøvet mit ?

Du kan prøve med dette:

Private Sub Command1_Click()
  OpdelTekst Text1.Text, \"$\"
End Sub

Public Sub OpdelTekst(DataStr As String, Skille As String)
  While DataStr <> \"\" And InStr(DataStr, Skille) > 0
    MsgBox Left(DataStr, InStr(DataStr, Skille) - 1)
    DataStr = Mid(DataStr, InStr(DataStr, Skille) + 1)
  Wend
  MsgBox DataStr
End Sub

HDH
ProAccess

Du skal selvfølgelig bruge \"¥\" og ikke \"$\" :-)

vippen1 > du skal bruge Split funktionen som netsrac foreslog.

/Jennemaan

Hej Jennemaan,

er Spilt først med i VB6?
Jeg ikke har den i VB5, men derfor kan min løsning da sagtens bruges...

ProAccess

Split er ikke med i VB5

/Jennemaan