Cześć,
Zacząłem dziś bawić się delphi.
Chcę stworzyć prosty programik, który zamieni pierwszą linię o wartości A w pliku tekstowym na linię o wartości B, oraz wszystkie linie o wartości C na linie o wartości D.
Przykład:
Plik przed obróbką:
O
P
A
I
A
C
I
C
C
I
Plik po obróbce:
O
P
B
I
A
D
I
D
D
I
Korzystając z zasobów internetu udało mi się z tym, aby zamienił pierwszą linię o wartości A na wartość B, ale nie mogę sobie poradzić z tym, żeby zamienił wszystkie C na D.
Póki co kod wygląda tak:
var
Form1: TForm1;
SL: TStringList;
InsTextPos: Integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
SL := TStringList.Create;
try
SL.LoadFromFile('d:\new.txt');
InsTextPos := SL.IndexOf('A');
if InsTextPos >= 0 then
begin
SL.Delete(InsTextPos);
SL.Insert(InsTextPos, 'B');
SL.SaveToFile('d:\new.txt');
end;
finally
SL.Free;
end;
end;
end.
Macie może jakieś rady?
Nie chodzi o zmianę jeśli linia zawiera wartość C, ale o zamianę jeśli linia zawiera TYLKO wartość C.
Z góry dziękuję za pomoc.