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

[Artishok]

Здравствуйте, уважаемые форумчане!

У меня такой вопрос, в котором, я надеюсь, Вы мне поможете.

У меня в программе ПРИ КЛИКЕ Button сохраняется html - страница в txt - формате с помощью процедуры DownloadFile:

DownloadFile('URL страницы', 'C:/2.txt');

Где 2.txt - это новый файл. Как организовать так, чтобы при очередном клике файл 2.txt переименовывался в 1.txt а вновь сохраненный (новый) текстовый файл стал 2.txt?

И так какждый раз при каждом клике на Button

Если есть вопросы - отвечу. Помогите, пожалуйста

[Alex Cones]

RenameFile

[Artishok]

Спасибо. Что-то не додумался. Сделал

Люди добрые, помогите.
Еще вопрос:
после выполнения
DownloadFile('URL страницы', 'C:/2.txt'); файл 2.txt создается в кодировке UTF.

Там среди всего прочего есть строка Заработано: 1 000 000 рублей

Можно ли организовать поиск в этом файле(с кодировкой UTF)/ Мне нужно вытащить цифру 1 000 000 (поиск между "Заработано:" и "рублей"), при этом удалив пробелы (но это я потом сам наверное сделаю) и присвоив 1000000 в переменную.

Подскажите, намекните дураку, пожалуйста

[Kotofff]

Можно применить функцию UTF8ToAnsi(), а потом искать стандартными методами.
Т.е. загони текст из файла, например в StringList, а потом

SL.Text := UTF8ToAnsi(SL.Text);
// тут SL:TStringList;

[Artishok]

Kotofff, спасибо.

А как вытащить миллион?

Те комманды, что знаю, ищут только с какого-то символа, а мне еще надо до какого-то

[Alex Cones]

Pos`ом10букв

[Artishok]

Alex Cones, в текстовом файле и может быть 5 цифр, и 15. Но всегда статично между "Заработано:" и "рублей"

[Alex Cones]

10букв - это для форума, он не дупускает сообщения, короче 10-ти букв.
Pos('уже заработано',Sl.Text)
Отсюда скачите

[Artishok]

А до какога правого предела искать будет? Я ведь сам не знаю?

Или Вы предлагается через цикл? Типа считывать символы с 'уже заработано' до тех пор, пока не наткнемся на 'рублей'? Подскажите, пожалуйста...

[Serge_Bliznykov]

пробуй:

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

если числа заработка могут быть вещественными (с дробной частью),
тогда надо решить, что является разделителем дробной части и StToInt() заменить на StrToFloat()