'S'assurer que le nom de fichier d'entrée est spécifié sur la ligne de commande et l'obtenir
Si (WScript.Arguments.Count > 0) puis
nom de fichier = WScript.Arguments (0)
Autrement
WScript.Echo « aucun nom de fichier d'entrée spécifique. »
WScript.Quit
Finissent si
'Lire le dossier d'entrée entier dans une variable de corde simple
Placer le fso = le CreateObject (« Scripting.FileSystemObject »)
Placer l'entrée = le fso.OpenTextFile (le nom de fichier)
données = input.ReadAll
entrée. Fin
Placer l'entrée = rien
'Créer l'objet de dictionnaire aux reproductions d'ellininate
Placer le dict = le CreateObject (« Scripting.Dictionary »)
'Créer le calibre d'expression régulière aux locae les numéros de commande
Placer au sujet de = nouveau RegExp
re. Modèle = « OrderNum= [0-9] [0-9] [0-9] [0-9] [0-9] [0-9] [0-9] et »
re.IgnoreCase = rectifient
re. Global = rectifier
'Faire une boucle par chaque allumette, numéro de commande de grap, et sinon a déjà trouvé pour s'ajouter au dictionnaire
pour chacun frapper en Re. Exécuter (données)
order=Mid (coup. Valeur, 10, 7)
Sinon dict. Existe (ordre) alors
dict. Ajouter l'ordre, 0
Finir si
Après
'Produire la liste de numéros de commande uniques maintenant
Pour chaque o dans le dict
Wscript.Echo o
Après
|
