парсинг хтмл

[Pein95]

for I := 1 to memo1.Lines.Count-1 do
  begin
    if pos('http://cs',memo1.Lines.Strings[i])<>0 then
    link:=copy(html,pos('http://cs',html),59);
    memo2.Lines.Add(link);
  end;

end;

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

   <td class="play_btn">
        <a onclick="playAudioNew('42012873_98329190')"><div class="play_new" id="play42012873_98329190"></div></a>
        <input type="hidden" id="audio_info42012873_98329190" value="http://cs5001.vkontakte.ru/u34387622/audio/3a518550ce84.mp3,210" />
      </td>
      <td class="info">
     <a onclick="playAudioNew('42012873_98215979')"><div class="play_new" id="play42012873_98215979"></div></a>
        <input type="hidden" id="audio_info42012873_98215979" value="http://cs4271.vkontakte.ru/u25134151/audio/d0c54406b907.mp3,275" />

[Serge_Bliznykov]

а почему ищете позиции в одном, а копируете из другого?!

я уже не говорю о том, что Memo2...Add у Вас вообще не зависит от if pos() then ... и выполняется столько раз, сколько строчек в Memo1 !

попробуйте примерно так:

  iPos1 := 0;
  s := Memo1.Lines.Text;
  while PosEx('HTTP://CS', AnsiUpperCase(s), iPos1+1)>0 do 
  begin
     iPos1 := PosEx('HTTP://CS', AnsiUpperCase(s), iPos1+1);
     link := Copy( s, iPos1, 59);
     memo2.Lines.Append(link);
  end;

для того, что "нашлась" функция PosEx не забудьте подключить модуль StrUtils в uses ...

p.s. ну и вместо 59 НАМНОГО лучше (и несложно, кстати) искать '.mp3' ну или завершающую кавычку '"'

[Pein95]

спс) просто голова уже не та) спать пора)