Парсер текста

[bender42]

Здравствуйте
Уважаемы кодеры помогите решить задачку так как сам с ней не в состоянии справится

есть html страница полученная через get запрос
так вот как мне из неё выдернуть нужный мне текст (не 1 строка а несколько)
работаю в потоке.

код который у меня получился

Он работает но иногда выдаёт всякую хрень тобич не то что должно быть

 Delete(g,1,pos('<ul id="userbar_list_3" class="jcarousel-skin-referal">',g)+length('<ul id="userbar_list_3" class="jcarousel-skin-referal">'));
        g:=copy(g,1,pos('</ul>',g)-1);
          sRez := '';
            s := output1;
              isTag := false;
           for i:=1 to Length(s) do begin
              if s[i]='" style="' then isTag := true
          else begin
              if not isTag then sRez := sRez + s[i]
                      else
                  if s[i]='ublink=' then begin sRez := sRez + ' '; isTag := false;
                  output1:= sRez;
             end;
         end;
      end;

[BDA]

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

[bender42]

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

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

<ul id="userbar_list_3" class="jcarousel-skin-referal">
								<li ublink="/userbar/bar.jpg" style="background-image: url(/userbar//bar.jpg)"></li><li ublink="/userbar/bar.jpg" style="background-image: url(/userbar/bar.jpg)"></li>
							</ul>

Вот от сюда мне нужно спарсить "/userbar/bar.jpg"

[BDA]

uses StrUtils;
...
function extract(const text, begin1, end1: string): string;
var
  startpos, endpos: integer;
begin
  result := '';
  startpos := Pos(begin1, text);
  if startpos < 1 then
    exit;
  inc(startpos, length(begin1));
  endpos := PosEx(end1, text, startpos);
  if endpos < 1 then
    exit;
  result := Copy(text, startpos, endpos - startpos);
end;
...
showmessage(extract(text, 'ublink=', ' style='));

[bender42]

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

uses StrUtils;
...
function extract(const text, begin1, end1: string): string;
var
  startpos, endpos: integer;
begin
  result := '';
  startpos := Pos(begin1, text);
  if startpos < 1 then
    exit;
  inc(startpos, length(begin1));
  endpos := PosEx(end1, text, startpos);
  if endpos < 1 then
    exit;
  result := Copy(text, startpos, endpos - startpos);
end;
...
showmessage(extract(text, 'ublink=', ' style='));

к сожалению ругается на "uses StrUtils;"

извиняюсь она у меня уже объявлена была)

к сожалению он парсит только 1 строку из 0-20 =(

[Eo0le]

к сожалению он парсит только 1 строку из 0-20 =(

Используйте цикл.

[BDA]

Тогда нужно использовать чуть другую реализацию:

function extract(const text, begin1, end1: string; var Pos1: integer): string;
  overload;
var
  startpos, endpos: integer;
begin
  result := '';
  startpos := PosEx(begin1, text, Pos1);
  if startpos < 1 then
  begin
    Pos1 := -1;
    exit;
  end;
  inc(startpos, length(begin1));
  endpos := PosEx(end1, text, startpos);
  if endpos < 1 then
  begin
    Pos1 := -1;
    exit;
  end;
  Pos1 := endpos + length(end1);
  result := Copy(text, startpos, endpos - startpos);
end;
...
st := tstringlist.Create;
j := 1;
tmp := extract(text, 'ublink=', ' style=', j);
while j <> -1 do
begin
  st.Append(tmp);
  tmp := extract(text, 'ublink=', ' style=', j);
end;
showmessage(st.text);
st.destroy;

[bender42]

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

Тогда нужно использовать чуть другую реализацию:

function extract(const text, begin1, end1: string; var Pos1: integer): string;
  overload;
var
  startpos, endpos: integer;
begin
  result := '';
  startpos := PosEx(begin1, text, Pos1);
  if startpos < 1 then
  begin
    Pos1 := -1;
    exit;
  end;
  inc(startpos, length(begin1));
  endpos := PosEx(end1, text, startpos);
  if endpos < 1 then
  begin
    Pos1 := -1;
    exit;
  end;
  Pos1 := endpos + length(end1);
  result := Copy(text, startpos, endpos - startpos);
end;
...
st := tstringlist.Create;
j := 1;
tmp := extract(text, 'ublink=', ' style=', j);
while j <> -1 do
begin
  st.Append(tmp);
  tmp := extract(text, 'ublink=', ' style=', j);
end;
showmessage(st.text);
st.destroy;

Спасибо помогло)

[BDA]

Попробуйте так:

j := 1;
tmp := extract(text, 'ublink=', ' style=', j);
while j <> -1 do
begin
  st.Append(tmp);
  j := PosEx('</ul>', text, j);
  if j > 0 then
    tmp := extract(text, 'ublink=', ' style=', j);
end;

А вообще, это гадание по кофейной гущей (я же не вижу всего текста и точно не знаю, что и в каком количестве нужно получить).
Или так:

function extract(const text, begin1, end1, next1: string; var Pos1: integer): string;
  overload;
var
  startpos, endpos: integer;
begin
  result := '';
  startpos := PosEx(begin1, text, Pos1);
  if startpos < 1 then
  begin
    Pos1 := -1;
    exit;
  end;
  inc(startpos, length(begin1));
  endpos := PosEx(end1, text, startpos);
  if endpos < 1 then
  begin
    Pos1 := -1;
    exit;
  end;
  Pos1 := endpos + length(end1);
  Pos1 := PosEx(next1, text, Pos1);
  result := Copy(text, startpos, endpos - startpos);
end;
...
st := tstringlist.Create;
j := 1;
tmp := extract(text, 'ublink=', ' style=', '</ul>', j);
while j <> -1 do
begin
  st.Append(tmp);
  tmp := extract(text, 'ublink=', ' style=', '</ul>', j);
end;
showmessage(st.text);

[ingushmen]

procedure parser(html:string); //Процедура для парсинга кода
begin
//HTML - сам исходный код который вносится в переменную
while Pos('href="', html) <> 0 do 
begin

Delete(html, 1, Pos('href="', html) + Length('href="') - 1);
Form1.Memo1.Lines.Add(Copy(html, 1, Pos('"', html) - 1));

Application.ProcessMessages;
end;
end;

Всё просто и легко. Парсим и удаляем из HTML то, что спарсили, дабы потом не парсить одно и то же.