Visual Basic - ayuda vb6

Life is soft - evento anual de software empresarial
   
Vista:

ayuda vb6

Publicado por MichBukana (1 intervención) el 02/09/2010 22:51:11
Hola quería pedirles ayuda puesto que estoy haciendo de un programa que hace un ping y el resultado es este:

dentro de text1
Haciendo ping a mbukana.sytes.net [88.1.44.230] con 32 bytes de datos:

Respuesta desde 88.1.44.230: bytes=32 tiempo=1ms TTL=64

Estadísticas de ping para 88.1.44.230:
Paquetes: enviados = 1, recibidos = 1, perdidos = 0
(0% perdidos),
Tiempos aproximados de ida y vuelta en milisegundos:
Mínimo = 1ms, Máximo = 1ms, Media = 1ms

y lo que quería hacer es obtener la ip, como pues obteniendo la string del resultado que se encuentra entre [] asi el resultado que me de sea 88.1.44.230
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:ayuda vb6

Publicado por Zen Master (134 intervenciones) el 03/09/2010 17:00:12
Para obtener la dirección que está entre los corchetes cuadrados [ ] la rutina sería la siguiente:

Private Function GetIP(Byval cadena As String) As String
Dim inicio As Integer
Dim final As Integer

inicio = InStr (1, cadena, "[") + 1
Final = InStr (1, cadena, "]")

GetIP = Mid(cadena, inicio, final - inicio)
End Function

Y llamas la función:

MsgBox "La dirección es: " & GetIP(Text1.text)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar