variabelen uit tekst halen

[Grapjas007]

Ik zit met een klein probleempje
ik zit met een text met daarin:
Adliste["142319660"]["sizekb"] = "12391";

nu zou ik graag die 12391 naar een ander textboxje verplaatsen maar weet niet goed hoe dat te doen vermits het een variabele is die altijd anders is

ook staan er zo'n 20 van deze lijntjes in mijn textbestand
zou iemand mij kunnen uileggen hoe al deze variabelen uit deze text te halen

 

[Pizara]

Kort stukje code is al genoeg..

Bestand inlezen per regel , elke regel inkorten (eerst 34 karakters eraf daarna laatste 2 eraf.)

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Bestand As New System.IO.StreamReader("../../TextFile1.txt")
        Dim LeesLijn As String = Bestand.ReadLine()
        Do While Not LeesLijn Is Nothing
            Debug.Print(LeesLijn.Remove(0, 34).Replace(Chr(34) & ";", Nothing))
            LeesLijn = Bestand.ReadLine()
        Loop
    End Sub
End Class

Mvg Pizara

 

[Grapjas007]

Kort stukje code is al genoeg..

Bestand inlezen per regel , elke regel inkorten (eerst 34 karakters eraf daarna laatste 2 eraf.)

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Bestand As New System.IO.StreamReader("../../TextFile1.txt")
        Dim LeesLijn As String = Bestand.ReadLine()
        Do While Not LeesLijn Is Nothing
            Debug.Print(LeesLijn.Remove(0, 34).Replace(Chr(34) & ";", Nothing))
            LeesLijn = Bestand.ReadLine()
        Loop
    End Sub
End Class

Mvg Pizara

sorry hoor maar ik werk in VB 6 niet in VB.NET
en daarbij komt nog dat niet alle lijnen een adliste bevatten

tot nu toe heb ik dit

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

 

[That Guy]

Je kan gewoon de lengte van de string opvragen, en daarna de afstand van het char 34 eraf halen en een mid() aan te roepen...

ofwel:

dim i as integer
dim j as integer
dim sUitkomst as String
dim sTemp as integer

i = len(lijn)

for j = 0 to i
    if mid(lijn, j,1) = chr(34) then
        sTemp = j
    end if
next i

sUitkomst = mid(lijn, sTemp , i - sTemp)
   

text1.text = sUitkomst

uit t hoofd, maar zoiets zou t moeten doen.