ab einem bestimmten string alles was danach kommt verändern

potdog · Hält's aus hier Beiträge: 8

Hallo Leutz,

mit folgendem Code kann ich zwar schon den Inhalt einer Datei öffnen und an jede Zeile ",2;" anhängen, aber in dieser Datei gibt es Zeilen die anders behandelt werden müssen.
Wenn die Zeile ein "-" erhält dann soll er an die Position, in dieser Zeile, springen wo er ein "I" findet und ab da denn Rest löschen und da etwas anders hin schreiben.

Ich hoffe ich habe mich verständlich ausgedrückt?
Könnt ihr mir da weiter helfen?
THX

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

with opendialog1 do
begin
  if execute then
  begin
     StringList:=TStringlist.Create;

     begin
        with StringList do
        begin
          loadfromfile(opendialog1.FileName);

          for y:=0 to StringList.count-1 do
          begin
          neu:=StringList.Strings[y]+',2;';
          memo1.Lines.Add(neu);
          end;


       end;
    end;
    StringList.Free;
  end;

Moderiert von raziel: Delphi-Tags hinzugefügt

azubi_20 · Verfasst: Fr 22.09.06 21:12

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

with opendialog1 do
begin
  if execute then
  begin
  StringList:=TStringlist.Create;

   begin
   with StringList do
     begin
     loadfromfile(opendialog1.FileName);

     for y:=0 to StringList.count-1 do
     begin
 
      if Pos('-',StringList.Strings[y]) > 0 then
        neu := copy(StringList.Strings[y],0,Pos('I',StringList.Strings[y]))+'neu';

       memo1.Lines.Add(neu);
    end;

   end;
  end;
StringList.Free;
end;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme