'Zorg het inputdossier ervoor - de naam wordt gespecificeerd op de bevellijn en krijgt het
Als (WScript.Arguments.Count > 0) toen
filename = WScript.Arguments (0)
Anders
WScript.Echo „Geen gespecificeerd inputfilename.“
WScript.Quit
Eind als
'Lees volledig inputdossier in één enkele koordvariabele
Plaats fso = CreateObject („Scripting.FileSystemObject“)
Plaats input = fso.OpenTextFile (filename)
gegevens = input.ReadAll
input. Sluit
Plaats input = niets
'Cre�ër woordenboekvoorwerp aan ellininateduplicaten
Plaats dict = CreateObject („Scripting.Dictionary“)
'Cre�ër regelmatig uitdrukkingsmalplaatje aan locae de ordeaantallen
Plaats aangaande = Nieuwe RegExp
re. Patroon = „OrderNum= [0-9] [0-9] [0-9] [0-9] [0-9] [0-9] [0-9] &“
re.IgnoreCase = Waar
re. Globaal = Waar
De 'lijn door elke gelijke, grap ordeaantal, en als niet reeds gevonden voegt aan woordenboek toe
voor elk geraakt in Re. Voer uit (gegevens)
order=Mid (klap. Waarde, 10, 7)
Als niet dict. Bestaat (de orde) Dan
dict. Voeg orde, 0 toe
Beëindig als
Daarna
De 'lijst van de output van unieke ordeaantallen nu
Voor Elk o in dict
Wscript.Echo o
Daarna
|
