Установите objFSO = CreateObject («Scripting.FileSystemObject»)
myFile = «c:\macros\aces\claim13.txt»
Установленное objFile = objFSO.OpenTextFile (myFile, 1)
Не сделать до objFile.AtEndOfStream
line=objFile.ReadLine
Trimspace WScript.Echo (линия)
Петля
Trimspace функции (str как шнур) как шнур
Сделайте пока InStr (str, « ") > 0
str = заменяет ть (str, « «,» ")
Петля
trimspace = str
Функция конца
|