Text-Datei durchsuchen...

[onny]

Hi, habe schon das Forum und das PB-Archiv durchsucht aber nichts gefunden...

Also folgendes:

EineTextdatei soll durchsucht werden ist Ergebnis = "blabla" (also wenn in der Datei blabla steht) dann soll dies und das geschehen...
Ich meine nicht Ergebnis$ = Trim(ReadString()), denn das bla bla kann überall in der Datei sein und muss gesucht werden!

Vielen Dank schon im Vorraus!
Ps: "blabla"

[walker]

Hi,

wenn es sich um eine reine Textdatei handelt, kannst Du die Datei zeilenweise mit

Code: Alles auswählen

ReadString()

lesen und jedesmal nach dem Begriff durchsuchen.

Sieh Dir mal die PB-Hilfe dazu an

[Kiffi]

FindString() ist der Befehl, den Du suchst.

Für PB3.94:

Code: Alles auswählen

FF = OpenFile(#PB_Any, DeineDatei$)
If FF
  While Eof(FF) = 0
    EingelesenerString$=ReadString()
    If FindString(EingelesenerString$, "blabla", 1)
      ; Here we are!
    EndIf
  Wend
  CloseFile(FF)
EndIf

Für PB4:

Code: Alles auswählen

FF = OpenFile(#PB_Any, DeineDatei$)
If FF
  While Eof(FF) = 0
    EingelesenerString$=ReadString(FF)
    If FindString(EingelesenerString$, "blabla", 1)
      ; Here we are!
    EndIf
  Wend
  CloseFile(FF)
EndIf

Grüße ... Kiffi

[onny]

vielen dank