Daten aus ASCII Dateien auslesen

[jmich]

Ich möchte aus einer ASCII Dateien z.B. folgende Daten auslesen.
entweder in einen Stringgrid oder in einen Tree.
Wie kann das funktionieren

z.b. Stringgrid :

Position Text Euro
1.1 Wie wird es gemacht 10,00
1.2 neuer Text 10,50


Codezahl:
10 = Anfang (länge = 2 Stellen)
11 = Position ( = 3 Stellen)
12 = Text ( = 60 Stellen)
13 = Euro ( = 5 Stellen)
20 = Ende

Daten in ASCII - Datei

10
111.1
12Wie wird es gemacht
1310,00
20
10
111.1
12neuer Text
1310,50
20

[thkerkmann]

Hi,

also ich würd's so machen:

Delphi-Quellcode:

var
  sl: tStringlist;
  s: string;
  sCode: string;
  sPosition: string;
  sText: string;
  sEuro: string;
begin
  sl := tStringlist.Create;
  try
    sl.LoadFromFile(dieDatei);

    for i:=0 to sl.Count-1 do
    begin
      s := sl.Strings[i];
      sCode := copy(s,1,2);
      if sCode='10' then
      begin
        // Anfang
        sPosition  := '';
        sText := '';
        sEuro := '';
      end
      else if sCode='11' then
        sPosition := copy(s,3,maxint)
      else if sCode='12' then
        sText := copy(s,3,maxint)
      else if sCode='13' then
        sEuro := copy(s,3,maxint)
      else if sCode='20' then
      begin
        // eintragen der drei variablen in stringgrid oder was auch immer
      end;
    end;
  finally
    sl.Free;
  end;
end;

Frohes Fest