Parsing Problems

[cbzdmh]

Hi,
I've got the output from a ping command from which I want to extract the I.P. address. I can get it to work using several formula but want to be able to code it. How do I?

Output Text

Pinging PC.domain.net [128.58.42.10] with 32 bytes of data:
Reply from 128.58.42.10: bytes=32 time=6ms TTL=125
Ping statistics for 128.58.42.10:
Packets: Sent = 1, Received = 1, Lost = 0 (0% loss),
Approximate round trip times in milli-seconds:
Minimum = 6ms, Maximum = 6ms, Average = 6ms

I tried the following code but it doesn't work:

From_Loc = Find("from", output, 1)
Space_Loc = Find(" ", output, From_Loc)
Colon_Loc = Find(":", output, Space_Loc)

IP = Mid(output, (From_Loc + 1), (Colon_Loc - Space_Loc - 1))

 

[RoryA]

If output is the text, you can use Instr:

lngMatch = Instr(1, output, "Reply from ", vbTextCompare) + 11

to get the start of the IP address.

 

[cbzdmh]

Thank you very much, I'm sure ther's a more efficent version of this but this works.

ip_start = InStr(1, output, "Reply from ", vbTextCompare) + 11
ip_end = InStr(ip_start, output, ":", vbTextCompare)
Ip_Length = ip_end - ip_start

IP = Mid(output, ip_start, Ip_Length)