Pytanie : Sumujący Środowisko Zmienna od wsad kartoteka VB Pismo

I potrzebować dwa ekstra zmienna od wsad kartoteka i the następujący vbscript.

BATCH KARTOTEKA:
cscript EE26314082.vbs //NOLOGO input.txt H1A 2010-07-08 >output.txt

VB PISMO:
' Upewniać się the wkład kartoteka - imię precyzować na the nakazowy linia i dostawać it
If (WScript.Arguments.Count > (0)) Then
filename = WScript.Arguments ((0))
Else
WScript.Echo "Żadny wkład filename precyzować. "
WScript.Quit
End If

' Czytać całkowity wkład kartoteka w pojedynczy smyczkowy variable
Set fso = CreateObject ("Scripting.FileSystemObject")
Set wkład = fso.OpenTextFile (filename)
data = input.ReadAll
input. Close
Set wkład = Nothing

' Tworzyć słownik przedmiot ellininate duplicates
Set dict = CreateObject ("Scripting.Dictionary")

' Tworzyć miarowy wyrażenie szablon locae the rozkaz numbers
Set re = Nowy RegExp
re. Wzór = "OrderNum= [0-9] [0-9] [0-9] [0-9] [0-9] [0-9] [0-9] & "
re.IgnoreCase = True
re. Globalny = True

' Pętla przez globalny dopasowanie, grap rozkaz liczba, i jeśli nie już dodawać dictionary
for Już uderzenie W re. Wykonywać (dane)
order=Mid (uderzenie. Wartość, 10, 7)
Jeśli nie dict. Istnieć (rozkaz) Then
dict. Dodawać rozkaz, 0
Końcówka If
Next

' Wydajność lista unikalny rozkaz liczba now
For Unikalny o W dict
Wscript.Echo o
Next



CURRENT PRZESYŁAĆ:
5134190
5085589
5122733

EXPECTED PRZESYŁAĆ:
5134190, H1A, 2010-07-08
5085589, H1A, 2010-07-08
5122733, H1A, 2010-07-08


Please notatka że the liczba zawierać w the "oczekiwać wydajność" być the parsing rezultat the kartoteka "input.txt" the prąd VB Pismo.


PS: Dzięki billprew dla the VS Script

Odpowiedź : Sumujący Środowisko Zmienna od wsad kartoteka VB Pismo

Żadny problem.  Ty móc przy dodatkowy wscript.arguments (x) zmienna.

W Ten Sposób the H1A być wscript.arguments (1) i the 2010-07-08 być wscript.arguments (2)


HTH,
exx