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

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

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

Работа с бинарными файлами

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

Код

'*******************************************************************
'Работа с бинарными файлами
'Aleksey S Nemiro http://aleksey.nemiro.ru
'http://kbyte.ru - портал для программистов
'http://vbnet.su - Visual Basic .NET. Статьи. Примеры. Форум.
'*******************************************************************
 
'Запись в бинарный файл:
Try
 Dim myFileStream As FileStream
 myFileStream = New FileStream("C:\Binary.dat", FileMode.Create)
 Dim myBinaryWriter As New BinaryWriter(myFileStream)
 myBinaryWriter.Write("Привет! Это бинарные данные :)")
 myBinaryWriter.Close()
 myFileStream.Close()
Catch ex As Exception
 MsgBox(ex.ToString) 'ошибка
End Try
'или
Try
 Using myFileStream As New FileStream("C:\Binary.dat", FileMode.Create)
 Using myBinaryWriter As New BinaryWriter(myFileStream)
 myBinaryWriter.Write("Привет! Это бинарные данные :)")
 End Using
 End Using
Catch ex As Exception
 MsgBox(ex.ToString) 'ошибка
End Try
 
'*******************************************************************
 
'Чтение бинарного файла:
Try
 Dim myFileStream As System.IO.FileStream
 myFileStream = New System.IO.FileStream("C:\Binary.dat", FileMode.Open)
 Dim myBinaryReader As New System.IO.BinaryReader(myFileStream)
 'считываем файл в переменную bData
 Dim bData() As Byte = myBinaryReader.ReadBytes(myFileStream.Length)
 'можно использовать другие методы чтения, например:
 'myBinaryReader.ReadString()
 myBinaryReader.Close()
 myFileStream.Close()
Catch ex As Exception
 MsgBox(ex.ToString) 'ошибка
End Try
'или
Try
 Using myFileStream As New System.IO.FileStream("C:\Binary.dat", FileMode.Open)
 Using myBinaryReader As New System.IO.BinaryReader(myFileStream)
 'считываем файл в переменную bData
 Dim bData() As Byte = myBinaryReader.ReadBytes(myFileStream.Length)
 'можно использовать другие методы чтения, например:
 'myBinaryReader.ReadString()
 End Using
 End Using
Catch ex As Exception
 MsgBox(ex.ToString) 'ошибка
End Try
Об авторе

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

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

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

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


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

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