Dateinamen, Placeholder, Daten, Zeichen, subtokens, tok verdunkeln
Wenn (WScript.Arguments.Count = 2) dann
Dateiname = WScript.Arguments (0)
Placeholder = WScript.Arguments (1)
Sonst
WScript.Echo „nicht enugh Argumente: erwartete 2 (Dateiname + Placeholder).“
WScript.Quit
Beenden wenn
START_TOKEN = "" u. Placeholder u. ""
END_TOKEN = „„Fso = CreateObject („Scripting.FileSystemObject“) einstellen einstellen Eingang = fso.OpenTextFile (Dateiname) Daten = input.ReadAll Eingang. Gesetzten Eingang schließen = nichts Zeichen = aufspalten (Daten, START_TOKEN) für jedes tok in den Zeichen subtokens = aufspalten (tok, END_TOKEN) wenn UBound (subtokens) > 0 dann, wenn subtokens (0) <> "" dann WScript.Echo subtokens (0) wenn Ende wenn zunächst beenden
|