Всем привет!

Почему-то я не смог найти в Microsoft Access на чистом Visual Basic ни одного живого и до конца написанного примера перевода строкового IP-адреса в число и обратно. Находил примеры только на других языках. В результате родились две функции такого вида:

' Преобразуем число в строковый IP-адрес
Function Ip_to_String(Sss As Long)

Dim R1 As Double
Dim R2 As Double
Dim R3 As Double
Dim R4 As Double

R1 = Int(Sss / 256 / 256 / 256) 'Определяем 1 октет IP-адреса
R2 = Int((Sss - R1 * 256 * 256 * 256) / 256 / 256) 'Определяем 2 октет IP-адреса
R3 = Int((Sss - R1 * 256 * 256 * 256 - R2 * 256 * 256) / 256) 'Определяем 3 октет IP-адреса
R4 = Int(Sss - R1 * 256 * 256 * 256 - R2 * 256 * 256 - R3 * 256) 'Определяем 4 октет IP-адреса

'Сливаем все в одну кучу
Ip_to_String = Trim(Str(R1)) & "." & Trim(Str(R2)) & "." & Trim(Str(R3) & "." & Trim(Str(R4)))

End Function


' Преобразуем строковый IP-адрес в число
Function Ip_to_Integer(Sss As String)

Dim N1 As Byte
Dim N2 As Byte
Dim N3 As Byte

N1 = InStr(1, Sss, ".") ' Находим положение первой точки
N2 = InStr(N1 + 1, Sss, ".") ' Находим положение второй точки
N3 = InStr(N2 + 1, Sss, ".") ' Находим положение третьей точки

'Сливаем все в одну кучуIp_to_Integer = Mid(Sss, 1, N1 - 1) * 256 * 256 * 256 + Mid(Sss, N1 + 1, N2 - N1 - 1) * 256 * 256 + Mid(Sss, N2 + 1, N3 - N2 - 1) * 256 + Mid(Sss, N3 + 1, Len(Sss) - N3)

End Function


Вопрос заключается в том, правильно ли я все сделал? Не будет ли тормозить такой алгоритм в запросах при обращении к большим таблицам? Может есть какое-то более быстрое и гибкое решение? Подскажите, плиииз!

Большое спасибо! Я понял. :)

Инструкцию LSet я точно не догадался бы применить. Но теперь другая заковыка. Никак не могу сообразить, как грамотно сделать обратное преобразование. Как из строкового IP-адреса получить число Long не прибегая к ручной и медленной обработки строки Ip-адреса?

А в "Microsoft Access 97" есть функция spilt ? Чет у меня ошибку выдает. И в хелпе ее нет. :(

Ага. Понял. Спасибо! :)