Textdatei bearbeiten - der besete weg ?

[Sharky]

Hai Bit Juggler,

das habe ich mal aus dem Kopf gemacht (also ungetestet!);

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 sl1,
 sl2  : TStringList;
 ndx1 : Integer;

  function UpperLowerCase (const value : String) : String;
  var
   s_tmp1,
   s_tmp2 : String;
  begin
     s_tmp1 := AnsiLowerCase(value); // Alles in klein
     s_tmp2 := s_tmp1[1];  // Erstes Zeichen holen
     result :=  StuffString (s_tmp1,1,1,AnsiUpperCase (s_tmp2));  // Erstes Zeichen groß und ersetzen.
  end;

begin
  sl1 := TStringList.Create;
  sl2 := TStringList.Create;
  try
    sl1.Clear;
    sl1.LoadFromFile('mytext.csv');   // Datei Laden
    for ndx1 := 0 to sl1.Count -1 do
      begin
        sl2.clear;
        sl2.Delimiter := ',';  // Trennzeichen
        sl2.QuoteChar := '"';  // Quotingzeichen
        sl2.DelimitedText := sl1.Strings[ndx1];
        sl2.Strings[0] := UpperLowerCase(sl2.Strings[0])  // Umwandlung 1. Wort
        sl2.Strings[2] := UpperLowerCase(sl2.Strings[2])  // Umwandlung 3. Wort.
        sl2.Strings[3] := UpperLowerCase(sl2.Strings[3])  // Umwandlung 4. Wort.
        sl1.Strings[ndx1] := sl2.DelimitedText ; // Formatierenstring zurückschreiben
      end;
    sl1.SaveToFile('mytext_neu.csv');  // Datei speichern
  finally
    FreeAndNil (sl1);
    FreeAndNil (sl2);
  end;
end;