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.