Fastställd objFSO = CreateObject (”Scripting.FileSystemObject”)
myFile = ”c:\macros\aces\claim13.txt”,
Fastställdt objFile = myFile objFSO.OpenTextFile (, 1)
Gör till objFile.AtEndOfStream
line=objFile.ReadLine
WScript.Echo-trimspace (fodra),
Kretsa
Fungera trimspace (str som stränger) som stränger
Gör stunder InStr (str, ” ”) > 0
stren = byter ut (stren, ” ”,” ”)
Kretsa
trimspace = str
Avsluta fungerar
|