Archivo de hornada - extraer los números de un archivo de texto - Problemas y soluciones a los problemas relacionados con Software

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

'Cerciorarse de que el nombre de fichero de la entrada esté especificado en la línea de comando y conseguirla
Si (WScript.Arguments.Count > 0) entonces
  nombre de fichero = WScript.Arguments (0)

  WScript.Echo “ninguÌn nombre de fichero de la entrada especificado.”
  WScript.Quit
Terminan si
 
'Leer el fichero de entrada entero en una sola variable de secuencia
Fijar el fso = CreateObject (“Scripting.FileSystemObject”)
Fijar la entrada = fso.OpenTextFile (el nombre de fichero)
datos = input.ReadAll
entrada. Cierre
Fijar la entrada = nada
 
'Crear el objeto del diccionario a los duplicados del ellininate
Fijar el dict = CreateObject (“Scripting.Dictionary”)
 
'Crear la plantilla de la expresión regular a los locae los números de orden
Fijar con referencia a = nuevo RegExp
re. Patrón = “OrderNum= [0-9] [0-9] [0-9] [0-9] [0-9] [0-9] [0-9] y”
re.IgnoreCase = verdad
re. Global = verdad
 
'Colocar a través de cada fósforo, número de orden del grap, y si no encontró ya para agregar al diccionario
para cada uno golpeada en re. Ejecutar (datos)
   order=Mid (golpe. Valor, 10, 7)
   Si no dict. Entonces existe (orden)
      dict. Agregar la orden, 0
   Terminar si
Después
 
'Ahora hacer salir la lista de números de orden únicos
Para cada o en dict
   Wscript.Echo o
Después

Cuestión : Archivo de hornada - extraer los números de un archivo de texto

Respuesta : Archivo de hornada - extraer los números de un archivo de texto