txt datei auslesen

[mx03]

ich habe ein programm geschrieben was zeile für zeile überprüft ob 123 vorkommt jedoch wenn er 123 findet macht der mir kein debug ------- rein
was stimmt an dem code nicht?

Code: Alles auswählen

test$ = "123"
OpenFile(0, "test.txt")
Repeat
Debug  text$+ReadString()
If text$ = test$
Debug "------"
EndIf 
Until Eof(0)<>0
CloseFile(0)

[AND51]

text$ ist hier die ganze Zeit ein Leerstring!
Sieh dir den Unterschied mal an, dann siehst du, was ich meine!

Code: Alles auswählen

test$ = "123" 
OpenFile(0, "test.txt") 
Repeat 
     text$=ReadString() 
     Debug text$
     If text$ = test$ 
          Debug "------" 
     EndIf 
Until Eof(0)<>0 
CloseFile(0) 

Jetzt wird in txet$ jedes Mal die aktuelle zeile gespeichert. Dann wird ausgewertet. Die zeile, die du da hast mit dem Debug, das wird so nichts.

Wenn ich dir einen Tipp geben darf: Schau dir mal den Befehl FindString() an, wenn es darum geht, Strings in Strings zu finden

[ts-soft]

@AND51
Wie wäre es, wenn Du vorbildhaft ein If einfügen würdest. Wenn test.txt nicht
existiert oder schreibgeschützt ist, wird es wohl probleme geben

[AND51]

Ich weiß, was du meinst. Aber soetwas lasse ich bei so Präsentationen wie gerade imemr extra weg, weil es sonst du unübersichtlich wird. Es kommt hier ja nur auf die Funktionalität an.

So'n If kann jeder selbst einfügen, wenn er will. Außerdem, ne? Was soll bei OpenFile() schiefgehen, hm? Wenn die Datei nicht existiert, wird sie neu angelegt

Bätsch! Nur bei Create- / ReadFile-hättest du mir das Wasser reichen können. Ausnahme, wo ich dir gleich vorweg den Wind aus den Segeln nheme: Beispielsweise auf CD-ROMs würden Programme mit OpenFile abstürzen, weil auf CDs niemals Lese UND Schreib-Rechte vergeben werden können, hier hilft nur ReadFile wo man dann If-Abfragen einbauen müsste.

[Kaeru Gaman]

> hättest du mir das Wasser reichen können.

lalelu.. hei söhnchen, halde ma de ball flach, oki?
mach ma onkel ts nich an, das bringet nich, ey.

[AND51]

Haaaaach, TS-Soft und ich sind doch noch immer gute Kollegen, nicht wahr?

Uns kann nichts so schnell erschüttern... 's war ja auch nicht so böse gemeint!

[ts-soft]

Was soll bei OpenFile() schiefgehen, hm? Wenn die Datei nicht existiert, wird sie neu angelegt

Auf nem schreibgeschützten Datenträger auch?
Hier ist das Anfängerforum, da sollten solche Anfängerfehler nicht
auftauchen. Was Du es sonst so machst, ist es mir schnurz, solange Du Deine
Programme nicht auf meine Festplatte schieben kannst

[AND51]

Den Wind hab ich dir doch vorher schon aus den Segeln genommen, aber du hast vollkommen recht, TS-Soft.

Nur, mir gings, wie gesagt, hier nur um das Kernproblem. Auf solche Dinge, das man zur Sicherheit überall gesonderte IF-Abfragen einsetzen sollte, sollte jeder Einsteiger irgendwann auch kommen.

[Kiffi]

> Auf solche Dinge, das man zur Sicherheit überall gesonderte IF-Abfragen
> einsetzen sollte, sollte jeder Einsteiger irgendwann auch kommen.

weisst Du AND51, in einem Anfängerforum sollte man Hilfesuchende nicht absichtlich in's offene Messer laufen lassen, nur weil man keine Lust hat,
einen vernünftigen Code zu posten.

Grüße ... Kiffi

[Kaeru Gaman]

weisst Du AND51, in einem Anfängerforum sollte man Hilfesuchende nicht in's
offene Messer laufen lassen, nur weil man keine Lust hat, einen vernünftigen
Code zu posten.

yo, bro, that's right.
....der kleine wirds auch noch checken...
...vielleicht hat er ja mal später ne anfängerfrage, wie jeder von uns...
...keinem wächst code ausm arsch...