| Casa | Hardware | Redes | Programación | software | Criticar | Sistemas |   
Programación  
  • C /C + + Programming

  • Lenguajes De Programación

  • Delphi Programación

  • Programación Java

  • JavaScript Programación

  • Programación PHP /MySQL

  • Perl Programming

  • Python Programming

  • Rubí Programación

  • Visual Basics Programación
  •  
    Conocimientos Informáticos >> Programación >> Visual Basics Programación >> Content
    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

    Siguiente

    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.

    Previous :

    next :
      Artículos relacionados
    ·Cómo convertir un valor binario en Visual Basic 6 
    ·¿Cómo resolver ecuaciones en Visual Basic NET 
    ·Cómo organizar los números de menor a mayor uso de Vi…
    ·Cómo utilizar Grid Control Visual Basic 
    ·Cómo dejar de ejecutar una Sub en VBS 
    ·Cómo cambiar el color de la cuadrícula de datos en Vi…
    ·Cómo utilizar una variable como clave de un diccionari…
    ·Cómo mostrar un cuadro de imagen JPG en Visual Basic 
    ·Cómo cambiar automáticamente el caso de un cuadro de …
    ·Manera eficiente a Split cadenas en VB.NET 
      Artículos destacados
    ·Cómo comprobar una lista negra de IP PHP 
    ·Cómo utilizar COBOL Sintaxis 
    ·Cómo escribir un programa C + + que calcula la media P…
    ·Cómo crear una aplicación Email 
    ·Errores Unicode en Python 
    ·Cómo actualizar DIV 
    ·Software Tutorial de mantenimiento 
    ·¿Qué es un VB.NET Referencia 
    ·Cómo agregar una clave externa a MySQL 
    ·Cómo hacer comentarios en VBS Código 
    Copyright © Conocimientos Informáticos http://ordenador.wingwit.com