Fijar el objFSO = CreateObject (“Scripting.FileSystemObject”)
myFile = “c:\macros\aces\claim13.txt”
objFile determinado = objFSO.OpenTextFile (myFile, 1)
Hacer hasta objFile.AtEndOfStream
line=objFile.ReadLine
Trimspace de WScript.Echo (línea)
Lazo
Trimspace de la función (str como secuencia) como secuencia
Hacer mientras que InStr (str, “ ") > 0
el str = substituye (str, “ “,” ")
Lazo
trimspace = str
Función del final
|