Отправляет email-рассылки с помощью сервиса Sendsay

Программирование на Visual Basic

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Программирование на Visual Basic/Visual Studio и ASP/ASP.NET" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Июнь 2003   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Автор
Сергей

Статистика

6.089 подписчиков
-7 за неделю
←   Все выпуски   →

Программирование на Visual Basic 6.0 в примерах.


Информационный Канал Subscribe.Ru

Здравствуйте!!!

Выпуск – 13: Работа с файлами(часть 2)

Периодичность рассылки: каждая суббота или воскресенье

Сайт и архив рассылки: www.symsoft.narod.ru

mailto:  symsoft@narod.ru

Ведущий рассылки: Сёмин Герман Сергеевич aka FerrUM

Привет всем!!! На прошлом уроке мы научились  работать с ASCII – файлами, а точнее научились записывать в них данные. На этом уроке вы научитесь считывать с этих файлов данные.

 Урок – 13

     “Работа с файлами”

При загрузке сохранённых данных можно прочитать каждую строку в массив.  Массивом называется список однородных величин, на которые можно ссылаться по индексу, т.е.  переменные Variable(0) и Variable(1) – как бы разные и одна переменная может хранить множество значений, к которым можно обращаться по индексу (повторяюсь), например:

Dim V() as Integer

V(0) = 1

V(1) = 123

Здесь переменная V имеет два значения : 1 и 123. Обратится к ним можно так: Print V(0,1)

 

В следующем примере в массив загружается содержимое файла C:\Data\test.txt:

Dim FileNo as Integer

Dim GetValues() as String ‘Переменная с массивом типа String, куда и будет загружаться информация.

Dim Counter as Integer  ‘Счётчик

 

Counter = 0 ‘Задаём начальное значение (инициализируем)

 

FileNo = FreeFile  ‘Получаем уникальный файловый номер

‘Открываем файл:

Open “C:\data\test.txt” For Input as FileNo ‘Всё как в прошлом уроке.

        Do Until EOF(FileNo) ‘ EOF проверяет был ли достигнут конец файла

            Counter = Counter + 1  ‘Прибавляем к счётчику единицу

            ReDim Preserve GetValues(Counter) ‘Счётчик “ставим” в массив к GetValues

            Line Input #FileNo, GetValues(Counter) ‘Считываем данные в массив GetValues

        Loop ‘Конец цикла

Close FileNo ‘ Закрываем файл.

 

Далее напечатаем данные на форму:

 

Dim J as Integer

 

For J = 0 To UBound(GetValues) ‘ Для J от 0 до макс. значения GetValues (UBound – макс. LBound-   ‘минимальное).  

        Print GetValues(J) ‘Печатаем на форме.

Next J

 

                             

 

 

Вот и всё! Выпуск получился довольно маленьким, но задачу я свою выполнил. В следующем(их) в выпуске(ах) я расскажу о произвольном и двоичном доступе к файлам, а уже потом займёмся печатью.

Выпуск – 13: Работа с файлами(часть 2)

Периодичность рассылки: каждая суббота или воскресенье

Сайт и архив рассылки: www.symsoft.narod.ru

mailto:  symsoft@narod.ru

Ведущий рассылки: Сёмин Герман Сергеевич aka FerrUM

http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное