Вопрос : VBScript: Нужно только вывести наружу необходимый результат, без старья.

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

You находит примитивный доработанный образец «Input.txt» поэтому вы можете получить идею. В реальности, Input.txt содержит HTML сочетание из и яваскрипт, делая вид архива Output.txt грязного; и необходимый шнур расположен на ем будет последним line.

I не включил первоначально архив input.txt потому что он содержит серии конфиденциальных infos и он принял бы меня к много времени рассмотреть его. Так я включил доработанный архив Output.txt. Если вам absolutly нужен доработанный первоначально архив input.txt, то пожалуйста препятствуйте мне know.


Thanks,
Rene




BY USING ЛИНИЯ ПЕРЕДАЧИ КОМАНД:
cscript GetParameter.vbs //NOLOGO «input.txt» «параметр одно ****** ********** ********** ********** **************************
: «АРХИВ ФАЛЬШИВКИ INPUT.TXT >OUTPUT.TXT



THE ПРИМИТИВНЫЙ: line
This line
whatever
whatever ****** ********** ********** ********** **************************
будет test> и я намереваюсь оно и почему Parameter 1 not>: Elevator одно будет РЕЗУЛЬТАТОМ line



THE OUTPUT.TXT line
whatever online=True
whatever ДОЛЖНО БЫТЬ ТОЛЬКО:
Elevator одним ****** ********** ********** ********** **************************
будет СЦЕНАРИЙ online=True



VB К FIXE: filename
dim ****** ********** ********** ********** **************************
, placeholder, данные, tokens, subtokens, tok

If (WScript.Arguments.Count = 2) filename Then
=
WScript.Arguments (0) placeholder = WScript.Arguments (аргументы enugh 1)
Else
WScript.Echo «не: предпологаемые 2 (filename + placeholder). «
WScript.Quit
End If
/>START_TOKEN = «placeholder & « "/>END_TOKEN = fso

Set « " = input
Set CreateObject » &
leSystemObject») =
data = input.ReadAll
input. Close
Set input = Nothing

tokens = разделило (данные, START_TOKEN)
for каждое tok в subtokens tokens
= разделило (tok, END_TOKEN)
если UBound (subtokens) > 0 then
если if
next




CURRENT конца if
конца
subtokens then
WScript.Echo "" <> subtokens (0) (0) АРХИВ OUTPUT.TXT СОДЕРЖА СТАРЬЕ:
Is ****** ********** ********** ********** **************************
прикрепленное как архив для вашего review. class= " lastRow
>Attachments " имени " class= class= " значение "
>
filename " class= >output.txt (3 KB) яваскрипт " href= " " attachmentDetails class= (тип архива детали)
АРХИВ >CURRENT OUTPUT.TXT " описания " class=
class=
>
class= " ясное " >
Related: сценарий VB " title= " " /Programming/Languages/Visual_Basic/VB_Script/Q_26337532.html href= VB: Текст выхода специфически от текста file

Ответ : VBScript: Нужно только вывести наружу необходимый результат, без старья.

попытайтесь оно пожалуйста:
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:

затемните filename, placeholder, данные, знаки внимания, subtokens, tok, startindex, индекс

Если (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. Закройте установленный входной сигнал = ничего startindex = знаки внимания InStr (данных, START_TOKEN) = разделите (данные, START_TOKEN) если startindex > 0 после этого startindex = 1 конец если для индекса = startindex к subtokens UBound (знаков внимания) = разделите (знаки внимания (индекс), END_TOKEN), то если UBound (subtokens) > 0 после этого, то если subtokens "" после этого WScript.Echo <> subtokens (0) (0) кончаются если конец если затем
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us