Ik heb een tekst waar hier en daar dingen tussen aanhalingstekens staan. Nu wil ik die waarden uit tekst halen en opslaan in 'waarden(0 to 100) '. De eerste waarde moet dus in waarden(0) opgeslagen, de tweede in waarden(1) opgeslagen worden, enz...

Weet iemand hier een code voor?

Hallo

Veronderstel dat uw tekst zich in een textbox bevindt, dan zou volgende code de job moeten doen:

Code:

Dim Waarden(101) As String Dim Zoek As Integer, Start As Integer, Teller As Integer Dim Tekst As String   Tekst = Text1.Text   Start = 1   Zoek = 1   Do While Zoek > 0     Zoek = InStr(Start, Tekst, Chr(34), vbBinaryCompare)         If Zoek > 0 Then       Start = Zoek + 1       Zoek = InStr(Start, Tekst, Chr(34), vbBinaryCompare)           If Zoek > 0 Then         Waarden(Teller) = Mid(Tekst, Start, Zoek - Start)         Teller = Teller + 1         Start = Zoek + 1       End If     End If   Loop

Succes

Bedankt,

Het werkt perfect