Fråga : Tillfoga miljövariabel för att passera från en gruppera spara till en VB skrivar

Jag behöver att passera två extra variabler från en gruppera sparar, och till efter vbscript.
BATCH SPARAR:
cscript EE26314082.vbs //NOLOGO input.txt H1A 2010-07-08 >output.txt

VB SKRIVAR:
' ser till mata in för att spara - känt specificeras på befalla fodrar och får den inga filenamen för it
If (WScript.Arguments.Count > 0) Then
= 0)
Else
WScript.Echo för WScript.Arguments (”matar in den specificerade filenamen. ”
' för
WScript.Quit
End If
läste helt matar in sparar in i en singel stränger fsoen för variable
Set = CreateObject (”Scripting.FileSystemObject”)
Set matar in =
data = input.ReadAll
input. Close
Set matar in = Nothing

' skapar ordboken anmärker till
' för dict för ellininateduplicates
Set = för CreateObject (”Scripting.Dictionary”)
skapar stamgästuttrycksmallen till locae beställanumbersre för/>Set. Mönstra = ”OrderNum= [0-9] [0-9] [0-9] [0-9] [0-9] [0-9] [0-9],
" />re.IgnoreCase = True
re. Globalt = True

' kretsar till och med varje match, grap beställer numrerar, och, om inte redan funnit, tillfogar till dictionary
for varje som slås i beträffande. Utför order=Mid för
(för data) (hit. Värdera 10, 7)
om inte dict. Finns (beställa), Then
dict. Tillfoga beställer, 0
avslutar tillverkad If
Next

' listar av unikt beställer numrerar now
For varje nolla i TILLVERKAD o
Next



CURRENT för dict
Wscript.Echo: TILLVERKAD
5134190
5085589
5122733

EXPECTED:
5134190, H1A, 2010-07-08
5085589, H1A, 2010-07-08
5122733, H1A, 2010-07-08


Please noterar att numrerar inklusive i ”som förväntas tillverkat” är satslösningresultatet av spara ”input.txt” vid strömmen VB skrivar.


PS: Tack till billprew för VS Script

" klar "

Svar : Tillfoga miljövariabel för att passera från en gruppera spara till en VB skrivar

Inget problem.  Du kan få på dem, genom att använda extra variabler för wscript.arguments (x).

Så H1AEN skulle är wscript.arguments (1), och den skulle 2010en-07-08 är wscript.arguments (2)


HTH,
exx