Erfassen und verarbeiten von Textdateien

[grenzgaenger]

hallo paule,

denke, dass es objekt orientiert leichter geht, wie in den TP3 zeiten... daher hier ein paar hinweise, wie du rangehen kannst...

a) definition eines containers, als objekt

Delphi-Quellcode:

type titem = class
 addresse: string; //für deine daten
 kommendar: string;
 ....
end;

b) definition eines containers für deine items, welche du aus dem flat file herausgesucht hast..

Delphi-Quellcode:

type tItemList = class(tObjectList)
//deine methoden
 procedure load;
 procedure save(filename: string);
end;

c) einlesen deines flat files und speichern der selektierten daten

Delphi-Quellcode:

procedure tItemList.load;
var
 sl: tstringlist;
  i: integer;
 item: tItem;
begin
 sl := tstringlist.create;
 try
  sl.loadfromfile('dein flat file');
  store := false;
 for i := to sl.count - 1 do 
 begin
  if sl.item[i] = 'dein vergleichskritierium' then
  begin
   item := tIdem.create;
   item.kommendar := sl.item[i];
   item.adresse   := sl.item[i+3];
   ...
   add(item);
  end;
 end;
 finally
  sl.free;
 end;
end;

d) noch deine codierung für save hinterlegen

Delphi-Quellcode:

begin
 datei_offnen;
 for i := 0 to count - 1 do
 begin
  formatiere tItem(item[i]).kommendar;
  formatiere titem(item[i]).....;
  speichere in datei;
 end;
end;

e) und dann noch abspeichern deiner daten Itemlist.save('deine datei');
das wäre es so im grossen und ganzen. kannst die ladeprocedure noch etwas optimieren... und deine daten ggf. noch weiter ergänzen...

noch viel erfolg und bei fragen, kannst dich gern an das forum wenden.

grüsse
gg