Поиск в тексте

[jone]

Доброго время суток уважаемые програмисты!
Как можно выдернуть из страницы сылки?
с первой задачей я справился сохранил документ а вот сылки найти методом pos немагу . К примеру 1 из сылок

<a href="http://sait.ru/index.php?k=*****" target="_blank">Я люблю тебя ЮЛЯ!!!!!!!</a>

всё что после звёздочик меняется в каждой сыдке, количество сылок может быть разным. Каждую сылку скинуть в мемо1.

Помогите. буду очень благодарен.

[mihali4]

всё что после звёздочик меняется в каждой сыдке

Ну и что? Между прочим, к адресу ссылки вся эта байда "после звездочек" не имеет отношения. Адрес ссылки - это строковая переменная, заключаемая, как ей и положено, в кавычки.
Есть, кстати, еще одна функция - PosEx.
Как раз с ее помощью определите первые кавычки (или апостроф) после полученной позиции "http://" (надеюсь, вы именно ее определяете при помощи Pos?).
После этого останется скопировать кусок строки между этими позициями и "скинуть в мемо1".

[Sibedir]

А я не понял вопрос. Вообще, если вопрос не понятен, лучше и не отвечать, но я попробую.
Вам надо из
<a href="http://sait.ru/index.php?k=*****" target="_blank">Я люблю тебя ЮЛЯ!!!!!!!</a>
получить
http://sait.ru/index.php?k=*****" target="_blank
?
Допустим в Memo1 хранятся эти самые ссылки. В Memo2 записываем результат:

procedure TForm1.Button1Click(Sender: TObject);
var
  i, b, e: Integer;
  s: String;
begin
  Memo2.Lines.Clear;
  for i := 0 to Memo1.Lines.Count - 1 do begin
    s := Memo1.Lines[i];
    b := Pos ('http', s);
    e := Pos ('">', s);
    Memo2.Lines.Add (Copy (s, b, e-b));
  end;
end;

З.Ы.: На будущее, пишите вопрос так, чтобы над ним не пришлось ломать голову. Ну что, вам лень немного постучать но клаве. Ведь вы же не хотите, чтобы те, кто вам отвечал, ленились писать.

[jone]

Лан попытаюсь по другому обяснить

мне дана страница, там много чего но где-то по середине её есть столбик с сылками и каждая сылканачилается на http://sait.ru/index.php?k= а после етого идёт изменение например http://sait.ru/index.php?k=1 потом http://sait.ru/index.php?k=2 итд... как еты сылки дастать

[mihali4]

как еты сылки дастать

Перечитав пост N2.
Или вы хотите получить здесь готовый код для такой ерунды?
Ну ждите, найдется кто-нибудь, желающий "блеснуть знаниями".
А мы - ПОМОГАЕМ, а не решаем за вас (хотя это совсем не трудно).

[jone]

Вот надумал только нечего невыходит

procedure TForm1.Button6Click(Sender: TObject);
begin
LMem1:=1100;
for Ip:= 0 to LMem1 do
begin
s1:= Memo1.Lines[Ip];
trim(s1);
ps:= pos(hd,s1);
if ps <> 0 then
begin
Delete(s1,1,ps);
ps:= pos('"',s1);
if ps <> 0 then
begin
Delete(s1,1,ps);
ps:= pos('"',s1);
if ps <> 0 then
begin
Delete(s1,ps,ps+7);
end;
end;
memo2.Lines.Add(s1);

end;
end;
end;
end.

[mihali4]

Почему LMem1:=1100; ???
Выше, чем Memo1.Lines.Count-1 не прыгнуть...
ps:= pos(hd,s1);
Где вообще объявления всех переменных? Какое значение присвоено HD?
Delete(s1,1,ps);
Это-то вообще зачем? Нам нужно определить всего 2 цифири (начала и конца урла) и скопировать функцией COPY то, что находится в этих пределах...
ps:= pos('"',s1);
Написал ведь - есть такая функция PosEx, которая позволяет делать то же, что и Pos, но не с начала строки, а с любого места...
Кошмар... Сил моиих нет больше...

var tmp: string;
    i,cnt1,cnt2: integer;
begin
Memo2.Clear;
for i:=0 to Memo1.Lines.Count-1 do
begin
tmp:='http://';
cnt1:=Pos(tmp,Memo1.Lines[i]);
if cnt1>0 then
begin
tmp:='"';
cnt2:=PosEx(tmp,Memo1.Lines[i],cnt1);
if cnt2>0 then
Memo2.Lines.Add(Copy(Edit1.Text,cnt1,cnt2-cnt1));
end;
end;
end;

[jone]

делфи 7
[Error] int.pas(328): Undeclared identifier: 'PosEx' выдёт

[jone]

я сам отвечу на свой вопрос uses StrUtils

[jone]

хи так но несовсем

вот страничка там сылки:

Я люблю тебя ЮЛЯ!
Лучшие загрузки инетa собраны здесь!!..........
Бесплатно: Лучшей хиты ява-игр только на .......




_________________________
Блин расцеловал бы вас =)