30.05.2008, 19:40
общий
это ответ
Здравствуйте, Pithon!
В приложении пример скрипта VBS работы с текстовым файлом (открытие, чтение, запись). Закомментированные строки (начинающиеся с ‘) оставлены для сведения.
В прикрепленном файле цитата из книги Windows Script Host для Windows 2000/XP.
А. Попов, Санкт-Петербург, "БХВ - Петербург" 2003
Настоятельно советую её разыскать (для скачивания я её не нашел). Думаю, в Интернет-магазинах её можно найти (~10$)- ищите поближе к дому.
<a href=http://oz.by/books/more.phtml?id=105494&partner=homenet> Здесь на нее можно посмотреть </a>
Там изложение идет для JS и VBS, но с уклоном в JS
Приложение:
set FSO=WScript.CreateObject("Scripting.FileSystemObject")
‘ set NFile=FSO.CreateTextFile("Текстовый файл.txt" ,true) ‘ Создаем текстовый файл
‘ set NFile=FSO.OpenTextFile("Текстовый файл.txt" , 2 , true) ‘ Открываем текстовый файл для перезаписи. Если файла нет, будет создан
set NFile=FSO.OpenTextFile("Текстовый файл.txt" , 8 , true) ‘ Открываем текстовый файл для добавления. Если файла нет, будет создан
NFile.WriteLine("01 Строка в текстовом файле") ‘ Записываем что-то в текстовый файл
NFile.WriteLine("02 Строка в текстовом файле")
NFile.WriteLine("03 Строка в текстовом файле")
NFile.WriteLine("04 Строка в текстовом файле")
NFile.Close() ‘ Закрываем файл
set NFile=FSO.OpenTextFile("Текстовый файл.txt" , 8 , true) ‘ Открываем текстовый файл для добавления. Если файла нет, будет создан
NFile.WriteLine("11 Строка в текстовом файле") ‘ Добавляем что-то в текстовый файл
NFile.WriteLine("22 Строка в текстовом файле")
NFile.WriteLine("33 Строка в текстовом файле")
NFile.WriteLine("44 Строка в текстовом файле")
NFile.Close() ‘ Закрываем файл
set NFile=FSO.OpenTextFile("Текстовый файл.txt" , 1 , true) ‘ Открываем текстовый файл для чтения. Если файла нет, будет создан
On Error Resume Next
While Err.Number=0
S=NFile.ReadLine() ‘ Последовательно читаем из файла строки
If Err.Number=0 Then WScript.Echo S ‘ Выводим их на экран
Wend
NFile.Close() ‘ Закрываем файл
Об авторе:
Понеже не словес красных бог слушает, но дел наших хощет