VBNet - Форум - Проверка ввода IP-адреса

Вопрос: Проверка ввода IP-адреса Добавлено: 04.05.09 14:25

Автор вопроса: Alfred

Итак, у нас есть консоль, куда надо вводить IP-адресс. Вопрос: Как проверить правильность ввода данного IP?
Дополнительный вопрос: Есть ли встроенные функции проверки IP в консоле?
Ответить

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

Номер ответа: 1 Автор ответа: User Unknown Вечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302	Профиль \| \| #1	Добавлено: 04.05.09 14:34
	''' <summary> ''' method to validate an IP address ''' using regular expressions. The pattern ''' being used will validate an ip address ''' with the range of 1.0.0.0 to 255.255.255.255 ''' </summary> ''' <param name="addr">Address to validate</param> ''' <returns></returns> Public Function IsValidIP(ByVal addr As String) As Boolean 'create our match pattern Dim pattern As String = "^([1-9]\|[1-9][0-9]\|1[0-9][0-9]\|2[0-4][0-9]\|25[0-5])(\." & _ "([0-9]\|[1-9][0-9]\|1[0-9][0-9]\|2[0-4][0-9]\|25[0-5])){3}$" 'create our Regular Expression object Dim check As New Text.RegularExpressions.Regex(pattern) 'boolean variable to hold the status Dim valid As Boolean = False 'check to make sure an ip address was provided If addr = "" Then 'no address provided so return false valid = False Else 'address provided so use the IsMatch Method 'of the Regular Expression object valid = check.IsMatch(addr, 0) End If 'return the results Return valid End Function Ответить

Номер ответа: 2 Автор ответа: Alfred Вопросов: 4 Ответов: 22	Профиль \| \| #2	Добавлено: 04.05.09 14:48
	в консоле юзаю метод Console.ReadLine() ибо не нашел ничего более стоящего для получения IP-адреса юзаю Private Function getIP(ByVal strIP As String) As IPAddress getIP = IPAddress.Parse(strIP) Return getIP End Function Ответить

Номер ответа: 3 Автор ответа: Alfred Вопросов: 4 Ответов: 22	Профиль \| \| #3	Добавлено: 04.05.09 14:49
	аха, и всего-то. Спасибо Ответить

Страница: 1 |