Операции с
файлами
'******************************
' Чтение бинарного файла
'******************************
'Назначаем дескриптор файла
nFileHandle=FreeFile
'Открываем бинарный файл
Open "C:\TEST.BIN" For Binary As #nFileHandle
'Подготовить строку из 20 пробелов
МуString=String(20," ")
'Прочитать 20 байт из позиции 50 файла
Get #nFileHandle, 50, MyString
'Закрыть файл
Close nFileHandle
'Для прочтения всего файла можно
'вместо строки с Get использовать комбинацию на основе цикла Do While...Loop,
'которая считывает в str1 по одному символу и накапливает
'их в str2:
Do While Not EOF (nFileHandle)
Get #nFileHandle, str1
str2=str2 & str1
Loop
'*******************************
' Запись в текстовый файл
'*******************************
Dim FileName As String
Dim Str, Str2 As String
Str = Text1.Text
'Открытие файла и запись информации из Str в файл
FileName = "C:\proba.txt"
Open FileName For Output As 1
Print #1, Str
Close 1
'*******************************
' Чтение текстового файла
'*******************************
Open FileName For Input As 1
Str2 = Input(LOF(1), 1)
Text2.Text = Str
Close 1
|