Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - .NET

Страница: 1 |

 

  Вопрос: как узнать является ли строка интернет ссылкой? Добавлено: 20.11.08 13:06  

Автор вопроса:  mishaprogrammer
как? пробовал типа:
dim giperssuylka
if left(3, giperssuylka) = "www" then
msgbox "Переменная является гиперссылкой"
end if

только VB.NET чето не хочет работать с оператором left...

Ответить

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

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



ICQ: 298826769 

Вопросов: 53
Ответов: 1732
  Профиль | | #1 Добавлено: 20.11.08 14:04
не знаю, как .net, но у тебя бы и vb6 не стал работать: left(stroka,kolichestvo)
и коли уж на то пошло, то лучше не по "www", а по "http://"...

Ответить

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



ICQ: 237822510 

Вопросов: 28
Ответов: 1182
  Профиль | | #2 Добавлено: 20.11.08 15:28
Ну и далеко не все ссылки сожержат www, впроче как и http://. ftp:// например, и многие другие.

Ответить

Номер ответа: 3
Автор ответа:
 @lex



Вопросов: 14
Ответов: 262
  Профиль | | #3 Добавлено: 20.11.08 15:51
  1. Dim Link As String
  2.         Link = "http://vbnet.ru"
  3.         Link = LCase(Link) 'Думаю понятно зачем
  4.         If (Mid(Link, 1, 7) = "http://") Or (Mid(Link, 1, 4) = "www.") Then
  5.             MsgBox("Это сцылка!")
  6.         '------------------------------------------------------------
  7.             If Mid(Link, 1, 4) = "www." Then
  8.                 Shell("C:\windows\explorer.exe http://" & Link)
  9.             Else
  10.                 Shell("C:\windows\explorer.exe " & Link)
  11.             End If
  12.         '------------------------------------------------------------
  13.         End If

Ответить

Номер ответа: 4
Автор ответа:
 @lex



Вопросов: 14
Ответов: 262
  Профиль | | #4 Добавлено: 20.11.08 15:54
Ааааа)) Это писатель мега тестового редактора :)))) Хехе))

Ответить

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



Вопросов: 26
Ответов: 66
  Профиль | | #5 Добавлено: 20.11.08 17:50
Спасибо. теперь в моем мегатекстовом редакторе есть работа с гиперссылками.

P. S. я сегодня только зарегистрироваться. А как смайлики вставлять?

Ответить

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



Разработчик

Вопросов: 130
Ответов: 6602
  Профиль | | #6 Добавлено: 20.11.08 18:26
mishaprogrammer пишет:
P. S. я сегодня только зарегистрироваться. А как смайлики вставлять?

Тем кто зарегестрировался месяц назад или позже запрещено вставлять смайлики.
А те кто уже давно на форуме, могут без проблем:

:) :( ;)

Ответить

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



ICQ: 298826769 

Вопросов: 53
Ответов: 1732
  Профиль | | #7 Добавлено: 20.11.08 19:09
mishaprogrammer: Не обращай на бранда внимания - он знаменитый майкрософтолюб и новичкофоб... Тут есть тема, где можно проголосовать против него, причем он сам об этом просит. :)

P.S. Смайлы ставятся ручками, а также двоеточиями, точко-запятыми и скобками...

Ответить

Номер ответа: 8
Автор ответа:
 Сергей



ICQ: 558230345 

Вопросов: 7
Ответов: 91
  Профиль | | #8 Добавлено: 20.11.08 22:02
в приведенном примере кода наверное лучше использовать
  1. System.Diagnostics.Process.Start(Link)

Это позволит отвязаться от указания расположения браузера и использовать дефалтовый.

Ответить

Номер ответа: 9
Автор ответа:
 BG(Алексей)



Вопросов: 26
Ответов: 295
  Профиль | | #9 Добавлено: 21.11.08 02:41
  1.     Public Shared Function IsUrl(ByVal Url As String) As Boolean
  2.         Dim rgx As New Regex("^(https?://)" + "?(([0-9a-z_!~*'().&=+$%-]+: )?[0-9a-z_!~*'().&=+$%-]+@)?" + "(([0-9]{1,3}\.){3}[0-9]{1,3}" + "|" + "([0-9a-z_!~*'()-]+\.)*" + "([0-9a-z][0-9a-z-]{0,61})?[0-9a-z]\." + "[a-z]{2,6})" + "(:[0-9]{1,4})?" + "((/?)|" + "(/[0-9a-z_!~*'().;?:@&=+$,%#-]+)+/?)$")
  3.         If rgx.IsMatch(Url) Then Return True Else Return False
  4.     End Function

Ответить

Номер ответа: 10
Автор ответа:
 @lex



Вопросов: 14
Ответов: 262
  Профиль | | #10 Добавлено: 21.11.08 11:49
Сергей пишет:
в приведенном примере кода наверное лучше использовать

Угу) Так получается лучше :) Просто я нуп в дотнете)
BG(Алексей), как оно страшно выглядит *CRAZY*

Ответить

Номер ответа: 11
Автор ответа:
 Алексей



black  admin

ICQ: 261779681 

Вопросов: 87
Ответов: 633
  Web-сайт: aleksey.nemiro.ru
 Профиль | | #11 		Добавлено: 21.11.08 12:19
В RichTextBox есть свойство и соответствующие событие для обработки ссылок.

Ответить

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



Вопросов: 26
Ответов: 66
  Профиль | | #12 Добавлено: 21.11.08 14:00
В RichTextBox есть свойство и соответствующие событие для обработки ссылок.
Какое интересно???

Ответить

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



black  admin

ICQ: 261779681 

Вопросов: 87
Ответов: 633
  Web-сайт: aleksey.nemiro.ru
 Профиль | | #13 		Добавлено: 21.11.08 14:05
Свойство DetectUrls - дефолтно включено (True)
Событие LinkClicked:
  1. Private Sub RichTextBox1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkClickedEventArgs) Handles RichTextBox1.LinkClicked
  2.     Process.Start(e.LinkText)
  3. End Sub

Ответить

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



Вопросов: 26
Ответов: 66
  Профиль | | #14 Добавлено: 21.11.08 14:49
Это чтобы гиперссылки автоматически выделялись. А чтобы в контекстном меню были пункты "перейти по ссылке" и др. это непоможет. надо в событии paint контекстного меню прописать код на определяемость строки на гиперссылку.!

Ответить

Страница: 1 |

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



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