Referat.me

Название: Работа с текстовыми файлами в Visual Basic

Вид работы: реферат

Рубрика: Информатика и программирование

Размер файла: 15.63 Kb

Скачать файл: referat.me-138932.docx

Краткое описание работы: Открытие файла для чтения информации из него. Открытие файла для записи информации в него.

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

.

Совсем недавно в непомню какой коференции я видел запись какого-то человека, который просил, чтобы хоть кто-нибудь объяснил ему элементарную работу с файлами... Казалось бы такое простое... Но это простое для тех, кто уже хоть немного продвинулся в программировании, а кто это только начал? Это же, действительно, непроходимый лес! И я сильно сомневаюсь, чтобы кто-нибудь из других наших Web-мастеров когда-нибудь уделит этому хоть какое-то внимание. Поэтому этим займусь я и попробую в этой статье показать только основы.

1. Открытие файла для чтения информации из него.

Итак, чтобы безпроблемно работать с текстовыми файлами сначала их нужно открыть. Делается это с помощью оператора Open, например:

Open "c:text.txt" For Input As #1

Обратите внимание на режим открытия файла - Input (для чтения). Здесь файл text.txt открывается для считывания под номером 1. Внимание!!! Номер файла - обязательный параметр, и вводить его нужно всегда! Если ваша программа будет иметь дело не с одним десятком открытых файлов, то уследить за их нумерацией будет сложновато. Используйте для этого функцию FreeFile. Она возвращает ещё не занятый номер (от 1 до 511) для файла:

Dim FileNum As Integer

FileNum = FreeFile

Open "c:text.txt" For Input As FileNum

Так, файл открыли! Теперь из него нужно что-нибудь считать. Оператор Line Input считывает из открытого файла по одной строке при каждом вызове. Поэтому для считывания из файла нужно построить цикл, который бы вызывал этот оператор до тех пор, пока не дошёл бы до конца файла:

цикл выполняется, пока конец файла не достигнут

Do Until EOF(FileNum)

при каждом вызове оператора Line Input он записывает в

переменную новою строку

Line Input #FileNum, переменная

Loop

Закрыть открытый файл можно оператором Close #FileNum. А теперь вот как это должно выглядеть в практике:

Dim FileNum As Integer

Dim txt As String

Dim alltxt As String

FileNum = FreeFile

открываем файл в режиме чтения

Open "c:text.txt" For Input As FileNum

запускаем вышеупомянутый цикл

Do Until EOF(FileNum)

считываем строку из файла с номером FileNum и кладём её в

переменную txt

Line Input #FileNum, txt

теперь к переменной alltxt добавляем содержимое переменной txt -

строки и vb-константу vbCrLf (Chr(13)+Chr(10)), т.к. каждая строка

должна быть с новой строки :-)

alltxt = alltxt + txt + vbCrLf

Loop

закрываем файл с номером FileNum

Close #FileNum

выводим содержимое переменной alltext

MsgBox alltxt

2. Открытие файла для записи информации в него.

Записать информацию в файл ещё проще!!! Эта операция отличается от предыдущей только тем, что открыть файл надо в режиме записи:

Open "c:text.txt" For Output As FileNum

и вместо цикла нужно вставить оператор Print #, который записывает в файл содержимое переменной:

Print #FileNum, "Азбука Visual Basic"

или

Print #FileNum, alltext

Пример:

Dim FileNum As Integer

Dim txt As String

FileNum = FreeFile

txt = "http://members.tripod.de/cmvb"

открываем файл в режиме записи

Open "c:text.txt" For Output As FileNum

Print #FileNum, txt

закрываем файл с номером FileNum

Close #FileNum

Проверьте содержимое файла.

И ещё хочу предложить второй способ записи информации в файл - с помощью API-функции WritePrivateProfileStringByKeyName. Считывать же информацию нужно с помощью API-функции GetPrivateProfileString. Теперь расскажу - как всё это работает?

1.Создайте стандартный проект.

2.Введите модуль.

3.Удалите форму и кликните два раза по модулю.

4.В раздел General Declarations следующее объявление двух, вышеназванных функций:

Declare Function GetPrivateProfileString& Lib _

"kernel32" Alias "GetPrivateProfileStringA" (ByVal _

lpszSection$, ByVal lpszKey$, ByVal lpszDefault$, _

ByVal lpszReturnBuffer$, ByVal cchReturnBuffer&, _

ByVal lpszFile$)

lpszSection -имя секции

lpszKey - имя ключа

