Банк рефератов содержит более 364 тысяч рефератов, курсовых и дипломных работ, шпаргалок и докладов по различным дисциплинам: истории, психологии, экономике, менеджменту, философии, праву, экологии. А также изложения, сочинения по литературе, отчеты по практике, топики по английскому.
Полнотекстовый поиск
Всего работ:
364150
Теги названий
Разделы
Авиация и космонавтика (304)
Административное право (123)
Арбитражный процесс (23)
Архитектура (113)
Астрология (4)
Астрономия (4814)
Банковское дело (5227)
Безопасность жизнедеятельности (2616)
Биографии (3423)
Биология (4214)
Биология и химия (1518)
Биржевое дело (68)
Ботаника и сельское хоз-во (2836)
Бухгалтерский учет и аудит (8269)
Валютные отношения (50)
Ветеринария (50)
Военная кафедра (762)
ГДЗ (2)
География (5275)
Геодезия (30)
Геология (1222)
Геополитика (43)
Государство и право (20403)
Гражданское право и процесс (465)
Делопроизводство (19)
Деньги и кредит (108)
ЕГЭ (173)
Естествознание (96)
Журналистика (899)
ЗНО (54)
Зоология (34)
Издательское дело и полиграфия (476)
Инвестиции (106)
Иностранный язык (62792)
Информатика (3562)
Информатика, программирование (6444)
Исторические личности (2165)
История (21320)
История техники (766)
Кибернетика (64)
Коммуникации и связь (3145)
Компьютерные науки (60)
Косметология (17)
Краеведение и этнография (588)
Краткое содержание произведений (1000)
Криминалистика (106)
Криминология (48)
Криптология (3)
Кулинария (1167)
Культура и искусство (8485)
Культурология (537)
Литература : зарубежная (2044)
Литература и русский язык (11657)
Логика (532)
Логистика (21)
Маркетинг (7985)
Математика (3721)
Медицина, здоровье (10549)
Медицинские науки (88)
Международное публичное право (58)
Международное частное право (36)
Международные отношения (2257)
Менеджмент (12491)
Металлургия (91)
Москвоведение (797)
Музыка (1338)
Муниципальное право (24)
Налоги, налогообложение (214)
Наука и техника (1141)
Начертательная геометрия (3)
Оккультизм и уфология (8)
Остальные рефераты (21697)
Педагогика (7850)
Политология (3801)
Право (682)
Право, юриспруденция (2881)
Предпринимательство (475)
Прикладные науки (1)
Промышленность, производство (7100)
Психология (8694)
психология, педагогика (4121)
Радиоэлектроника (443)
Реклама (952)
Религия и мифология (2967)
Риторика (23)
Сексология (748)
Социология (4876)
Статистика (95)
Страхование (107)
Строительные науки (7)
Строительство (2004)
Схемотехника (15)
Таможенная система (663)
Теория государства и права (240)
Теория организации (39)
Теплотехника (25)
Технология (624)
Товароведение (16)
Транспорт (2652)
Трудовое право (136)
Туризм (90)
Уголовное право и процесс (406)
Управление (95)
Управленческие науки (24)
Физика (3463)
Физкультура и спорт (4482)
Философия (7216)
Финансовые науки (4592)
Финансы (5386)
Фотография (3)
Химия (2244)
Хозяйственное право (23)
Цифровые устройства (29)
Экологическое право (35)
Экология (4517)
Экономика (20645)
Экономико-математическое моделирование (666)
Экономическая география (119)
Экономическая теория (2573)
Этика (889)
Юриспруденция (288)
Языковедение (148)
Языкознание, филология (1140)

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

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

.

Совсем недавно в непомню какой коференции я видел запись какого-то человека, который просил, чтобы хоть кто-нибудь объяснил ему элементарную работу с файлами... Казалось бы такое простое... Но это простое для тех, кто уже хоть немного продвинулся в программировании, а кто это только начал? Это же, действительно, непроходимый лес! И я сильно сомневаюсь, чтобы кто-нибудь из других наших 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" _

и строку "v1500mk@t-online.de"

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

"v1500mk@t-online.de", "c:\test.ini")

End Sub

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

[Main]

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

eMail=v1500mk@t-online.de

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

Оценить/Добавить комментарий
Имя
Оценка
Комментарии:
Где скачать еще рефератов? Здесь: letsdoit777.blogspot.com
Евгений22:29:44 18 марта 2016
Кто еще хочет зарабатывать от 9000 рублей в день "Чистых Денег"? Узнайте как: business1777.blogspot.com ! Cпециально для студентов!
14:40:04 24 ноября 2015
помоги мне пожальюста 05-1888@mail.ru дипломная работа на тему работа с файлами и организация печати на vb
Абдулазизов Алишер12:11:09 26 ноября 2010
помоги мне пожальюстадипломная работа на тему работа с файлами и организация печати на vb
Абдулазизов Алишер12:08:55 26 ноября 2010

Работы, похожие на Реферат: Работа с текстовыми файлами в Visual Basic

Назад
Меню
Главная
Рефераты
Благодарности
Опрос
Станете ли вы заказывать работу за деньги, если не найдете ее в Интернете?

Да, в любом случае.
Да, но только в случае крайней необходимости.
Возможно, в зависимости от цены.
Нет, напишу его сам.
Нет, забью.



Результаты(151296)
Комментарии (1844)
Copyright © 2005-2016 BestReferat.ru bestreferat@mail.ru       реклама на сайте

Рейтинг@Mail.ru