Cómo extraer un IP De Texto Con VBS

Visual Basic Script sobresale a la automatización de las tareas simples , pero cuando llega el momento de realizar la manipulación de textos complejos , tienes que sacar la artillería pesada . El lenguaje de expresiones regulares para buscar y manipular texto en formas sofisticadas ha existido por décadas y ha sido parte de la secuencia de comandos de Visual Basic desde finales de los años 90 . El uso de este idioma, puede ir a través de documentos completos caza de información difícil de encontrar , como las direcciones IP válidas . Instrucciones
1

Abrir Bloc de notas ( o cualquier otro editor de texto plano ) y pegue el texto siguiente :

"Este es un texto que contiene direcciones IP, como 194.23.14.34 y 238.12 . 43.54 . también contiene una dirección IP falsa , tales como 493.234.534.234 , que no será detectada, ya que no representan direcciones IP reales posibles . "

Esto se utiliza como el texto de prueba para la secuencia de comandos . Si funciona correctamente , el script debe recoger las dos primeras direcciones IP , pero no el último . Las direcciones IP pueden contener números sólo entre 0 y 255 . Desde la última utiliza " 493 " y " 534 ", que no es válido y no debe ser detectado por su guión.
2

Guárdalo con el nombre " textWithIPs.txt . "
< Br . > Página 3

Presione " Ctrl -n " para abrir un nuevo documento en el Bloc de notas
4

Escriba lo siguiente :

dim FSO , archivo de texto , texto, IPList , re

const ForReading = 1

conjunto re = New RegExp

re.Global = True

re.Pattern = FSO = CreateObject ( " Scripting.FileSystemObject " )

conjunto TEXTFILE = FSO.OpenTextFile ("c : \\ textWithIPs.txt " , ForReading )

text = " "

hacer hasta textFile.atEndOfStream
texto

= texto y textFile.readLine

loop

textFile.close

conjunto IPList = re.Execute (texto)

para cada IP en IPList

MsgBox resultado

guárdelo con el nombre de " ipExtractor.vbs . " Asegúrese de que la extensión es " vbs " y no " txt ".
5

clic en "Inicio" y " Mi PC". Haga doble clic en la carpeta "C : \\ " " . IpExtractor.vbs " unidad y haga doble clic en el archivo Después de un breve momento , debe aparecer una serie de cuadros de mensaje que contiene todas las direcciones IP en el archivo de texto , pero no las direcciones no válidas.