Zitat:

Guten Abend Wie kann ich eine 201kb grosse Textdatei öffnen? oder sie durchsuchen und die entsprechende zeile in einer MsgBox ausgeben? Und wie kann ich die ersten 10 Zeichen weglassen? Liebe Grüsse und herzlichen Dank

 
F = FreeFile
 
Open "c:\1.txt" For Input As #F
Do While Not EOF(1)
   Line Input #F, curLine
   If InStr(curLine, "find this string") > 0 Then  ' Prüft, ob InStr etwas findet
      MsgBox Right(curLine, Len(curLine) - 10)     ' Gibt vom 10. Zeichen bis 
      ' zum Ende aus
      Exit Do                                      ' bricht aus der 
      ' DoWhile-Schleife aus
   End If
Loop
Close #F