.txt mit VB auslesen

Hi Leute,

ich hab ein kleines Problem und zwar hab ich folgende textdatei:

Code:

<text>Das soll in die textbox</text>

und diese textdatei soll jetzt mit VB ausgelesen werden. Aber nicht die komplette sondern nur das was zwischen <text></text> steht. Dieser text soll dann in der Textbox4 angzeigt werden.

Ich hoffe Ihr könnt mir helfen

mfg Jojo

 

Vielleicht hätte ich noch sagen sollen das ich Visual Basic 2008 Express Edition benutze.

mfg Jojo

 

Auch wenns ein paar Tage her ist, hier ein Lösungsansatz:

Du liest den Inhalt der Datei in einen String ein,
dann suchst du mittels einer Schleife nach dem Anfang deines Textes.
In deinem Fall also nach <TEXT> und schreibst dir die Position in eine Variable.

Könnte in etwa so aussehen:

Code:

For i = 0 To LEN(String) - 6

If Mid(String, i, 6) = "<TEXT>" Then

Debug.Print "An der Position" & i & "gefunden."

End If

Next i

Das gleiche machst du mit der Endposition

Könnte in etwa so aussehen:

Code:

For j = 0 To LEN(String) - 7

If Mid(String, j, 7) = "</TEXT>" Then

Debug.Print "An der Position" & j & "gefunden."

End If

Next j 

Jetzt hast du die Startposition in der Variablen i und die Endposition in der Variablen j. Nun musst du nurnoch alles zwischen i und j in eine neue Variable einlesen lassen und die Variable an die Textbox übergeben.

 

Ok vielen Dank, werd ich sofort testen wenn ich Zuhause bin.

mfg Jojo

 

dim pos
dim pos2
dim WOD

pos = instr(1,TEXT,"<text>",vbtextcompare)
pos = pos + 6
pos2 = instr(1,TEXT,"</text>,vbtextcompare)

WOD = right(left(TEXT,pos2), len(TEXT) - pos)

debug.print WOD

Somit kannst du auch vor dem "<text>" und nach "</text> etwas stehen haben. Es wird immer nur das Zwishen "<text>" u. "</text>" zurück geben auch wenn zb vor "<text> steht "NICHT EDITIEREN!!"

Ich bin VB6 Programmierer, aber denke das geht noch