проверка синтаксиса url

[SAS]

Никто не может подкинуть код на vb для чисто синтаксической проверки адреса http:// , ftp:// , file:// (проверка чисто на синтаксис, без проверки существования адреса)

[OldRunaways]

Хм..., а чего тут так тихо (риторический вопрос)? Неужели все на ПХП перебрались, а про АСП забыли? ...непорядок, но вернёмся к теме

В данном случае стоит провереть наличие в начале урл указателя на протокол:

Код: Выделить всё

if left (UrlName, 7) = "http://" Or left (UrlName, 7) = "ftp://" Or left (UrlName, 7) = "file://" then

Ну и провереть на допустимость символов:

Код: Выделить всё

For i = 1 To Len(UrlName)
  intChar=Asc(Mid(UrlName, i, 1))
  If (intChar > 47 And intChar < 58) Or _
     (intChar > 63 And intChar < 91) Or _
     (intChar > 96 And intChar < 123) Or _

...и т.д..... перебираем все необходимые символы.

[Рома]

А не проще просто RegExp юзать? =)

Код: Выделить всё

Dim RegEx
Dim strToCheck
strToCheck = "http://www.url.ru" ' строка для проверки
Set RegEx = New RegExp
RegEx.Pattern = "[^A-za-z\x.\x//\x:\x@]"
RegEx.Global = True
strToCheck = RegEx.Replace(strToCheck,"")
' alternative way for error handle
' result = RegEx.Test(strToCheck) ' true OR false