Schedario di lavoro - estrarre i numeri da una lima di testo - Problemi e soluzioni alle problematiche legate a 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:

'Assicurarsela che il nome di schedario dell'input sia specificato sulla linea di ordine e che ottenere
Se (WScript.Arguments.Count > 0) allora
  nome di schedario = WScript.Arguments (0)
Altrimenti
  WScript.Echo “nessun nome di schedario dell'input specificato.„
  WScript.Quit
Si concludono se
 
'Leggere l'intero archivio di entrata in una singola variabile di stringa
Regolare il fso = CreateObject (“Scripting.FileSystemObject„)
Regolare l'input = fso.OpenTextFile (nome di schedario)
dati = input.ReadAll
input. Fine
Regolare l'input = niente
 
'Generare l'oggetto del dizionario ai duplicati del ellininate
Regolare il dict = CreateObject (“Scripting.Dictionary„)
 
'Generare la mascherina di espressione normale ai locae i numeri di ordine
Regolar con riferimento a = nuovo RegExp
re. Modello = “OrderNum= [0-9] [0-9] [0-9] [0-9] [0-9] [0-9] [0-9] &„
re.IgnoreCase = allineano
re. Globale = allineare
 
'Collegare attraverso ogni fiammifero, numero di ordine del grap e se non già avuto trovato per aggiungere al dizionario
per ciascuno colpito in Re. Eseguire (dati)
   order=Mid (colpo. Valore, 10, 7)
   Se non dict. Allora esiste (ordine)
      dict. Aggiungere l'ordine, 0
   Concluder se
Dopo
 
'Ora produrre la lista dei numeri di ordine unici
Per ogni o nel dict
   Wscript.Echo o
Dopo

Questione : Schedario di lavoro - estrarre i numeri da una lima di testo

Risposta : Schedario di lavoro - estrarre i numeri da una lima di testo