Замена текстового файла

[SERG1980]

Ну тогда и используйте код в посте 17, как нашли эту строку вышли из цикла что бы лишнего не лопатить

[Jantar]

Блин, совсем запутался Виснет приложение и все
SERG1980, скажите, пожалуйста как вместе связать коды:

SL:=TSTringList.Create;
SL.LoadFromFile('c:\2.txt');
SL.Text := UTF8ToAnsi(SL.Text);
for i:=0 to SL.Count-1 do
if Pos('Заработано',SL[i])<>0 then 
begin
 s:=SL[i];
 exit;
end;

и

Zarabotok := 0;
p1 := Pos('Заработано:',s);
p2 := Pos('рублей',s);
if p1>0 then begin
sTemp := Trim(Copy(s, p1+Length('Заработано'), p2-p1-Length('Заработано:')));
// теперь в sTemp строка начинающая с цифр...

Zarabotok := StrToInt(StringReplace(sTemp,' ','',[rfReplaceAll]));
end;

Буду благодарен, да... Еще не хочет "i" принимать как string. А как integer идет

Мне только лишь это непонятным осталось...

[Serge_Bliznykov]

  SL := TSTringList.Create;
  SL.LoadFromFile('c:\2.txt');
  s := UTF8ToAnsi(SL.Text);
  Zarabotok := 0;
  p1 := Pos('Заработано:', s);
  p2 := Pos('рублей', s);
  if (p1 > 0) and (p2>p1) then begin
    sTemp := Trim(Copy(s, p1 + Length('Заработано'), p2 - p1 - Length('Заработано:')));
// теперь в sTemp строка начинающая с цифр...

    Zarabotok := StrToInt(StringReplace(sTemp, ' ', '', [rfReplaceAll]));
  end;
  // и не забываем очистить TStringList!!!
  FreeAndNil(SL);

[Jantar]

класс eConvertError with massage is not a valid integer value...

[Serge_Bliznykov]

Означает, что у Вас между заработано и рублей не число!

как минимум вижу ошибку вот тут:
sTemp := Trim(Copy(s, p1 + Length('Заработано:'), p2 - p1 - Length('Заработано:')));

не помогло?!
ну так пройдитесь в отладке!!!
Посмотрите, сначала что попадает в s
потом, чему равна sTemp
(p.s. если не знаете что такое отладка,
то киньте на форму Memo и банально загоните текст в мемо, там всё увидите!)

[Jantar]

Ладно, всем огромное спаибо и низкий поклон за помощь.

Сам разберусь, дабы не садиться Вам на шеи. Еще раз огромное спасибо за помощь!

А код Zarabotok := 0;
p1 := Pos('Заработано:',s);
p2 := Pos('рублей',s);
if p1>0 then begin
sTemp := Trim(Copy(s, p1+Length('Заработано'), p2-p1-Length('Заработано:')));
// теперь в sTemp строка начинающая с цифр...

Zarabotok := StrToInt(StringReplace(sTemp,' ','',[rfReplaceAll]));
end;

правильный. Где-то ошибка в первой части кода

[SERG1980]

procedure TForm1.Button1Click(Sender: TObject);
var SL:TStringList;
    i:integer;
    s,zarabotok:string;
begin
 zarabotok:='';
 SL:=TSTringList.Create;
 SL.LoadFromFile('c:\2.txt');
 SL.Text := UTF8ToAnsi(SL.Text);
 for i:=0 to SL.Count-1 do
 if Pos('Заработано',SL[i])<>0 then
 begin
  s:=SL[i];
  break;
 end;
 for i:=1 to length(s) do
 if s[i] in['0'..'9'] then zarabotok:=zarabotok+s[i];
 showmessage(zarabotok+' рублей');
 SL.Free;
end;

только здесь переменная zarabotok типа string если что переведите её с помощью ф-ии strtoint(zarabotok);

[Jantar]

Огромное спасибо, уважаемые. Все получилось!

Чтобы я без Вас всех делал!!!