[Обсуждение] Парсер ссылок

[Павел.DO]

Всем привет. Сегодня сел, и "заново изобрел велосипед" за это прошу тапками не закидывать) Написал первую программу на дельфи, которая хоть что-то может) Очень сыро, с использованием учебников и т.д...но всё же первое творение) прошу проверить на работоспособность...
[Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ]

В верхнее поле вводим ссыль на страницу в формате "http://www.адрес.ru/. Ниже получаем все ссылки с этой странички. При нажатии кнопки "сохранить" в папке с программой создаётся текстовый документ. Тапками не кидайте. Как я уже говорил, это первое творение. Проверяем..

[windust]

Простенький нормальный парсер

[Павел.DO]

Цитата: Сообщение от windust Простенький нормальный парсер

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

[windust]

не у всех будет видно alphaskins

[mad_cat]

Цитата: а то в скайп скинул знакомому, у него обычная форма отображается

у меня видно

[Gum4ik]

Не плохо,alphaskins виден.
P.S а разве ты раньше проги на DO не писал?)

[Павел.DO]

Цитата: Сообщение от Gum4ik Не плохо,alphaskins виден. P.S а разве ты раньше проги на DO не писал?)

не. я только баги выкладывал..) недавно изучать начал языки програмирования)

[VeTaL_UA]

3 по пяти бальной шкале.

[OperationxD]

Было бы круто, если бы исходник выложил бы)

[Gum4ik]

Цитата: Сообщение от OperationxD Было бы круто, если бы исходник выложил бы)

А разве это необходимо? думаю элементарный парс,должен знать каждый программист,ну а если действительно он вам нужен могу выложить в ЛС

[Павел.DO]

как сделать так, чтоб в listbox строки у которых нет значения не добавлялись?)

listbox1.items.add('Имя: '+Pars('<li class="profilefield_category">О',Source.Text,'<dl class="list_no_decoration profilefield_list">'));

вот таким способом пытаюсь парсить ники. но парсит не у всех. (только у обычных юзеров). как сделать чтоб строки "Имя: " (т.е. где не нашёл значения) не выводились?)

[metraz]

в процедуре клика парса записано ~ следующее: memo1.text:=http.get(edit1.text);

[mad_cat]

var s:string;
{....}

s:=Pars('<li class="profilefield_category">О',Source.Text,'<dl class="list_no_decoration profilefield_list">'));
if s<>'' then listbox1.items.add('Имя: '+s);
{.....}

Цитата: в процедуре клика парса записано ~ следующее: memo1.text:=http.get(edit1.text);

а мемо называется видимо Source