Entwickler-Ecke

Dateizugriff - bestimmte zeilen ignorieren beim auslesen


HülsiXX - Sa 19.10.02 18:37
Titel: bestimmte zeilen ignorieren beim auslesen
Hi,

meine frage >
wie ist es möglich eine datei komplett auszulesen, es sei denn, die zeilen beginnen mit einem "#" .... diese zeilen sollen nicht ausgelesen werden

mfg

HülsiXX


Delete - Sa 19.10.02 18:48
Lies die Datei mit ReadLn ein und wenn du ein "#" findest verarbeitets du die Zeile einfach nicht weiter.


AndyB - Sa 19.10.02 18:50
Probiere es mal damit:

Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
 
procedure LoadSharpFile(const Filename: string; List: TStrings);
var
  fDatei: TextFile;
  s: string;
begin
  AssignFile(fDatei, Filename);
  Reset(fDatei);
  try
    while not EOF(fDatei) do
    begin
      ReadLn(fDatei, s);
      if (s <> '') and (s[1] <> '#') then List.Add(s);
    end;
  finally
    CloseFile(fDatei);
  end;
end;


HülsiXX - Sa 19.10.02 19:28
hey danke
aber *schäm* ... wie soll ich denn die prozedur nun anwenden?

HülsiXX


DeCodeGuru - Sa 19.10.02 19:38
nehmen wir an, dass du auf deinem Formular einen Button (Button1) und eine ListBox (ListBox1) hast.
Dann fügst du einfach OnClick-Ereignis des Buttons folgenden Code ein:


Quelltext 
1:
 
LoadSharpFile('C:\Test.txt',ListBox1.Items)


So, das müsste dann funktionieren. (nicht getestet)


HülsiXX - Sa 19.10.02 23:37
funktioniert!
aller besten danke

HülsiXX


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!