Gruppera sparar - extraktet numrerar från en text sparar - Problem och lösningar på frågor som rör 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:

'Se till mata in för att spara - känt specificeras på befalla fodrar och får den
Om (WScript.Arguments.Count > 0) därefter
  filename = WScript.Arguments (0)
Annars
  Inga WScript.Echo ”matar in den specificerade filenamen.”,
  WScript.Quit
Avsluta om
 
'Läs helt matar in sparar in i en singel stränger variabel
Fastställd fso = CreateObject (”Scripting.FileSystemObject”)
Uppsättningen matar in = fso.OpenTextFile (filenamen)
data = input.ReadAll
mata in. Nära
Uppsättningen matar in = ingenting
 
'Skapa ordboken anmärker till ellininatedubblett
Fastställd dict = CreateObject (”Scripting.Dictionary”)
 
'Skapa stamgästuttrycksmallen till locae som beställa numrerar
Fastställda beträffande = nya RegExp
beträffande. Mönstra = ”OrderNum= [0-9] [0-9] [0-9] [0-9] [0-9] [0-9] [0-9] &”,
re.IgnoreCase = True
beträffande. Globalt = True
 
'Kretsa till och med varje match, grap beställer numrerar, och, om inte redan funnit, tillfogar till ordboken
för varje som slås i beträffande. Utför (data)
   order=Mid (hit. Värdera 10, 7),
   Om inte dict. Finns (beställa), därefter
      dict. Tillfoga beställer, 0
   Avsluta om
Därefter
 
'Tillverkat lista av unikt beställer numrerar nu
För varje nolla i dict
   Wscript.Echo-nolla
Därefter

Fråga : Gruppera sparar - extraktet numrerar från en text sparar

Svar : Gruppera sparar - extraktet numrerar från en text sparar