Пример 16

на сайте на Народ.Ру на Яндексе


Главная Назад Пример 1 Пример 2 Пример 3 Пример 4 Пример 5 Пример 6 Пример 7 Пример 8 Пример 9 Пример 10 Пример 11 Пример 12 Пример 13 Пример 14 Пример 15 Пример 16 Пример 17 Пример 18 Пример 19 Пример 20 Пример 21 Пример 22

Яndex

www.yandex.ru

Rambler's Top100

Рейтинг@Mail.ru

Последнее обновление 11/21/02.

 

Операции с файлами. Простые процедуры, которые могут быть полезны начинающим.
Операции с файлами



'******************************
'    Чтение бинарного файла                                         
'******************************

'Назначаем дескриптор файла
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
 
Найди на Бегуне:
Интернет-услуги и сервисы Интернет-услуги и сервисы
Компьютеры и оргтехника Компьютеры и оргтехника
Бытовая техника Бытовая техника
Связь Связь
Авто-мото Авто-мото
Книги, музыка и видео Книги, музыка и видео
Продаем целевых
посетителей!

Используются технологии uCoz