Ajustar o objFSO = o CreateObject (“Scripting.FileSystemObject”)
myFile = “c:\macros\aces\claim13.txt”
objFile ajustado = objFSO.OpenTextFile (myFile, 1)
Fazer até objFile.AtEndOfStream
line=objFile.ReadLine
Trimspace de WScript.Echo (linha)
Laço
Trimspace da função (estreptococo como a corda) como a corda
Fazer quando InStr (estreptococo, “ ") > 0
o estreptococo = substitui (estreptococo, “ “,” ")
Laço
trimspace = estreptococo
Função do fim
|