Acerca de las expresiones regulares en lenguaje sencillo...

Con respecto a las expresiones regulares, debe comprenderlas usted mismo. La idea básica es la siguiente

Versión 2

Admite biblioteca RegEx

. p >

.Ensamblaje de ventana de programa 1

.Subroutine_Button1_Clicked

.Variable local regular, expresión regular

.Resultado de IP de variable local, Resultados de búsqueda, " 0"

. Resultados del puerto de variables locales, resultados de búsqueda, "0"

. Resultados del protocolo de variable local, resultados de búsqueda, "0"

. Variable local i, número entero

General. Crear ("(\d{1,3}\. \d{1,3}\. \d{1,3}\. \d{1,3}) ", )

IP resultado = regular.Buscar todo (Editar cuadro 1. Contenido)

Regular.Create ("\s\d \s", )

Portar resultado = regular.Buscar todo (Editar Cuadro 1. Contenidos)

Regular.Create ("[A-Z\/a-z] $", )

Resultado del protocolo = regular.Buscar todo (editar cuadro 1. Contenidos)

.Cuenta el bucle primero (toma los miembros de la matriz (resultados de IP), i)

SuperListBox1.Inserta entradas de tabla (i, , , , , )

SuperListBox1.Title (i - 1, 0, a texto (resultados de IP [i]. Obtener texto coincidente (cuadro de edición 1. contenido,))

SuperListBox1.Title (i - 1, 1, a texto (portar resultados) [i]. Obtener texto coincidente (editbox1.content, )))

SuperListBox1.PlaceTitle (i - 1, 2, to Text (Resultado del protocolo [i]. Obtener texto coincidente (editbox1.content, ) )

.Calcular hora de finalización del bucle ()

.Subrutina __Launch Window_Created

Edit Box 1.Contents = "192.168.1.1 8080 HTTP" #Wrap "175.156 .157.25 80 FTP" #Wrap "10.168.1.105 8080 TCP/IP" #Wrap "175.156.157.25 80 FTP" #Wrap "10.168.1.105 8080 TCP/IP" #Wrap "10.168.1.105 8080 TCP /IP # Salto de línea " 175.156.157.225 80 HTTP"