Woorden halen uit text

[Grapjas007]

Hallo,
ik zoek een manier om in VB6 woorden uit een regel te kopieren als die regel een bepaald woord bevat.(woord = adliste)

voorbeeld

Adliste["142318613"]["sizekb"] = "6195";

hieruit wil ik enkel de 6195 (is een variabele) halen
zo staan er meerdere zinnen in mijn text.


dit is wat ik tot nu toe heb:

Private Sub command1_click()
Dim data As String
data = Inet1.OpenURL("https://ssl.rapidshare.com/cgi-bin/collectorszone.cgi", icString)
Open "C:\Users\Matthias\Desktop\text.txt" For Output As #1
Print #1, data
Close #1
        Dim Bestand As Integer
        Open "C:\Users\Matthias\Desktop\text.txt" For Input As #2
        Do While Not EOF(2)
        Input #2, lijn
        If lijn = adliste Then====================>
        Text1.Text = lijn(Chr(34 to end of line)) ======>? dit is wat ik nog zoek
        End If==============================>
        Loop
End Sub

 

[Pizara]

Je hoeft hier geen nieuwe topic voor aan te maken hoor.. Je kan gewoon een nieuwe reactie geven in je vorige topic zodat iemand hier op kan reageren. Ik kan je daar alleen niet me helpen omdat ik vb2008 gebruik.

 

[Tha Devil]

Ik zie dat je hier al verder bent gegaan. Je hoeft er inderdaad geen nieuwe vraag voor aan te maken.

@Pizara: Neem deze mededeling even door.

De volgende keer is een misbruikmelding plaatsen voldoende.