Программирование
Веб программирование

Работаем текстовыми файлами при помощи FSO в VB

 
 

На форму кинь текстовое поле(MultiLine = True), 4 кнопки(у 1ой Caption = "Создать txt", у 2ой = "Удалить", у 3ей = "Запись", у 4ой = "Чтение"). Размести библиотеку для работы с FSO. Код:

Dim fso As New FileSystemObject, f As File, txt As TextStream ' Тип TextStream нужен для работы с текстовыми файлами, только не путай его с File(это для работы со всеми файлами)

Private Sub Command1_Click()
Set txt = fso.CreateTextFile("c:1.txt") ' Создаем текстовой файл
End Sub

Private Sub Command2_Click()
fso.DeleteFile ("c:1.txt") ' Удаляем текстовой файл
End Sub

Private Sub Command3_Click()
Set f = fso.GetFile("c:1.txt") ' Получаем доступ к файлу
Set txt = f.OpenAsTextStream(ForWriting) ' Открываем(в скобках это тип записи(ну как и у оператора Open); ForAppending - Добавление записей к уже существующем в файле(тоже самое что и Append в операторе Open); ForWriting - это запись по - новому(тоже что и Output у оператора Open) ; ForReading - это для чтения файлов(тоже что Input у Open`a))
txt.Write (Text1.Text) ' Записываем в файл содержимое текстового поля(можно использовать и метод WriteLine)
txt.Close ' Закрываем
End Sub

Private Sub Command4_Click()
Set f = fso.GetFile("c:1.txt") ' Получаем доступ к файлу
Set txt = f.OpenAsTextStream(ForReading) ' Открываем
Text1.Text = txt.ReadLine ' Читаем содержимое файла в текстовое поле
txt.Close ' Закрываем
End Sub

У текстовых файлов почти такие же свойства и методы как и у папок(узнать размер, путь, имя...), так же как и папки их можно копировать и перемещать, поэтому я не буду про это писать. Тут ни чего сложного нет. А вот задание:
Короче добавь к этому примеру еще 2 кнопки(Копировать и Переместить), и напиши код для копирования и перемещения текстового файла. Исходник качай Отсюда


Есть вопросы? Спроси на нашем форуме!!
Некс [01.12.2010 09:13]

Премного благодарен, а то всё подключал vbs-объект, писал "вслепую"))

Александр [06.05.2011 16:49]

Падре, у тебя в исходнике вирус.

Гепард [25.07.2011 21:49]

О_О мда))
ВБС обыкновенному ВБ и в подметки нигодица!
А за уроки спасибо. Сейчас занимаюсь копипастингом учебника в вордовый док, буду на даче изучать (а инета там и нету :( )

BBB44 [20.03.2012 13:45]

У меня с первого раза не работает.
Работает так - запускаю программу и создаю файл, потом выключаю программу. Снова запускаю программу, записываю и читаю.

УМНИК [16.04.2012 21:36]

VB,VB6 ПЛОХО ловит ошибки,будьте оченннь внимателный.Вообще для серьезных задач не очень.
ВВВ44-НЕ ПОНЯТНО что пишешь?.Создал файл тут же сохрани, потом запусти.При сохранении на NO НЕ нажимай иначе файл потеряешь или переименуеш.Желательно каждый раз нажать на сохр(на квадратик)

Тяжеловес [16.04.2012 21:43]

Как сортировать Список по годам рождения(не массив)



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.