objFSO = CreateObject („Scripting.FileSystemObject“) einstellen
myFile = „c:\macros\aces\claim13.txt“
Gesetztes objFile = objFSO.OpenTextFile (myFile, 1)
Bis objFile.AtEndOfStream tun
line=objFile.ReadLine
WScript.Echo trimspace (Linie)
Schleife
Funktion trimspace (str als Schnur) als Schnur
Tun während InStr (str, „ ") > 0
str = ersetzen (str, „ „,“ ")
Schleife
trimspace = str
Enden-Funktion
|