' Make sure the input file name is specified on the command line and get it
If (WScript.Arguments.Count > 0) Then
filename = WScript.Arguments(0)
Else
WScript.Echo "No input filename specified."
WScript.Quit
End If
' Read entire input file into a single string variable
Set fso = CreateObject("Scripting.FileSystemObject")
Set input = fso.OpenTextFile(filename)
data = input.ReadAll
input.Close
Set input = Nothing
' Create dictionary object to ellininate duplicates
Set dict = CreateObject("Scripting.Dictionary")
' Create regular expression template to locae the order numbers
Set re = New RegExp
re.Pattern = "OrderNum=[0-9][0-9][0-9][0-9][0-9][0-9][0-9]&"
re.IgnoreCase = True
re.Global = True
' Loop through each match, grap order number, and if not already found add to dictionary
for Each hit In re.Execute(data)
order=Mid(hit.Value, 10, 7)
If Not dict.Exists(order) Then
dict.Add order, 0
End If
Next
' Output list of unique order numbers now
For Each o In dict
Wscript.Echo o
Next
|
