Vraag : Het toevoegen van de Variabele van het Milieu om van een partijdossier tot een Manuscript over te gaan VB

Ik moet twee extra variabelen van een partijdossier en aan het volgende vbscript.

BATCH- DOSSIER overgaan:
cscript EE26314082.vbs //NOLOGO input.txt H1A 2010-07-08/>VB MANUSCRIPT >output.txt
' zorgt het inputdossier ervoor - de naam wordt gespecificeerd op de bevellijn en krijgt/>If (WScript.Arguments.Count > 0) Then
filename it
Else
WScript.Echo „Geen gespecificeerd inputfilename. „
WScript.Quit
End If

' las volledig inputdossier in één enkele koord variable
Set = ingevoerde CreateObject („Scripting.FileSystemObject“)
Set = fso.OpenTextFile (filename)
data = input.ReadAll
input. Ingevoerde Close
Set = Nothing

' leidt woordenboek tot voorwerp aan ellininate duplicates
Set dict = CreateObject („Scripting.Dictionary“)

' cre�ërt regelmatig uitdrukkingsmalplaatje aan locae de orde numbers
Set aangaande = Nieuwe RegExp
re. Patroon = „OrderNum= [0-9] [0-9] [0-9] [0-9] [0-9] [0-9] [0-9] & "
re.IgnoreCase = True
re. Globaal = voegt de Lijn van True

' door elke gelijke, grap ordeaantal, en als niet reeds gevonden aan dictionary
for elk toe in Re raakte. Voer (gegevens)
order=Mid uit (klap. Waarde, 10, 7)
als niet dict. Bestaat (orde) Then
dict. Voeg orde toe, 0
de lijst van de Output van If
Next

' van unieke ordeaantallen now
For Elk o in dict
Wscript.Echo OUTPUT o
Next



CURRENT: OUTPUT
5134190
5085589
5122733

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


Please- nota die de aantallen in de „verwachte output“ omvatten is het het ontleden resultaat van het dossier „input.txt“ door het huidige Manuscript VB.


PS: Dank aan billprew voor VERSUS Script

Antwoord : Het toevoegen van de Variabele van het Milieu om van een partijdossier tot een Manuscript over te gaan VB

Geen probleem.  U kunt bij hen krijgen door extra (x) variabelen te gebruiken wscript.arguments.

Zo zou H1A wscript.arguments zijn (1) en 2010-07-08 zou wscript.arguments zijn (2)


HTH,
exx