Парсинг для новичка

[Maxim223]

Уже делал парсинг в Delphi, но забыл как это делается. Если не затруднит - подскажите пожалуйста.

Есть memo, в нем запись:

<h2 class="text-primary"><span itemprop="price">4 000</span>
<span itemprop="priceCurrency">

Как выдернуть отсюда, например, в Label цифру 4000. В коде после 4 идет пробел, его тоже нужно убрать.

Можно простой код? Заранее спасибо!

[Alex11223]

Взять HTML/XML парсер и использовать XPath, CSS селекторы и т.п.

Желательно перед этим выкинуть Дельфи и взять нормальный язык, где нет проблем с поиском и подключением (см. пакетный менеджер) библиотек.

[Maxim223]

Нужен Pos или PosEX. И именно в Delphi.

[Sciv]

Ну, например, так

p := pos('</span>', s);
if p > 0 then 
begin
  i := p - 1;
  s1 := '';
  while s[i] <> '>' do
    if s[i] <> ' ' then
      s1 := s[i] + s1;
end;

или так:

p := pos('<span', s);
i := p;
while s[i] <> '>' do inc(i);
inc(i);
s1 := '';
while s[i] <> '<' do
  if s[i] <> ' ' then
    s1 := s1 + s[i];

или ещё так:

p := pos('</span', s);
Delete(s, p, length(s) - p + 1);
p := pos ('">',  s);
Delete(s, 1, p + 2);
StringReplace(s, ' ', '', [rfReplaceAll]);

[Alex11223]

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

Нужен Pos или PosEX.

ну так смотрите какие у них параметры.
Но это плохой и сложный способ парсинга HTML, даже хуже regexp.

[northener]

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

Уже делал парсинг в Delphi, но забыл как это делается.

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

Нужен Pos или PosEX. И именно в Delphi.

Если вы пишете код собирая говно надыбанное из интернета, то рекомендую вам сохранять эти исходники на всю оставшуюся жизнь. Вам же легче будет!
Хотя кому я говорю про легче?

[unreal2x]

Всем привет. Нужна помощь... чет не разобрался.
Нужно получить любое кол-во (может один быть... может образно говоря 1000) разного любого текста между сепаратором Version.

Есть файл с текстом:

Version : 1.0
тут любой текст разный
Title : Tra-ta-ta
Text : Tra-ta-ta
все еще любой текст
Version : 1.0
тут любой текст разный
Text : Tra-ta-ta
все еще любой текст
Version : 1.0
тут любой текст разный
Title : Tra-ta-ta
Mod : Tra-ta-ta
все еще любой текст

Я пробую вот так... и чета фигня какая то.

var
i,j:integer;
SL: TStringList;
begin
j:=0;

SL:=TStringList.Create;
SL.LoadFromFile(form1.OpenDialog1.FileName);
SL.Add('Version');

for i:=0 to SL.Count-1 do
  begin

    if pos('Version',SL.Strings[i]) > 0 then
    begin

    showmessage(pars(SL.Strings[j],SL.Text,SL.Strings[i]));
    end;

  j:=i;
  end;

SL.Free;
end;