Microsoft
Software
Hardware
Network
Question : Adding Environment Variable to pass from a batch file to a VB Script
I need to pass two extra variables from a batch file and to the following vbscript.
BATCH FILE:
cscript EE26314082.vbs //NOLOGO input.txt H1A 2010-07-08 >output.txt
VB SCRIPT:
' 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.Fi
leSystemOb
ject")
Set input = fso.OpenTextFile(filename)
data = input.ReadAll
input.Close
Set input = Nothing
' Create dictionary object to ellininate duplicates
Set dict = CreateObject("Scripting.Di
ctionary")
' 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
CURRENT OUTPUT:
5134190
5085589
5122733
EXPECTED OUTPUT:
5134190,H1A,2010-07-08
5085589,H1A,2010-07-08
5122733,H1A,2010-07-08
Please note that the numbers included in the "expected output" are the parsing result of the file "input.txt" by the current VB Script.
PS: Thanks to billprew for the VS Script
Answer : Adding Environment Variable to pass from a batch file to a VB Script
No problem. You can get at them by using additional wscript.arguments(x) variables.
So the H1A would be wscript.arguments(1) and the 2010-07-08 would be wscript.arguments(2)
HTH,
exx
Random Solutions
Sharepoint 2010 - 2 domains and non domain users
MacBook Stuck on Shut-Down
vb 6.0 version number
CS0433 error when deploying ASP.NET app, type exists two asp.net temporary files
Maxtor Drive getting 'lost'
Reset Domain Administrator Account Windows Server 2008 64Bit
out off office not working for one user
exchange 2010 missing" server configuration"
How to figure out input value passed via XML
Flash device Operating System