Textinhalt aufsplitten

[mkinzler]

Z.B. mit (TStringList).SaveToFile()

[EarthQuaker]

Danke dir, irgendwie finde ich derzeit keine möglichkeit dies umzusetzen...

MfG

[mkinzler]

Delphi-Quellcode:

        ...
        List.LoadFromFile(OpenDialog1.Filename);
        VerteileStrings(List, ListBox2.Items, ListBox3.Items);
        List.SaveToFile( ChangeFileExt(OpenDialog.Filename, '') + '_neu' + ExtractFileExt(OpenDialog.Filename));
        ...

[Coffeecoder]

So geht es auch (Befehle wie AssignFile usw auch bitte angucken).
Quellcode von der Seite http://www.delphibasics.co.uk/RTL.asp?Name=WriteLn

Delphi-Quellcode:

var
  myFile : TextFile;
  text   : string;

begin
  // Try to open the Test.txt file for writing to
  AssignFile(myFile, 'Test.txt');
  ReWrite(myFile);

  // Write a couple of well known words to this file
  WriteLn(myFile, 'Hello World');

  // Write a blank line
  WriteLn(myFile);

  // Write a string and a number to the file
  WriteLn(myFile, '22/7 = ' , 22/7);

  // Repeat the above, but with number formatting
  WriteLn(myFile, '22/7 = ' , 22/7:12:6);

  // Close the file
  CloseFile(myFile);

  // Reopen the file for reading
  Reset(myFile);

  // Display the file contents
  while not Eof(myFile) do
  begin
    ReadLn(myFile, text);
    ShowMessage(text);
  end;

  // Close the file for the last time
  CloseFile(myFile);
end;

Mfg,

[EarthQuaker]

Hey und Danke, aber funtioniert garnicht erst und leider auch nicht passend irgendwie...

MfG



Edit: Inhalt einer textdatei:

IX;9
IV;4

ich will dann z.b. die 9 in neun umbenennen und nur dieser eintrag soll dann in der textdatei geändert werden. es befindet sich jedoch jeder eintrag in einer anderen listbox...

[DeddyH]

Dann bau Dir den resultierenden String doch aus den Listboxen zusammen, füge ihn einer Stringliste hinzu und speichere die zum Schluss.

[EarthQuaker]

Klingt recht vernünftig... aber wie nur? manche dinge bringe ich aber dann gibts wieder was wo ich total versage echt schlimm

MfG

[DeddyH]

Ungefähr so (aus dem Kopf):

Delphi-Quellcode:

var
  MaxCount, i: integer;
  DestList: TStringlist;
begin
  MaxCount := ListBox1.Items.Count;
  if ListBox2.Items.Count < MaxCount then
    MaxCount := ListBox2.Items.Count;
  DestList := TStringlist.Create;
  try
    for i := 0 to MaxCount - 1 do
      DestList.Add(ListBox1.Items[i] + ';' + ListBox2.Items[i]);
    DestList.SaveToFile(Dateiname);
  finally
    DestList.Free;
  end;
end;

[EarthQuaker]

Vielen Herzlichen Dank, funktioniert auf anhieb

MfG

Besteht die möglichkeit eigentlich wenn ich bei der listbox2 einen eintrag auswähle das auch gleichzeitig bei der listbox3 der selbe eintrag gewählt wird? also die selbe zeile!

MfG

[mkinzler]

Ja. Aber hier gilt neue Frage, neuer Thread.