Вопрос : Добавляющ перемеююый окружающей среды к пропуску от командного файла к VB Script

Мне нужно пройти 2 экстренных перемеююого от командного файла и к следующий АРХИВУ vbscript.

BATCH: СЦЕНАРИЙ
cscript EE26314082.vbs //NOLOGO input.txt H1A 2010-07-08 >output.txt

VB:
' делает конечно входной файл - имя определено на линии передачи команд и получает filename it
If (WScript.Arguments.Count > 0) Then
=
Else
WScript.Echo WScript.Arguments (0) «отсутствие определенного filename входного сигнала. «
'
WScript.Quit
End If
прочитало весь входной файл в одиночные input fso variable
Set шнура =
Set CreateObject («Scripting.FileSystemObject») =
data = input.ReadAll
input. Input Close
Set =
'
' Nothing
создает предмет словаря к dict duplicates
Set ellininate =
CreateObject («Scripting.Dictionary») создает шаблон регулярно выражения к locae numbers
Set заказа re = новое RegExp
re. Картина = «OrderNum= [0-9] [0-9] [0-9] [0-9] [0-9] [0-9] [0-9]
" />re.IgnoreCase = True
re. Глобально = петля через каждую спичку, порядковый номер
' True
grap, и если уже после того как я а добавляет к dictionary
for каждому ударенному в re. Исполните order=Mid
(данных) (удар. Значение, 10, 7)
если не dict. Существует (заказ) dict Then
. Добавьте заказ, список выхода
' If
Next
конца 0
уникально now
For порядковых номеров каждый o в ОМ o
Next



CURRENT dict
Wscript.Echo:
5134190
5085589
5122733

EXPECTED ВЫВЕЛО НАРУЖУ:
5134190, H1A, 2010-07-08
5085589, H1A, 2010-07-08
5122733, H1A, 2010-07-08 примечание


Please что номера включенные в «надеялись выход» будет результат parsing архива «input.txt» в настоящее время сценарием VB.


PS: Спасибо billprew для ПРОТИВ Script

class=

Ответ : Добавляющ перемеююый окружающей среды к пропуску от командного файла к VB Script

Отсутствие проблемы.  Вы можете получить на их путем использование дополнительных перемеююых wscript.arguments (x).

Так H1A было бы wscript.arguments (1) и 2010-07-08 были бы wscript.arguments (2)


HTH,
exx