Datei auf String überprüfen

[Jume]

Code: Alles auswählen

If ReadFile(0, "admin.txt")
      While Eof(0) = 0
      admins$ = ReadString(0)
      Wend 
      CloseFile(0)
    EndIf 

Tag Leute,

wie mach ich es das der die Datei ausliest und admins$ = alle zeilen bedeutet. Soll heißen, ich will überprüfen ob ein bestimmter Name in der Datei zu finden ist und wenn ja dann soll er eine bestimmte Sache machen.
Ich habe alles ausprobiert, von countstring() bis findstring() usw. und so fort.

Denn nun liest er immer NUR die letzte Zeile aus, bzw. teilt der Variable "admins$" nur die letzte Zeile zu.

Bekomme es nur hin das er "admins$" entweder der ersten Zeile oder eben der letzten zuteilt.

lg

[Sirius-2337]

Wenn ich dich richtig verstehe willst du die ganze Datei in eine String-Variable speichern, richtig?
Das sähe dann z.B. so aus.

Code: Alles auswählen

If ReadFile(0, "admin.txt")
  admins$ = ""
  While Eof(0) = 0
    admins$ + ReadString(0)
  Wend
  CloseFile(0)
EndIf 

[Jume]

Das ist ja spitzenmäßig, so einfach hehe ... dankeschöööön


nun ist es jedoch so, das er den gesamten inhalt der textdatei in einer zeile als admins$ speichert. kann man das so machen das er jede einzelne zeile in der textdatei überprüft ob das bestimmte wort was gesucht wird.. vorhanden ist ?

[Bisonte]

nur die prüfung ob das wort admin irgendwann im File vorkommt ?
Da warst Du mit Findstring() schon richtig...

Code: Alles auswählen

If ReadFile(0, "admin.txt")
  While Eof(0) = 0
    admins$ = ReadString(0)
    If FindString(admins$,"admin",1)
      Debug "Admin gefunden... nun irgendwas tun..."
    EndIf
  Wend
  CloseFile(0)
EndIf 

Edit: Ups zu spät aber trotzdem noch passend zur 2. Frage

[Jume]

habe das dann jetzt nochmal genauso ausprobiert wie beschrieben mit findstring() aber da liest er wieder nur die letzte zeile aus der textdatei und weißt der letzten zeile die variable admins$ zu.

[Bisonte]

es geht nur darum (in meinem Beispiel) um festzustellen ob IRGENDWO im File das Wort "admin" vorkommt...
War in der Eröffnung nicht wirklich ersichtlich.

Jetzt liegt es an Dir, beide Varianten zu kombinieren

[Kiffi]

kann mir schon vorstellen, wo Dein Fehler liegt. Hier Bisontes Code ein wenig abgewandelt:

Code: Alles auswählen

If ReadFile(0, "admin.txt")
  While Eof(0) = 0
    EingelesenerString$ = ReadString(0)
    If FindString(EingelesenerString$,"admin",1)
      admin$ = EingelesenerString$
      Break
    EndIf
  Wend
  CloseFile(0)
EndIf

Grüße ... Kiffi

[Bisonte]

Jetzt liegt es an Dir, beide Varianten zu kombinieren

Naja... oder auch nicht...

[Jume]

ich habs nun hinbekommen. habe eine es tatsächlich die ganze zeit schon richtig gemacht aber nicht durchblickt das ich ja auch "admins$" durchsuchen kann mit findstring wenn das alles in einer zeile sthet

nun hab ich es durchblickt und es klappt prima, dankesehr leute !