Замена цен на сайте.

[Fahman]

Добрый день, я получаю код страницы и там куча тегов

<div class="price-value">1296.41<span> р.</span></div>

это каталог цен беру отсюда
как можно заменить массово все цены только предварительно надо настоящую цену изменить таким способом: набавить 3% и умножить на 4 ? и получившуюся цену изменить на настоящую. и р. заменить на тг))))
Пример:
Соединитель с фаской Т-306 стоит 1296.41 прибавляю 3% получается 1335.30 и умножаю это на 4 и того 5341.20 . а так надо массово все цены изменить в тегах.... как это можно сделать?

[BDA]

var
  myFormatSettings: TFormatSettings;
//...
procedure TForm1.Button1Click(Sender: TObject);
var
  RegEx: TRegEx;
begin
  RegEx := TRegEx.Create('(<div class="price-value">)(\d+|\d+\.\d+)(<span>)( р.)(</span></div>)');
  if RegEx.IsMatch(Memo1.Text) then
    Memo2.Text := RegEx.Replace(Memo1.Text, Evaluator);
end;

function TForm1.Evaluator(const Match: TMatch): string;
begin
  if Match.Groups.Count = 6 then
    Result := Match.Groups[1].Value + FormatFloat('0.##',
      StrToFloatDef(Match.Groups[2].Value, 0, myFormatSettings) * 4.12,
      myFormatSettings) + Match.Groups[3].Value + ' тг.' + Match.Groups[5].Value
  else
    Result := '';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  GetLocaleFormatSettings(GetThreadLocale, myFormatSettings);
  myFormatSettings.DecimalSeparator := '.';
end;

[Fahman]

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

var
  myFormatSettings: TFormatSettings;
//...
procedure TForm1.Button1Click(Sender: TObject);
var
  RegEx: TRegEx;
begin
  RegEx := TRegEx.Create('(<div class="price-value">)(\d+|\d+\.\d+)(<span>)( р.)(</span></div>)');
  if RegEx.IsMatch(Memo1.Text) then
    Memo2.Text := RegEx.Replace(Memo1.Text, Evaluator);
end;

function TForm1.Evaluator(const Match: TMatch): string;
begin
  if Match.Groups.Count = 6 then
    Result := Match.Groups[1].Value + FormatFloat('0.##',
      StrToFloatDef(Match.Groups[2].Value, 0, myFormatSettings) * 4.12,
      myFormatSettings) + Match.Groups[3].Value + ' тг.' + Match.Groups[5].Value
  else
    Result := '';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  GetLocaleFormatSettings(GetThreadLocale, myFormatSettings);
  myFormatSettings.DecimalSeparator := '.';
end;

Спасибо, не знал что можно регулярками решить но, у меня ругается на эту строку

RegExp := TRegExpr.Create('(<div class="price-value">)(\d+|\d+\.\d+)(<span>)( ð.)(</span></div>)');

типа я использую больше параметров(
[Error] Unit1.pas(42): Too many actual parameters

[BDA]

Я код писал в XE6. А вы какой версией пользуетесь?

[Fahman]

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

Я код писал в XE6. А вы какой версией пользуетесь?

7 версия у меня.

[Stilet]

Ну так наведи мышку на Create и посмотри сколько параметров туда передается.

[Fahman]

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

Ну так наведи мышку на Create и посмотри сколько параметров туда передается.

Месяца 3-5 не программировал вообще) и что-то туплю) весь в работе по этой фурнитуре и стеклу))))

Не нашел что то в сети уроков про эти параметры блин люди с разным сталкивались но примерно даже не нашел.

[Аватар]

Без уроков ни как, что ли? Их же не бывает на каждый чих. И нет в TRegExpr.Create ни каких параметров. У него выражение не в Create задается. Это не TRegEx

[BDA]

Аватар, в Delphi XE6 есть модуль System.RegularExpressions, в котором находится TRegEx типа "запись" с единственным конструктором:

constructor Create(const Pattern: string; Options: TRegExOptions = [roNotEmpty]);

[Аватар]

Я же не против. Только ТС вместо него использует TRegExpr, а это другое. И D7 у него как я понял, а не XE