Regolare il objFSO = CreateObject (“Scripting.FileSystemObject„)
myFile = “c:\macros\aces\claim13.txt„
objFile stabilito = objFSO.OpenTextFile (myFile, 1)
Fare fino a objFile.AtEndOfStream
line=objFile.ReadLine
Trimspace di WScript.Echo (linea)
Ciclo
Trimspace di funzione (streptococco come stringa) come stringa
Fare mentre InStr (streptococco, “ ") > 0
lo streptococco = sostituisce (streptococco, “ “,„ ")
Ciclo
trimspace = streptococco
Funzione di conclusione
|