Text zeilenweise einlesen

[yaqwerdx]

Hallo, bin neu hier im Forum, habe auch nocht nicht so gute VB Kenntnisse,
Ich habe vor mehrere Textdateien mit VB einzulesen nach einem Bestimmten Wort zu suchen und dann den Zahlenwert rechts vom gefundenen Wort zu speichern (es handelt sich um eine Routerlog)

und zwar habe ich das so versucht...funktioniert jedoch nicht

Private Sub Form_Load()
Open "C:\........." For Input As #1
Do Until EOF(1) 'bis zum Dateiende machen
Line Input #1, A 'Einzelne Zeile einlesen

If InStr(1, #1, "Test") Then
B = Split(#1, "Test")
End If

Loop
Close #1
End Sub

Nun zu den Markierten Zeilen, ich mochte also hier z.B. nach dem Wort Test suchen mit Instr und nachher die Zeile mit Split bearbeiten, nur weiß ich wie genau ich das anstelle dass das funktioniert
Bitte um eure Hilfe!!

 

[Alex F.]

nach

Line Input #1, A 'Einzelne Zeile einlesen

Steht in a deine Zeile drin also musst du weitergehend nicht #1 sondern a abfragen

BSP:

If InStr(1, A, "Test") Then
B = Split(A, "Test")
End If

Grüsse bb

 

[yaqwerdx]

Vielen Dank, hat funktioniert
:-( schon peinlich dieser Fehler, habe ewig gesucht danach.

Jetzt habe ich noch ein Problem, und zwar habe ich einen Ordner, mit vielen verschiedenen Unterordnern, und in jedem Unterordner befindet sich eine Textdatei, und ich möchte jetzt jede Textdatei (also wie wenn man nach *.txt sucht) automatisch öffnen lassen und nach z.B. dem Wort Test durchsuchen lassen, wie oben.
Habe leider keinen Plan wie ich das anstellen soll.
Bitte wieder um Hilfe
mfg Roman

 

[Alex F.]

http://www.activevb.de/tipps/vb6tipps/tipp0128.html