Мой Kbyte.Ru
Рассылка Kbyte.Ru
Группы на Kbyte.Ru
Партнеры Kbyte.Ru
Реклама
Сделано руками
Сделано руками
> Исходные коды - Алексей Немиро -

Visual Basic .NET - Файлы и папки

Все примеры / Файлы и папки

Работа с текстовыми файлами

Автор: Алексей Немиро | добавлено: 06.03.2010, 17:50 | просмотров: 4896 (1+) | комментариев: 0 | рейтинг: *x8
Запись и чтение текстовых файлов.

Код

'*******************************************************************
'Работа с текстовыми файлами
'Aleksey S Nemiro http://aleksey.nemiro.ru
'http://kbyte.ru - портал для программистов
'http://vbnet.su - Visual Basic .NET. Статьи. Примеры. Форум.
'*******************************************************************
 
'Запись в текстовой файл:
Try
 Dim myWriteFile As New StreamWriter("c:\VBNET.Su.txt")
 myWriteFile.WriteLine("Добро пожаловать на VBNet.Su!")
 myWriteFile.Flush()
 myWriteFile.Close()
 myWriteFile = Nothing
Catch ex As IOException
 MsgBox(ex.ToString) 'ошибка
End Try
'или (для Framework 2.x и старше)
Try
 Using myWriteFile As New StreamWriter("c:\VBNET.Su.txt")
 myWriteFile.WriteLine("Добро пожаловать на VBNet.Su!")
 End Using
Catch ex As IOException
 MsgBox(ex.ToString) 'ошибка
End Try
 
'*******************************************************************
 
'Чтение из текстового файла:
Try
 Dim myReadFile As New StreamReader("c:\VBNET.Su.txt")
 'если возникнут проблемы с кодировкой, 
 'нужную кодировку можно указать дополнительным параметром:
 'Dim myReadFile As New StreamReader("c:\VBNET.Su.txt",System.Text.Encoding.GetEncoding(1251))'windows-1251
 Dim sReadLine As String = ""
 While True
 sReadLine = myReadFile.ReadLine()
 If sReadLine Is Nothing Then
 Exit While
 Else
 MsgBox(sReadLine)
 End If
 End While
 myReadFile.Close()
 myReadFile = Nothing
Catch ex As IOException
 MsgBox(ex.ToString) 'ошибка
End Try
'или (для Framework 2.x и старше)
Try
 Using myReadFile As New StreamReader("c:\VBNET.Su.txt")
 'если возникнут проблемы с кодировкой, 
 'нужную кодировку можно указать дополнительным параметром:
 'Using myReadFile As New StreamReader("c:\VBNET.Su.txt",System.Text.Encoding.GetEncoding(1251))'windows-1251
 Dim sReadLine As String = ""
 While True
 sReadLine = myReadFile.ReadLine()
 If sReadLine Is Nothing Then
 Exit While
 Else
 MsgBox(sReadLine)
 End If
 End While
 End Using
Catch ex As IOException
 MsgBox(ex.ToString) 'ошибка
End Try
 
'для чтения всего файла можно использовать метод ReadToEnd():
'MsgBox(myReadFile.ReadToEnd())
Об авторе

Алексей Немиро

Интернет-деятель. Автор многочисленных статей и переводов статей по программированию и информационным технологиям. Работы Алексея можно найти в популярных печатных изданиях компьютерной тематики. Автор проекта Kbyte.Ru.
Сейчас Алексей занимается профессиональным Web-программированием на базе технологий .NET Framework. Иногда пишет различные программки и компоненты для Windows и Android. В свободное время занимается Web-дизайном, увлекается фото- и видеосъемкой.

См. также:
Профиль автора
Алексей Немиро
Последние комментарии (всего: 0)

Добавлять комментарии могут только зарегистрированные пользователи сайта.
Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации OpenID.
Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь.


Нет комментариев...

Авторизация
 
OpenID
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
Поиск по сайту
Реклама
Счетчики