Running a query to extract substring

[geetu83]

Hey thr!

I am in a fix please help me out.
Thing is i have extracted IP address now i want the substrings in parts. e.g.
if Ip address is 121.43.45.56 i want 121 , 43, 45 and 56 separately. how shud i go about it.

I tried for substring_index but wasnt successful.

waiting fr reponse....
thanks

[PEB]

Hi
Create module and add this function to it!

Function get_word(my_sentence, sep, word_N) As String
Dim Result As Integer
Dim my_str
Dim my_word
Result = 1
'Stop
Do While InStr(1, my_str, sep) > 0
    If Result = word_N Then
        my_word = Mid(my_str, 1, InStr(1, my_str, sep) - 1)
        get_word = my_word
        Exit Function
    End If
Result = Result + 1
my_str = Mid(my_str, InStr(1, my_str, sep) + 1, Len(my_str) - 1)
Loop
    If Result = word_N Then
        my_word = my_str
        get_word = my_word
        Exit Function
    End If
get_word = ""
End Function
 

In your query

First:get_word([IP], ".", 1)
Second:get_word([IP], ".", 2)
Tird:get_word([IP], ".", 3)
And so on...

Have a nice day!

:)

Hey thr!

I am in a fix please help me out.
Thing is i have extracted IP address now i want the substrings in parts. e.g.
if Ip address is 121.43.45.56 i want 121 , 43, 45 and 56 separately. how shud i go about it.

I tried for substring_index but wasnt successful.

waiting fr reponse....
thanks

[geetu83]

hey

thanks a lot for tht!

Hi
Create module and add this function to it!

Function get_word(my_sentence, sep, word_N) As String
Dim Result As Integer
Dim my_str
Dim my_word
Result = 1
'Stop
Do While InStr(1, my_str, sep) > 0
    If Result = word_N Then
        my_word = Mid(my_str, 1, InStr(1, my_str, sep) - 1)
        get_word = my_word
        Exit Function
    End If
Result = Result + 1
my_str = Mid(my_str, InStr(1, my_str, sep) + 1, Len(my_str) - 1)
Loop
    If Result = word_N Then
        my_word = my_str
        get_word = my_word
        Exit Function
    End If
get_word = ""
End Function
 

In your query

First:get_word([IP], ".", 1)
Second:get_word([IP], ".", 2)
Tird:get_word([IP], ".", 3)
And so on...

Have a nice day!

:)