lpszDefault - значение, возвращаемое по умолчанию, при строке ""

lpszReturnBuffer - место для строки

cchReturnBuffer - размер (длина) места для строки

lpszFile - имя файла

Declare Function WritePrivateProfileStringByKeyName% Lib _

"kernel32" Alias "WritePrivateProfileStringA" (ByVal _

lpApplicationName As String, ByVal lpKeyName As String, _

ByVal lpString As String, ByVal lplFileName As String)

lpApplicationName - имя секции

lpKeyName - имя ключа

lpString - строка

lplFileName - имя файла

5.Создайте подпрограмму Main - просто введите Sub Main.

6.В подпрограмму Main введите:

Sub Main()

создаём файл test.ini, в нём заголовок "Main", ключ "URL" _

и строку "http://members.tripod.de/cmvb"

Call WritePrivateProfileStringByKeyName("Main", "URL", _

"http://members.tripod.de/cmvb", "c:test.ini")

создаём файл test.ini, в нём заголовок "Main", ключ "eMail" _

и строку "[email protected]"

Call WritePrivateProfileStringByKeyName("Main", "eMail", _

"[email protected]", "c:test.ini")

End Sub

При запуске проекта на диске С: тут же будет создан файл Test.ini со следующим содержимым:

[Main]

URL=http://members.tripod.de/cmvb

[email protected]

8:-O!!! Не правда ли, просто? А считать это чуть-чуть сложнее. Итак, файл создан, теперь поробуем считать информацию оттуда. Удалите всё, что находится между строками "Sub Main()" и "End Sub". Впишите следующее:

Sub Main()

создаём переменную, в которую будет передоваться строка

Dim MyString As String

"набиваем" её пробелами

MyString = Space(100)

открывается файл файл test.ini, и в переменную MyString _

записывается строка из заголовка "Main", ключа "URL"

Call GetPrivateProfileString("Main", "URL", "", MyString, _

Len(MyString), "C:test.ini")

выводится на экран содержимое переменной MyString

MsgBox MyString

открывается файл файл test.ini, и в переменную MyString _

записывается строка из заголовка "Main", ключа "eMail"

Call GetPrivateProfileString("Main", "eMail", "", MyString, _

Len(MyString), "C:test.ini")

выводится на экран содержимое переменной MyString

MsgBox MyString

End Sub

Похожие работы

  • Разработка программы представления табличных данных в виде диаграммы прямоугольников

    Словесное описание алгоритма программы. Открытие файла процедурой Rewrite, его проверка на наличие ошибок при открытии. Особенности построения диаграммы. Листинг программы, ее тестирование и отладка. Выполнение процедуры CloseFile при закрытии файла.

  • Программа coDec

    Задано число к и последовательность чисел от 1 до к 1......к. Необходимо зашифровать литерную последовательность, находящуюся в файле в соответствии с

  • Программа для просмотра изображений

    Воспользуемся компонентом Image для создания простейшей программы, позволяющей просматривать файлы изображений.

  • Универсальный прослушивающий просмотрщик

    Создайте папку Browser, в которую позднее поместите проект этого приложения. В проект добавите файл Mci.vbx (поддержка мультимедийных объектов) и файл Cmdialog.vbx (поддержка окна общих диалогов).

  • Чтение, создание, запись и печать текстовых файлов

    Создайте папку с произвольным названием, например, Write. Запустите Visual Basic. В проект будущего приложения добавьте файл Cmdialog.vbx (поддержка окна общих диалогов).

  • Работа с файлам в Дельфи

    В статье рассматриваются стандартные I/O операции с файлами, типичные ошибки и методы их предотвращения.

  • Организация внешних файлов и работа с ними

    файлом понимают любой набор данных. Так, исходные данные в программе можно считать файлом. Файлом могут быть и результаты, и сама программа. В практике программирования часто встречаются задачи, при решении которых можно хранить обрабатываемые данные на внешнем носителе. В этом случае данные оформляются в виде

  • Организация работы с файлами в системе “ТУРБО-ПРОЛОГ”

    Определение файлов. Порядок работы с файлами пользователя. Стандартные предикаты обработки файлов и техника их использования.

  • Файлы

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

  • Работа с графическим пакетом Corel Draw и создание тестовой программы в среде Visual Basic

    Система программирования - Visual Basic. Новые возможности. Быстрый запуск проекта. Средства управления. Что позволяет Visual Basic. Краткое описание работы. Corel Draw. Отличие векторной графики от растровой. Краткое описание работы в Corel Draw.