Вопрос : Сценарий VB: Текст выхода специфически от архива текста

Hi там, потребность

I доработать следующий сценарий для того чтобы извлечь любой текст обнаружен местонахождение: «Parameter одно: » и «».


SO ПУТЕМ ИСПОЛЬЗОВАНИЕ ЛИНИИ ПЕРЕДАЧИ КОМАНД: параметр 1» >output.txt


FROM
cscript GetParameter.vbs //NOLOGO «input.txt» ****** « ********** ********** ********** **************************
СЛЕДУЮЩИЙ АРХИВ ТЕКСТА INPUT.TXT: line
This line
whatever
whatever ****** ********** ********** ********** **************************
будет test> и я намереваюсь оно и почему Parameter 1 not>: Elevator одно будет РЕЗУЛЬТАТОМ line


THE OUTPUT.TXT line
whatever online=True
whatever ДОЛЖНО БЫТЬ:
Elevator одним ****** ********** ********** ********** **************************
будет online=True




SCRIPT, котор нужно ДОРАБОТАТЬ:
' ****** ********** ********** ********** **************************
делает конечно входной файл - имя определено на линии передачи команд и получает 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



THIS dict
Wscript.Echo, котор нужно ДОРАБОТАТЬ В НАСТОЯЩЕЕ ВРЕМЯ ВЫЗЫВАЕТ СЛЕДУЮЩИЙ ЛИНИЕЙ ПЕРЕДАЧИ КОМАНД:
cscript GetNumbers.vbs //NOLOGO input.txt >output.txt



Thanks для вашей помощи,
Rene ****** ********** ********** ********** **************************
class= " ясное " >

Related: href= " /Programming/Languages/Visual_Basic/VB_Script/Q_26339319.html " title= " VBScript VBScript " qRelatedChild " «class=: Потребность только вывести наружу необходимый результат, без junk.

Ответ : Сценарий VB: Текст выхода специфически от архива текста

дайте ему идти

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:

затемните filename, placeholder, данные, знаки внимания, subtokens, tok Если (WScript.Arguments.Count = 2) после этого filename = WScript.Arguments (0) placeholder = WScript.Arguments (1) Еще Аргументы enugh WScript.Echo «не: предпологаемые 2 (filename + placeholder).» WScript.Quit Закончитесь если START_TOKEN = "" & placeholder & "" END_TOKEN = ««Установите fso = CreateObject («Scripting.FileSystemObject») установите входной сигнал = данные по fso.OpenTextFile (filename) = входной сигнал input.ReadAll. Закройте установленный входной сигнал = ничего знаки внимания = разделите (данные, START_TOKEN) для каждого tok в subtokens знаков внимания = разделите (tok, END_TOKEN) если UBound (subtokens) > 0 после этого, то если subtokens "" после этого WScript.Echo <> subtokens (0) (0) кончаются если конец если затем