Командное файло - извлеките номера от архива текста - Проблемы и решения вопросов, связанных с Software

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

'Сделайте конечно входной файл - имя определено на линии передачи команд и получает ее
Если (WScript.Arguments.Count > 0) после этого
  filename = WScript.Arguments (0)
Еще
  WScript.Echo «никакой определенный filename входного сигнала.»
  WScript.Quit
Закончитесь если
 
'Прочитайте весь входной файл в одиночную перемеююый шнура
Установите fso = CreateObject («Scripting.FileSystemObject»)
Установите входной сигнал = fso.OpenTextFile (filename)
данные = input.ReadAll
входной сигнал. Конец
Установите входной сигнал = ничего
 
'Создайте предмет словаря к дубликатам ellininate
Установите dict = CreateObject («Scripting.Dictionary»)
 
'Создайте шаблон регулярно выражения к locae порядковые номера
Установите re = новое RegExp
re. Картина = «OrderNum= [0-9] [0-9] [0-9] [0-9] [0-9] [0-9] [0-9] &»
re.IgnoreCase = True
re. Глобально = True
 
'Закрепите петлеть через каждую спичку, порядковый номер grap, и если уже о добавьте к словарю
для каждого ударенного в re. Исполните (данные)
   order=Mid (удар. Значение, 10, 7)
   Если не dict. Существует (заказ) после этого
      dict. Добавьте заказ, 0
   Закончитесь если
Затем
 
'Список выхода уникально порядковых номеров теперь
Для каждого o в dict
   Wscript.Echo o
Затем

Вопрос : Командное файло - извлеките номера от архива текста

Ответ : Командное файло - извлеките номера от архива текста