Fråga : VBScript: Behöv endast att tillverka det required resultatet, utan skräp.

Jag behöver att ändra efter skriva till extraktet, allt vad text lokaliseras between: ”Parameter en: ” och ”” och tillverkat det i ”Output.txt”, utan skräp (se nedanfört). ska fynd för

You som ändrat ett alltför förenklat tar prov av ”Input.txt”, så du kan få idén. I verkligheten Input.txt innehåller en kombination av HTML, och javaScripten, danande Output.txt sparar sorten av smutsigt; och de required stränger lokaliseras på den är sist line.

I inkluderade inte den original- input.txt sparar, därför att den innehåller raddor förtroliga info, och den skulle tar mig till mycket tid att granska den. Så jag som är inklusive den ändrade Output.txt, sparar. Om du behöver absolutly den ändrade original- input.txt, spara, behaga låt mig know.


Thanks,
Rene




BY USING BEFALLA FODRAR: för ************************** för

cscript GetParameter.vbs //NOLOGO ”input.txt” ”parameter en för ****** för för ********** för för ********** för för **********: ”ALLTFÖR FÖRENKLADE >OUTPUT.TXT



THE FEJKAR INPUT.TXT SPARAR: för ************************** för
line
This för line
whatever för
whatever för ****** för för ********** för för ********** för för ********** är en test>, och jag betyder honom och varför not>Parameter 1: Elevator en är för online=True
whatever för line
whatever PARSED OUTPUT.TXT RESULTATET för line



THE MÅSTE VARA ENDAST: för ************************** för

Elevator en för ****** för för ********** för för ********** för för ********** är online=True



VB SKRIVAR TILL FIXE: för ************************** för
filename för
dim för ****** för för ********** för för ********** för för **********, placeholder, data, tokens, subtokens, filename för tok

If (WScript.Arguments.Count = 2) Then
= 0) placeholder för
för WScript.Arguments (= för 1) enugh för
Else
WScript.Echo för WScript.Arguments argument (”inte: förväntade 2 (filenamen + placeholderen). ”
WScript.Quit
End If
/>START_TOKEN = ”/>END_TOKEN = ”fsoen för <-/div>"

Set = CreateObject ” & placeholder- & ”<-/strong>"
leSystemObject”)
Set matar in =
data = input.ReadAll
input. Close
Set matar in = Nothing

tokens =
for för splittring (data, START_TOKEN) varje tok i subtokens för tokens
=
för splittring (tok, END_TOKEN), om UBound (subtokens) > 0 then
, om för <>"" för subtokens (0)
för subtokens för then
WScript.Echo 0) (avslutar if
, avslutar if
next




CURRENT OUTPUT.TXT SPARAR ATT INNEHÅLLA SKRÄP: för ************************** för

Is som för ****** för för ********** för för ********** för för ********** fästas som en spara för din review. Attachments: för >