Консультация № 138222
28.05.2008, 09:13
0.00 руб.
0 2 2
Подскажите пожалуйста как при помощи VBS работать с текстовыми файлами (открытие, чтение, запись), если можно поподробнее, я чайник. (или дайте ссылку). Заранее благодарю.

Обсуждение

Неизвестный
28.05.2008, 11:38
общий
это ответ
Здравствуйте, Pithon!
Я бы порекомендовал Вам задать этот вопрос гуглю =)
статей и справочник в инете море..
давно
Модератор
137394
1850
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() ‘ Закрываем файл
Об авторе:
Понеже не словес красных бог слушает, но дел наших хощет
Форма ответа