schemerige filename, placeholder, gegevens, tekenen, subtokens, tok
Als (WScript.Arguments.Count = 2) toen
filename = WScript.Arguments (0)
placeholder = WScript.Arguments (1)
Anders
WScript.Echo „niet enugh argumenten: verwachte 2 (filename + placeholder).“
WScript.Quit
Eind als
START_TOKEN = "" & placeholder & ""
END_TOKEN = „„Plaats fso = CreateObject („Scripting.FileSystemObject“) plaatsen input = (filename) gegevens fso.OpenTextFile = input input.ReadAll. Sluit Vastgestelde input = niets tekenen = verdelen (gegevens, START_TOKEN) voor elke tok in tekenen subtokens = verdelen (tok, END_TOKEN) als UBound (subtokens) > 0 toen als subtokens (0) <> "" dan WScript.Echo subtokens (0) als eind als daarna beëindigt
|