Функция перевода IP в число

@sergar · Регистрация: 03.03.2007

Студворк — интернет-сервис помощи студентам

Подскажите, пожалуйста, простенькую функцию, перевода строки
содержащий IP адрес в число (для сравнения входит ли IPx в диапазон IPy..IPz)

@ArtP · 11.04.2007, 18:23

Public Function IP2Long(IP As String) As Long
Dim s As String, Lng As Long, m As Long, i As Long, i0 As Long

s = Trim(IP)
i = InStr(1, s, '.')
m = 1000
Lng = 1
While i > 0
Lng =Lng * Val(Mid(s, i0 + 1, i - i0 - 1))*m
i0 = i
i = InStr(i0 + 1, s, '.')
m = m / 10
Wend
IP2Long = Lng
End Function

@sergar · 11.04.2007, 18:34 **[ТС]**

Спасибо

@ArtP · 11.04.2007, 19:17

Извини, немного забыл в конце

Public Function IP2Long(IP As String) As Long
Dim s As String, Lng As Long, m As Long, i As Long, i0 As Long

s = Trim(IP)
i = InStr(1, s, '.')
m = 1000
Lng = 1
While i > 0
Lng =Lng * Val(Mid(s, i0 + 1, i - i0 - 1))*m
i0 = i
i = InStr(i0 + 1, s, '.')
m = m / 10
Wend
' вот это я и забыл
if Len(s) > i0 then
Lng =Lng * Val(Mid(s, i0 + 1, Len(s) - i0))* m
end if
IP2Long = Lng
End Function

@sergar · 11.04.2007, 19:22 **[ТС]**

К сожалению, результат получается большей разрядности, чем Long

Не пойдет.. :-(

@ArtP · 11.04.2007, 19:26

'Еще извини теперь кажется совсем правильно
' Главное вовремя ивиниться

Public Function IP2Long(IP As String) As Long
Dim s As String, Lng As Long, m As Long, i As Long, i0 As Long

s = Trim(IP)
i = InStr(1, s, '.')
m = 1000
Lng = 0
While i > 0
Lng = Lng + Val(Mid(s, i0 + 1, i - i0 - 1)) * m
i0 = i
i = InStr(i0 + 1, s, '.')
m = m / 10
Wend
If Len(s) > i0 Then
Lng = Lng + Val(Mid(s, i0 + 1, Len(s) - i0)) * m
End If
IP2Long = Lng
End Function

@sergar · 11.04.2007, 19:40 **[ТС]**

Теперь похоже на правду..

Новые блоги и статьи Все статьи Все блоги /
Загрузка PNG-файла с альфа-каналом с помощью библиотеки SDL3_image на Android 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом

@sergar 0 / 0 / 0 Регистрация: 03.03.2007 Сообщений: 140

	Функция перевода IP в число 11.04.2007, 17:51. Показов 2011. Ответов 6 Метки нет (Все метки) Подскажите, пожалуйста, простенькую функцию, перевода строки содержащий IP адрес в число (для сравнения входит ли IPx в диапазон IPy..IPz) 0

@ArtP 3 / 3 / 0 Регистрация: 15.03.2007 Сообщений: 63
	11.04.2007, 18:23
	Public Function IP2Long(IP As String) As Long Dim s As String, Lng As Long, m As Long, i As Long, i0 As Long s = Trim(IP) i = InStr(1, s, '.') m = 1000 Lng = 1 While i > 0 Lng =Lng * Val(Mid(s, i0 + 1, i - i0 - 1))*m i0 = i i = InStr(i0 + 1, s, '.') m = m / 10 Wend IP2Long = Lng End Function 0

@sergar 0 / 0 / 0 Регистрация: 03.03.2007 Сообщений: 140
	11.04.2007, 18:34 [ТС]
	Спасибо 0

@ArtP 3 / 3 / 0 Регистрация: 15.03.2007 Сообщений: 63
	11.04.2007, 19:17
	Извини, немного забыл в конце Public Function IP2Long(IP As String) As Long Dim s As String, Lng As Long, m As Long, i As Long, i0 As Long s = Trim(IP) i = InStr(1, s, '.') m = 1000 Lng = 1 While i > 0 Lng =Lng * Val(Mid(s, i0 + 1, i - i0 - 1))m i0 = i i = InStr(i0 + 1, s, '.') m = m / 10 Wend ' вот это я и забыл if Len(s) > i0 then Lng =Lng Val(Mid(s, i0 + 1, Len(s) - i0))* m end if IP2Long = Lng End Function 0

@sergar 0 / 0 / 0 Регистрация: 03.03.2007 Сообщений: 140
	11.04.2007, 19:22 [ТС]
	К сожалению, результат получается большей разрядности, чем Long Не пойдет.. :-( 0

@ArtP 3 / 3 / 0 Регистрация: 15.03.2007 Сообщений: 63
	11.04.2007, 19:26
	'Еще извини теперь кажется совсем правильно ' Главное вовремя ивиниться Public Function IP2Long(IP As String) As Long Dim s As String, Lng As Long, m As Long, i As Long, i0 As Long s = Trim(IP) i = InStr(1, s, '.') m = 1000 Lng = 0 While i > 0 Lng = Lng + Val(Mid(s, i0 + 1, i - i0 - 1)) * m i0 = i i = InStr(i0 + 1, s, '.') m = m / 10 Wend If Len(s) > i0 Then Lng = Lng + Val(Mid(s, i0 + 1, Len(s) - i0)) * m End If IP2Long = Lng End Function 0

@sergar 0 / 0 / 0 Регистрация: 03.03.2007 Сообщений: 140
	11.04.2007, 19:40 [ТС]
	Теперь похоже на правду.. 0