Re: Schreiben einer Zeile in ein Textfile - need help, THX
Bisher läuft alles ganz gut, das ganze hat noch nen Riesenvorteil, da ich am Ende meine .old Datei aus der ich gelesen habe wieder umkopiert habe nach .txt erspare ich mir das nun durch die Stringliste, da ich die .old Datei wie bisher durchsuche, dann die Stringlist zum Einsatz kommt und diese das Ergebnis nach .txt wegschriebt.
Danke für die schnelle und Kompetente Hilfe! Sieht jetzt so aus und geht bisher gut :D
Code:
....
AssignFile(myfile, (Combobox1.Text+'.old')); //File auswählen reset (myfile); //File öffnen SearchLine := IntToSTr(ZIFF_0); //zu suchende Zeile=erzeugter Dateiname sl:=tstringlist.create; //Stringliste erzeugen sl.LoadfromFile(filenameold); //Inhalt vom .OLD File laden while not eof(myfile) do //solange bis das Dateiende erreicht ist begin ReadLn(myFile, CurrentLine); //Datei zeilenweise durchsuchen und Ergebnis der Zeile nach CurrentLine linecounter:=linecounter+1; //Zeile ++ if IsValidInteger(CurrentLine) then //gültige Integerzahl gefunden ?? begin POS_1:= linecounter; ZIFF_1:= StrToInt(Currentline); if ZIFF_0 < ZIFF_1 then begin POS_2:=linecounter; sl.insert ((POS_2-1), IntToStr(ZIFF_0)); //Einfügen an Stelle (POS_2-1) den Wert aus ZIFF_0 später noch weitewre Werte sl.SaveToFile(filenamenew); //Abspeichern unter xy.TXT CloseFile(myfile); // File schließen sl.free; // Stringlist wieder freigeben exit; end .... |
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:17 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz