Как сделать парсер ссылок. Т.е. я хочу, чтобы парсер парсил часть ссылки со страницы http://tralalal.ru/bla, которые начинаются на http://qwerty.ru/т_е_эту_часть Если у кого-то есть или кто-то может написать, то обязательно отблагодарю!
Меня поражают такие темы... Как сделать... как сделать.... Ответ: Каком к верху... Изучив программирование
Code: s:=IdHTTP1.Get('http://tralalal.ru/bla'); memo1.Lines.Add(Copy(s,Pos('http://qwerty.ru',s)+17,Pos('[B][COLOR=White]</a>[/COLOR][/B]',s)-pos('http://qwerty.ru', s) -17)); Вместо </a> ставишь тэг, который идёт сразу после "т_е_эту_часть". Пример конешн - фуфло, но основа есть. Подкури мануалов, и всё придёт
Может ты тут самый продвинутый кодер? - Тогда нахрен ты зашел в данный раздел постебаться с тех кто хочет научиться? От себя добавлю - меня поражают такие личности которые серут по разным темам ради того чтобы набить себе сообщения, либо ради того чтобы попетушиться... По теме Решил вопрос
Большое спасибо. Получился такой код: Code: function Parse(const tag1, tag2, source: string): TStrings; var p, p2, len: Integer; begin tag1 := где начать парсить tag2 := где закончить парсить source := откуда парсить Result := nil; p := Pos(tag1, source); len := Length(tag1); p2 := PosEx(tag2, source, p + len + 1); if (p = 0) or (p2 = 0) then Exit; Result := TStringList.Create; while (p > 0) and (p2 > 0) do begin if p2 > p then Result.Add(Copy(source, p + len, p2 - p - len)); p := PosEx(tag1, source, p2); p2 := PosEx(tag2, source, p + len + 1); end; end; При этом парсится только 1 значение, хотя их на странице 100... В чем ошибка?
Получился у кого? Юзай отладчик, я проверял на парсинге ссылок на странице - находило все. Там откуда ты этот код взял и пример вызова был. Или пример страницы и граничных значений в студию - я стараюсь поддерживать свой код