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

[Artishok]

Спасибо.
Вот так сделали по Вашему примеру:

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;

[Jantar]

Здравствуйте, еще раз. Это Artishok
Не получается у меня связать открытый файл с кодировкой. Полдня мучаюсь

Я пока еще новичок в Delphi и очень хочу научиться.
Я вот так делаю:
1. Задаю типы,
2. Через AssignFile открываю нужный файл в кодировке UTF
3. Через ReadLn начинаю чтение
А потом заштопариваюсь, как связать SL.Text := UTF8ToAnsi(SL.Text); с моим открытым на чтение файлом.

Подскажите, пожалуйста как связать. Может, в readln нужные переменные правильные вставить или как еще. Если вопрос глуп или не понятен, то не закидывайте сразу тапками Благодарю заранее

[SERG1980]

Сообщение от Jantar

Здравствуйте, еще раз. Это Artishok
Не получается у меня связать открытый файл с кодировкой. Полдня мучаюсь

Я пока еще новичок в Delphi и очень хочу научиться.
Я вот так делаю:
1. Задаю типы,
2. Через AssignFile открываю нужный файл в кодировке UTF
3. Через ReadLn начинаю чтение
А потом заштопариваюсь, как связать SL.Text := UTF8ToAnsi(SL.Text); с моим открытым на чтение файлом.

Подскажите, пожалуйста как связать. Может, в readln нужные переменные правильные вставить или как еще. Если вопрос глуп или не понятен, то не закидывайте сразу тапками Благодарю заранее

SL это TStringList не надо его связывать. просто через него откройте файл

var SL:TStringList;
SL:=TSTringList.Create;
SL.LoadFromFile('c:\2.txt');
SL.Text := UTF8ToAnsi(SL.Text);
SL.SaveToFile('c:\1.txt');
SL.Free

[Jantar]

SERG1980, спасибо, теперь более понятно стало.

Но теперь новый кодированный файл 1.txt надо же связать с кодом:

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;

Необходимо теперь искать в файле 1.txt, а не 2.txt

[SERG1980]

У вас в этом файле одна строка будет с указанием суммы? если можно скиньте его

[Jantar]

Так как я не знал, как связать файл с StringList, то я делал так:

var
Zarabotok,p1,p2: integer;
sTemp, s :string;

begin 
s:='Заработано: 1 000 000 рублей';

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;

И уже в строке s искал. Но по идее, в файле 2.txt будет много строк, из которых я и вытаскиваю переменную Zarabotok

Вы об этом хотели спросить?

[SERG1980]

ну тогда можно пробежаться циклом по всем строкам стринглиста и проверять если в итой строке слово "Заработано" если да то присвоить эту строку переменной s и дальше как у вас написано

var SL:TStringList;
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;

[Jantar]

SERG1980, у меня в файле много строк.

[SERG1980]

Сообщение от Jantar

SERG1980, у меня в файле много строк.

вообще много или много со словами "заработано столько то рублей"

[Jantar]

Вообще много. Слова "заработано столько то рублей" только ОДИН РАЗ встречаются.