VB extrae el texto especificado

Dim Tet() como cadena, Texto como cadena

Abrir "c:\1.text" como entrada n.º 1

Hacer mientras No detección de bucle EOF(1)

Entrada de línea #1, texto

Tet = Split(text, ":")

if Tet(0) = "<h2><李>Su dirección IP local"

text 1. text = trim(replace(Tet(1)," from "," "))

Salir Do

Terminará si...

Bucle

Cerrar #1

Conector final

Ps: Si Acepta mi respuesta, ¿puedes darme otro número mañana?