escurecer o nome de arquivo, placeholder, dados, símbolos, subtokens, tok, startindex, índice
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 startindex = símbolos de InStr (dados, START_TOKEN) = separação (dados, START_TOKEN) se startindex > 0 então startindex = 1 extremidade se para o índice = o startindex aos subtokens de UBound (símbolos) = à separação (símbolos (índice), 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
|