Парсинг квадратной скобки "["

[DIgorevich]

Столкнулся с интересным явлением. Пишу небольшой парсер. И мне надо получить из строки

<a href="/forum/events/323/"><noindex>[03.04.2011] Название</noindex></a>

данные заключенные в квадратные скобки. Проблема в том, что поиск данного символа простым:

 x:=Pos('[',s);

ведет к зависанию программы. Но, в то же время если искать сначала:

x:=Pos('<noindex>',s);

а потом выводить следующий символ:

ShowMessage(s[x+9]);

то в сообщении скобка отображается правильно.
А если делать сравнение следующего символа:

if s[x+9]='[' then и дальше обработка

то опять идет зависание.

Прошу помощи, если кто сталкивался с подобным, либо знает решение проблемы.

[VadikV]

Так ты код покажи, приводящий к зависанию...

[DIgorevich]

Показываю:

procedure TForm1.btn2Click(Sender: TObject);
var
  ms:TmemoryStream;
  s:string;
  x:Integer;
begin
      ms:=TmemoryStream.create;
      idhtp1.Get('http://сайт.ru/forum/events/page1/',ms);
      ms.SaveToFile(extractfilepath(paramstr(0))+'1.html');
      ms.Free;
      mmo1.Lines.LoadFromFile(extractfilepath(paramstr(0))+'1.html');
      s:=mmo1.Text;
      mmo1.Text:=Utf8ToAnsi(s);
            x:=Pos('<noindex>',s);
            if s[x+9]='[' then ShowMessage('');
end;

я получаю исходную строку из интернета, но потом я ее перевожу в другую кодировку, чтобы русские символы читались:

s:=Utf8ToAnsi(s);

Если не переводить, то русских буковок нету, но и код все равно виснет.

[Человек_Борща]

эмм delphi7-2010 всё работает:

procedure TForm1.Button1Click(Sender: TObject);
const
  aMsg = '<a href="/forum/events/323/"><noindex>[03.04.2011] Название</noindex></a>';
var
  p: Integer;
  s: string;
  ResultS: string;
begin
  s := aMsg;
  p := AnsiPos('[', s);
  Delete(s, 1, Length(s) - p + 5);
  p := AnsiPos(']', s);
  Delete(s, p, Length(s));
  ShowMessage(S);
end;

[DIgorevich]

Человек_Борща, когда идет явное присваивание строки как у тебя, то все работает. НО. Я получаю эту строку из интернета, что и написано в моем предыдущем посте.

[Человек_Борща]

хаха, тогда это что?

procedure TForm1.btn2Click(Sender: TObject);
var
  ms:TmemoryStream;
  s:string;
  x:Integer;
begin
      ms:=TmemoryStream.create;
      idhtp1.Get('http://сайт.ru/forum/events/page1/',ms);
      ms.SaveToFile(extractfilepath(paramstr(0))+'1.html');
      ms.Free;
      mmo1.Lines.LoadFromFile(extractfilepath(paramstr(0))+'1.html');
      s:=mmo1.Text;

?

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

[DIgorevich]

Этот текстовый файл размером всего 40 кб. И парсится очень даже замечательно по разным тегам. А вот с символом "[" загвоздка. И только с ним.

[Человек_Борща]

попробовал вот так:

procedure TForm1.Button1Click(Sender: TObject);
const
  aMsg='<a href="/forum/events/323/"><noindex>[03.04.2011] Название</noindex></a>';
var
  s:string;
  p:Integer;
  Ch:Char;
begin
  s:=aMsg;
  p:=Pos('<noindex>',s);
  Ch:=s[p+9];
  if Ch ='[' then ShowMessage(string(ch));
end;

Опять же всё работает.

Можно примерчик html файла?

[Человек_Борща]

Ответил тебе в ЛС, а проблема вот где:

      while y<>0 do
        begin
          y:=Pos('<td class=title>',mmo1.Text);
          if y<>0 then
          begin
            s:=copy(mmo1.Text,0,y);
            x:=Pos('<noindex>',s);
            if s[x+9]='[' then ShowMessage('');
          end;
        end;

данный цикл стремится к бесконечности. Функция pos постоянно находит одну и туже строку(Позиция 105). Значит y никогда не будет равен 0.

Предлагаю зделать тебе так:
Нашёл строку, записал найденную позицию в список, удалил строку. Ищем снова. И так до конца файла. Потом переоткрываем файл и по сохранённым позициям прыгаем, и делаем что нам надо.

кстати, программа вешает процессор на 99+1% сразу понятно что не так=)

[maloun]

текст в TStringList и построчно ищем "[" скобу, я б так сделал