2017-12-16
490
Допустим, необходимо снабдить разрабатываемое приложение возможностью быстро записывать и считывать из файла длинные строки.
Данную проблему можно решить с помощью методов
My.Computer.FileSystem.WriteAllText ()
My.Computer.FileSystem.ReadAllText().
1. Создать новый проект Пример-4-10-3-1.
Поместите в форму два элемента управления TextBox с названиями TextBox1 и TextBox2 и два элемента управления Button с названиямиButton1 и Button2. Установить значение свойства Multilineтекстового поля TextBox2 в Tru e, а значение его свойства ScrollBars– в Both. По желанию можно добавить информационные подписи.
Получившаяся форма должна выглядеть подобнопоказанной на рис. 4.10.3-8.
Рис. 4.10.3-8
2. Добавить следующий исходный код в класс формы (рис. 4.10.3-9).
| PublicClass Form1 PrivateSub Button2_Click(ByVal sender AsSystem.Object, _ ByVal e As System.EventArgs) Handles Button2.Click ' Записать в файл отредактированные данные If (My.Computer.FileSystem.FileExists(TextBox1.Text) = True) Then If (MsgBox("Файл уже существует. Переписать в него данные?", _ MsgBoxStyle.YesNoOrMsgBoxStyle.Question, _ "Переписать") <> MsgBoxResult.Yes) ThenExitSub EndIf ' Записьданных Try My.Computer.FileSystem.WriteAllText(TextBox1.Text,TextBox2.Text,False) Catch ex As Exception MsgBox("Данные в файл не могут быть переписаны из за "& _ " следующей ошибки:"& vbCrLf & vbCrLf & ex.Message) EndTry EndSub PrivateSub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click ' Открыть существующий фаайл и загрузить из него текст Try TextBox2.Text = My.Computer.FileSystem.ReadAllText(TextBox1.Text) Catch ex As Exception MsgBox("Файл не может быть открыт из-за "& _ " следующей ошибки:"& vbCrLf & vbCrLf & ex.Message) EndTry EndSub EndClass |
Рис. 4.10.3-9
|
|
|
3. Запустить программу на выполнение, ввести путь к файлу в текстовое поле TextBox1 и нажать кнопку Открыть файл.
4. Изменить содержимое файла в текстовом поле TextBox2, после чего сохранить измененное содержимое, нажав кнопку Записать файл.
В примере 4.10.3-1продемонстрирована обычная ситуация возникновения ошибки времени исполнения – проблема выбора пути к файлу. Обратите внимание, в этом примере исключение генерирует экземпляр класса Exception, который помещается в переменную ex. Из этой переменной можно взять текст сообщения об исключении, который в данном случае выводится в окно сообщения.
