Reeks objFSO = CreateObject („Scripting.FileSystemObject“)
myFile = „c:\macros\aces\claim13.txt“
Vastgestelde objFile = myFile objFSO.OpenTextFile (, 1)
Doe tot objFile.AtEndOfStream
line=objFile.ReadLine
WScript.Echo trimspace (lijn)
Lijn
Functie trimspace (streptokok als Koord) als Koord
Doe terwijl InStr (streptokok, „ „) > 0
de streptokok = vervangt (streptokok, „ „,“ „)
Lijn
trimspace = streptokok
De Functie van het eind
|