Guardar en variable un valor que se encuentra luego del texto encontrado

[german_martin]

Estimados,
Tengo hecha una herramienta la cual siempre obtiene este mensaje:


NIC = Enabled
DHCP = Disabled
Static IP Settings: 10.99.95.67 255.255.255.0 10.99.95.1
Current IP Settings: 10.99.95.67 255.255.255.0 10.99.95.1

Yo necesito guardar en una variable el valor indicado en rojo pero hay que tener en cuenta que la cantidad de caracteres de ese numero IP puede cambiar como en el siguiente ejemplo:


NIC = Enabled
DHCP = Disabled
Static IP Settings: 192.168.100.55 255.255.255.0 10.99.95.1
Current IP Settings: 10.99.95.67 255.255.255.0 10.99.95.1

o este otro ejemplo

NIC = Enabled
DHCP = Disabled
Static IP Settings: NOHOST 255.255.255.0 10.99.95.1
Current IP Settings: 10.99.95.67 255.255.255.0 10.99.95.1


Entonces pregunto:
¿Alguien sabe como hago para guardar en una variable el numero de IP que aparece luego del texto Static IP Settings: ?

Muchas gracias!!!

[totigo]

Prueba esto:

Código vb:

Dim v_ip As String
 
v_ip = "10.99.95.67 255.255.255.0 10.99.95.1"
MsgBox "La ip es: " & Left(v_ip, InStr(v_ip, " ")), vbInformation
 
v_ip = "192.168.100.55 255.255.255.0 10.99.95.1"
MsgBox "La ip es: " & Left(v_ip, InStr(v_ip, " ")), vbInformation
 
v_ip = "NOHOST 255.255.255.0 10.99.95.1"
MsgBox "La ip es: " & Left(v_ip, InStr(v_ip, " ")), vbInformation
 
 
'InStr trae la posicion del primer espacio en blanco
'Left trae los N caracteres de la izquierda
 

[german_martin]

Mil gracias!!!... pero como podria hacer para enviar a una variable la primer palabra encontrada luego del texto "Static IP Settings:"

[David]

Podría ser:

Código vb:

ip = right(ip, len(ip) - instr(ip, "Static IP Settings: ") - 19)
ip = left(ip, instr(ip, " "))
 

[german_martin]

Sirvio perfectamente. Solucionado, MUCHAS GRACIAS!