[bulldog]

к примеру есть массив

Код:

const
NT = 5;
var
team: array[1..NT] of string[10] =
('1 ссылка','2 ссылка','3 ссылка','4 ссылка','5 ссылка')

и простой парсинг ссылки

Код:

while Pos('...',str)>0 do begin
 Form2.ListView1.Items[0].SubItems.Append(Copy(str,Pos('...',str)+12,7));
Delete(str,1, Pos('...',str)+12);

Если заведомо не известно какая ссылка на сайте, но есть шаблон етих ссылок, как организовать парсинг по массиву этих ссылок на их наличие?

[Страдалецъ]

Видимо примерно так:

Код:

 for i := 1 to NT
 do for j := 0 to Form2.ListView1.Items[0].SubItems.Count
     do if Form2.ListView1.Items[0].SubItems.Strings[j] = team[i]
         then // Нашли ссылку по шаблону

или наоборот, как вам нравится:

Код:

 for j := 0 to Form2.ListView1.Items[0].SubItems.Count
 do for i := 1 to NT
     do if Form2.ListView1.Items[0].SubItems.Strings[j] = team[i]
         then // Нашли ссылку по шаблону

[Bars1992]

естли известен шаблон то можно использовать так называемые регулярные выражения. В нети статьи есть.

[bulldog]

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

[Bars1992]

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

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

Плохо ты искал) вот тут и описание и примеры http://forum.vingrad.ru/articles/topic-213075.html

[Bars1992]

Вот пример поиска всех ссылок на странице:

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
var
rege:tregexpr;
s:string;
begin
s:=idhttp1.Get(edit1.Text);
rege:=tregexpr.Create;
rege.Expression:='(http|ftp)://([\w.]+)/([\w\?\+=\-\.\\]+)';
if rege.Exec(s) then
 begin
 memo1.Lines.Clear;
 memo1.Lines.Add('На данной странице найдены следущие ссылки:');
 repeat
 memo1.Lines.Add(rege.Match[0]);
 until not rege.ExecNext;
 end
 else
 memo1.Lines.Add('На данной странице ссылок не обнаружено...');

rege.Free;
end; 


чтобы всё это заработало надо подключить модуль "regExpr" . Файл модулюя прилогается.

[FreeSeeTman]

У меня тут ошибка:

Код:

s:=idhttp1.Get(edit1.Text); 

[FreeSeeTman]

Аа у меня компонента нет "idhttp" скиньте плиз!1

[friz]

вкладка indy client!

[Invisible]

на некоторых дельфи (версии которые весят около 100мб) реально нету компонента IDHTTP ...
ваще компоненты INDY нету кроме WebBrowser!)))

[FreeSeeTman]

ну так что? =(

[friz]

скачай Indy компоненты, в нете есть!

[Invisible]

http://indyproject.org/
их сайт))

[FreeSeeTman]

ОК...нафиг полную версию делфи установил теперь другая трабла...
Когда в едите пишешь ссылку которая попадает под описание а потом клик по батону:

// Debugger Exception Notification \\
"Project Project1.exe raised exception class EConvertError with message 'Invalid argument to data encode'. Process stopped. Use Step or Run to contine."

А если не попадает написаное под описание то:

// Debugger Exception Notification \\
"Project Project1.exe raised exception class EIdSocketError with message 'Socet Error # 10051 Network is unreachable.'. Process stopped.Use Step or Run to contine."

Такая тема...


з.ы. останавливается на этом: rege:=tregexpr.Create;

[FreeSeeTman]

Короче ребятки всё путём) Спасибо) Я хз но получилось)