Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос:  Как вынуть все адреса, которые без тегов из Добавлено: 22.03.05 20:41  

Автор вопроса:  VisBas | Web-сайт: chipmicro.narod.ru
 Как вынуть все ссылки, которые без тегов, из страницы Yandexa ?

Примеры с этого сайта не помогают, они не могут корректно работать с Yandex'om

Ответить

  Ответы Всего ответов: 14  

Номер ответа: 1
Автор ответа:
 HACKER


 

Разработчик Offline Client

Вопросов: 236
Ответов: 8362
 Профиль | | #1 Добавлено: 22.03.05 21:22
ну как, ручками, брать и парсить... :) А что конкретно не получается?

Ответить

Номер ответа: 2
Автор ответа:
 VisBas



Вопросов: 44
Ответов: 127
 Web-сайт: chipmicro.narod.ru
 Профиль | | #2
Добавлено: 22.03.05 22:13
Ручками можно, но хотелось бы по проще

Задача :
Вынуть только текст отображаемый IE.
Правильно вынуть, а то пример, который выкидывает html теги, с Yandex'om не работает.

Ответить

Номер ответа: 3
Автор ответа:
 CyRax



Разработчик Offline Client

ICQ: 204447456 

Вопросов: 180
Ответов: 4229
 Web-сайт: basicproduction.nm.ru
 Профиль | | #3
Добавлено: 22.03.05 22:17
Могу написать тебе библиотеку за 10 вечнозелёных если хочешь.

Ответить

Номер ответа: 4
Автор ответа:
 VisBas



Вопросов: 44
Ответов: 127
 Web-сайт: chipmicro.narod.ru
 Профиль | | #4
Добавлено: 22.03.05 23:00
Спасибо, за 10 вечнозелёных я и сам напишу..

Ответить

Номер ответа: 5
Автор ответа:
 CyRax



Разработчик Offline Client

ICQ: 204447456 

Вопросов: 180
Ответов: 4229
 Web-сайт: basicproduction.nm.ru
 Профиль | | #5
Добавлено: 22.03.05 23:04
:)))
 Ну как, стимул появился?

Это как в анекдоте, беги за такси - больше сэкономишь ;)

Ответить

Номер ответа: 6
Автор ответа:
 HACKER


 

Разработчик Offline Client

Вопросов: 236
Ответов: 8362
 Профиль | | #6 Добавлено: 23.03.05 16:14
гы.... о! я за 5 ! :))))))))

Ответить

Номер ответа: 7
Автор ответа:
 CyRax



Разработчик Offline Client

ICQ: 204447456 

Вопросов: 180
Ответов: 4229
 Web-сайт: basicproduction.nm.ru
 Профиль | | #7
Добавлено: 23.03.05 16:40
Представляю что это будет за библиотека ;)

Ответить

Номер ответа: 8
Автор ответа:
 HACKER


 

Разработчик Offline Client

Вопросов: 236
Ответов: 8362
 Профиль | | #8 Добавлено: 23.03.05 23:08

зато за 5 :)))))))))

Ответить

Номер ответа: 9
Автор ответа:
 Александр



Разработчик Offline Client

ICQ: 204034 

Вопросов: 106
Ответов: 1919
 Профиль | | #9 Добавлено: 24.03.05 08:16
Если я правильно понял, то вот код для проверки валидности email'a и
замены всех текстовых урлов (просто написан, не ссылка) на их аналоги,
но уже с ссылкой. Если не то, то звиняй... :))


Option Explicit
'Автор: Щелканов Александр
'Этот код использует VBScript.dll,а точнее Microsoft VBScript Regular Expressions 5.5
'Вы можете загрузить его с http://www.microsoft.com/msdownload/vbscript/scripting.asp

Private Sub cmdCheck_Click()
    Dim mRegEx As RegExp
    Set mRegEx = New RegExp
    With mRegEx
        'Игнорируем регистр
        .IgnoreCase = True
        'Наше условие для проверки
        .Pattern = "[_a-zA-Z\d\-\.]+@[_a-zA-Z\d\-]+(\.[_a-zA-Z\d\-]+)+"
        'Проверка строки (не работает со строками типа mailto:, а только с самими адресами)
        'Если потребуется проверять и с mailto:, но перепишите .Pattern
        MsgBox "Is e-mail: " & .Test(Trim(txtMail.Text))
    End With
End Sub

Private Sub cmdReplace_Click()
    Dim mRegEx As RegExp
    Set mRegEx = New RegExp
    With mRegEx
        'Игнорируем регистр
        .IgnoreCase = True
        'Наше условие для замены
        .Pattern = "\b((https?|telnet|gother|file|wais|mailto|ftp):[\w/#~:.?+=&%@!\-]+?)(?=[.:?\-]*(?: [^\w/#~:.?+=&%@!\-]|$))"
        'Используем  мультистроковую замену (если в текстбоксе есть vbCrLf)
        .MultiLine = IIf((InStr(1, vbCrLf, txtLink.Text) > 0), True, False)
        'Выполняем наше условие
        txtLink.Text = .Replace(txtLink.Text, "<a href=" & Chr(34) & "$1" & Chr(34) & ">$1</a>";)
    End With
End Sub

Ответить

Номер ответа: 10
Автор ответа:
 ISpy



Разработчик Offline Client

Вопросов: 47
Ответов: 621
 Web-сайт: intermult.boom.ru
 Профиль | | #10
Добавлено: 24.03.05 19:26
Представляю что это будет за библиотека ;)


зато за 5 :)))))))))
Ой, HACKER, уморил :)) я очень долго смеялся, пасибо тебе ;))))

Ответить

Номер ответа: 11
Автор ответа:
 Comanche



Вопросов: 87
Ответов: 459
 Профиль | | #11 Добавлено: 24.03.05 19:29
.Pattern = "\b((https?|telnet|gother|file|wais|mailto|ftp):[\w/#~:.?+=&%@!\-]+?)(?=[.:?\-]*(?: [^\w/#~:.?+=&%@!\-]|$))"

Боже... неужели тут можно что-либо понять?!
Или это эдакий мега-смайлик?!
:))

Ответить

Номер ответа: 12
Автор ответа:
 sne



Разработчик Offline Client

ICQ: 233286456 

Вопросов: 34
Ответов: 5445
 Web-сайт: hw.t-k.ru
 Профиль | | #12
Добавлено: 24.03.05 19:40
Гы ))))) Смайл и точно модный )))

Ответить

Номер ответа: 13
Автор ответа:
 Александр



Разработчик Offline Client

ICQ: 204034 

Вопросов: 106
Ответов: 1919
 Профиль | | #13 Добавлено: 30.03.05 08:39
Ага, это супер-пупер-мега-ультра смайлик :))
Описание на составление его правильно на этом сайте в статьях от Павла ;)

Ответить

Номер ответа: 14
Автор ответа:
 DaSharm



ICQ: 780477 

Вопросов: 72
Ответов: 1297
 Web-сайт: dasharm.com
 Профиль | | #14
Добавлено: 30.03.05 15:06
А можно DOM использовать...просто очень будет....

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам