Text ersetzen aus 2 Dateien

[alf.stefan]

Hallo oder vielleicht auch so

Delphi-Quellcode:

     tList1 := TStringList.Create;
     tList2 := TStringList.Create;

     tList1.LoadFromFile('File1.txt');
     tList2.LoadFromFile('File2.txt');

     tList3 := TStringList.Create;


// name und value sinf durch space getrennt
     tList1.NameValueSeparator := #32;


     for loop2 := 0 to tList2.Count-1 do
     begin
        theString := tList2.Strings[loop2];
        for loop1 := 0 to tList1.Count-1 do
        begin
          if length(tList1.Names[loop1]) > 1 then
          if pos(tList1.Names[loop1],tList2.Strings[loop2])>0 then
          begin
             theString:= AnsiReplaceStr(tList2.Strings[loop2], tList1.Names[loop1], tList1.ValueFromIndex[loop1]);
             break;
          end;
        end;
        tList3.Append(theString);
     end;

     // listen abspeichern und freigeben

in tList3 sollte dann die Liste so sein wie Du sie haben willst.
um AnsiReplaceString zu verwenden muss die Unit strUrils eingebunden werden.

Gruß

Stefan