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

👉🏻👉🏻👉🏻 ВСЯ ИНФОРМАЦИЯ ДОСТУПНА ЗДЕСЬ ЖМИТЕ 👈🏻👈🏻👈🏻

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

Итак, чтобы безпроблемно работать с текстовыми файлами сначала их нужно открыть. Делается это с помощью оператора Open, например:
Обратите внимание на режим открытия файла - Input (для чтения). Здесь файл text.txt открывается для считывания под номером 1. Внимание!!! Номер файла - обязательный параметр, и вводить его нужно всегда! Если ваша программа будет иметь дело не с одним десятком открытых файлов, то уследить за их нумерацией будет сложновато. Используйте для этого функцию FreeFile. Она возвращает ещё не занятый номер (от 1 до 511) для файла:
Open "c:\text.txt" For Input As FileNum
Так, файл открыли! Теперь из него нужно что-нибудь считать. Оператор Line Input считывает из открытого файла по одной строке при каждом вызове. Поэтому для считывания из файла нужно построить цикл, который бы вызывал этот оператор до тех пор, пока не дошёл бы до конца файла:
цикл выполняется, пока конец файла не достигнут
при каждом вызове оператора Line Input он записывает в
Закрыть открытый файл можно оператором Close #FileNum. А теперь вот как это должно выглядеть в практике:
Open "c:\text.txt" For Input As FileNum
считываем строку из файла с номером FileNum и кладём её в
теперь к переменной alltxt добавляем содержимое переменной txt -
строки и vb-константу vbCrLf (Chr(13)+Chr(10)), т.к. каждая строка
выводим содержимое переменной alltext
2. Открытие файла для записи информации в него.

Записать информацию в файл ещё проще!!! Эта операция отличается от предыдущей только тем, что открыть файл надо в режиме записи:
Open "c:\text.txt" For Output As FileNum
и вместо цикла нужно вставить оператор Print #, который записывает в файл содержимое переменной:
Print #FileNum, "Азбука Visual Basic"
txt = "http://members.tripod.de/cmvb"
Open "c:\text.txt" For Output As FileNum
И ещё хочу предложить второй способ записи информации в файл - с помощью API-функции WritePrivateProfileStringByKeyName. Считывать же информацию нужно с помощью API-функции GetPrivateProfileString. Теперь расскажу - как всё это работает?
3.Удалите форму и кликните два раза по модулю.
4.В раздел General Declarations следующее объявление двух, вышеназванных функций:
Declare Function GetPrivateProfileString& Lib _
"kernel32" Alias "GetPrivateProfileStringA" (ByVal _
lpszSection$, ByVal lpszKey$, ByVal lpszDefault$, _
ByVal lpszReturnBuffer$, ByVal cchReturnBuffer&, _
lpszDefault - значение, возвращаемое по умолчанию, при строке ""
lpszReturnBuffer - место для строки
cchReturnBuffer - размер (длина) места для строки
Declare Function WritePrivateProfileStringByKeyName% Lib _
"kernel32" Alias "WritePrivateProfileStringA" (ByVal _
lpApplicationName As String, ByVal lpKeyName As String, _
ByVal lpString As String, ByVal lplFileName As String)
5.Создайте подпрограмму 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" _
Call WritePrivateProfileStringByKeyName("Main", "eMail", _
"v1500mk@t-online.de", "c:\test.ini")
При запуске проекта на диске С: тут же будет создан файл Test.ini со следующим содержимым:
8:-O!!! Не правда ли, просто? А считать это чуть-чуть сложнее. Итак, файл создан, теперь поробуем считать информацию оттуда. Удалите всё, что находится между строками "Sub Main()" и "End Sub". Впишите следующее:
создаём переменную, в которую будет передоваться строка
открывается файл файл test.ini, и в переменную MyString _
записывается строка из заголовка "Main", ключа "URL"
Call GetPrivateProfileString("Main", "URL", "", MyString, _
выводится на экран содержимое переменной MyString
открывается файл файл test.ini, и в переменную MyString _
записывается строка из заголовка "Main", ключа "eMail"
Call GetPrivateProfileString("Main", "eMail", "", MyString, _
выводится на экран содержимое переменной MyString

Название: Работа с текстовыми файлами в Visual Basic
Раздел: Рефераты по информатике, программированию
Тип: реферат
Добавлен 14:39:46 27 декабря 2005 Похожие работы
Просмотров: 637
Комментариев: 18
Оценило: 5 человек
Средний балл: 5
Оценка: неизвестно   Скачать

Срочная помощь учащимся в написании различных работ. Бесплатные корректировки! Круглосуточная поддержка! Узнай стоимость твоей работы на сайте 64362.ru
Если Вам нужна помощь с учебными работами, ну или будет нужна в будущем (курсовая, дипломная, отчет по практике, контрольная, РГР, решение задач, онлайн-помощь на экзамене или "любая другая" учебная работа...) - обращайтесь: https://clck.ru/P8YFs - (просто скопируйте этот адрес и вставьте в браузер) Сделаем все качественно и в самые короткие сроки + бесплатные доработки до самой сдачи/защиты! Предоставим все необходимые гарантии.
Привет студентам) если возникают трудности с любой работой (от реферата и контрольных до диплома), можете обратиться на FAST-REFERAT.RU , я там обычно заказываю, все качественно и в срок) в любом случае попробуйте, за спрос денег не берут)
Да, но только в случае крайней необходимости.

Реферат: Работа с текстовыми файлами в Visual Basic
Реферат: Реформы Петра Великого 5
Сочинение На Тему Малодушие 9.3
Управление Документацией Реферат
Реферат по теме Гибель кносской монархии
Реферат: Освободительное Движение в V-IX веках
Проблемное Обучение Математике В Начальной Школе Курсовая
Контрольная работа: Эволюция государственной власти в средневековом Казахстане
Реферат: My Dog Essay Research Paper Over the
Реферат: Эрекция
В чем заключается соотношение морали и права?
Контактные Бытовые Инфекции Для Реферата
Контрольная Работа На Тему Закон Композиции И Пропорциональности
Курсовая Работа На Тему Комплексное Исследование Рынка Электрочайника Philips
Дипломная работа по теме Влияние тренинговых упражнений на развитие самооценки подростков
Реферат: Юсуф Баласагуни
Диссертации Экономическая Безопасность
Очное или заочное образование
Сочинение По Литературе 9 Класс Бедная Лиза
Реферат: Фирма как организационная форма предпринимательства. Скачать бесплатно и без регистрации
Контрольная работа по теме Понятие конфиденциального делопроизводства. Автоматизация документационного обеспечения
Реферат: Специализированные учреждения ООН
Реферат: Мировое хозяйство-основные черты и проблемы развития
Реферат: Международный договор купли-продажи в современной внешней торговле