escurecer o nome de arquivo, placeholder, dados, símbolos, subtokens, tok
Se (WScript.Arguments.Count = 2) então
nome de arquivo = WScript.Arguments (0)
placeholder = WScript.Arguments (1)
Mais
Argumentos do enugh de WScript.Echo “não: 2 previstos (nome de arquivo + placeholder).”
WScript.Quit
Terminar se
START_TOKEN = "" & placeholder & ""
END_TOKEN = ““Ajustar o fso = o CreateObject (“Scripting.FileSystemObject”) ajustam a entrada = os dados de fso.OpenTextFile (nome de arquivo) = a entrada de input.ReadAll. Fechar entrada ajustada = nada símbolos = separação (dados, START_TOKEN) para cada tok em subtokens dos símbolos = em separação (tok, END_TOKEN) se UBound (subtokens) > 0 então se os subtokens do "" então WScript.Echo <> dos subtokens (0) (0) terminam se extremidade se em seguida
|