Set objFSO = CreateObject("Scripting.FileSystemObject")
myFile = "c:\macros\aces\claim13.txt"
Set objFile = objFSO.OpenTextFile(myFile,1)
Do Until objFile.AtEndOfStream
line=objFile.ReadLine
WScript.Echo trimspace(line)
Loop
Function trimspace(str As String) As String
Do While InStr(str, " ") > 0
str = Replace(str, " ", " ")
Loop
trimspace = str
End Function
|