dunkel filename, placeholder, data, tecken, subtokens, tok
Om (WScript.Arguments.Count = 2) därefter
filename = WScript.Arguments (0)
placeholder = WScript.Arguments (1)
Annars
Enughargument för WScript.Echo ”inte: förväntade 2 (filenamen + placeholderen).”,
WScript.Quit
Avsluta om
START_TOKEN = "" & placeholder & "",
END_TOKEN = ”,”Den fastställda fsoen = den CreateObject (”Scripting.FileSystemObject”) uppsättningen matar in = data för fso.OpenTextFile (filename) = input.ReadAll matar in. Den nära uppsättningen matar in = ingenting tecken = splittring (data, START_TOKEN) för varje tok i teckensubtokens = splittring (tok, END_TOKEN) om UBound (subtokens) > 0 därefter, om subtokens för "" WScript.Echo för subtokens <> (0) (0) avslutar därefter, om avsluta om därefter
|