![]() |
|
сделать стартовой | добавить в избранное |
![]() |
Компьютеры, Программирование
Программное обеспечение
Работа с текстовыми файлами в Visual Basic |
Совсем недавно в непомню какой коференции я видел запись какого-то человека, который просил, чтобы хоть кто-нибудь объяснил ему элементарную работу с файлами. Казалось бы такое простое. Но это простое для тех, кто уже хоть немного продвинулся в программировании, а кто это только начал? Это же, действительно, непроходимый лес! И я сильно сомневаюсь, чтобы кто-нибудь из других наших Web-мастеров когда-нибудь уделит этому хоть какое-то внимание. Поэтому этим займусь я и попробую в этой статье показать только основы. 1. Открытие файла для чтения информации из него. Итак, чтобы безпроблемно работать с текстовыми файлами сначала их нужно открыть. Делается это с помощью оператора Ope , например: Ope "c: ex . x " For I pu As #1 Обратите внимание на режим открытия файла - I pu (для чтения). Здесь файл ex . x открывается для считывания под номером 1. Внимание!!! Номер файла - обязательный параметр, и вводить его нужно всегда! Если ваша программа будет иметь дело не с одним десятком открытых файлов, то уследить за их нумерацией будет сложновато. Используйте для этого функцию FreeFile. Она возвращает ещё не занятый номер (от 1 до 511) для файла: Dim File um As I eger File um = FreeFile Ope "c: ex . x " For I pu As File um Так, файл открыли! Теперь из него нужно что-нибудь считать. Оператор Li e I pu считывает из открытого файла по одной строке при каждом вызове. Поэтому для считывания из файла нужно построить цикл, который бы вызывал этот оператор до тех пор, пока не дошёл бы до конца файла: цикл выполняется, пока конец файла не достигнут Do U il EOF(File um) при каждом вызове оператора Li e I pu он записывает в переменную новою строку Li e I pu #File um, переменная Loop Закрыть открытый файл можно оператором Close #File um. А теперь вот как это должно выглядеть в практике: Dim File um As I eger Dim x As S ri g Dim all x As S ri g File um = FreeFile открываем файл в режиме чтения Ope "c: ex . x " For I pu As File um запускаем вышеупомянутый цикл Do U il EOF(File um) считываем строку из файла с номером File um и кладём её в переменную x Li e I pu #File um, x теперь к переменной all x добавляем содержимое переменной x - строки и vb-константу vbCrLf (Chr(13) Chr(10)), т.к. каждая строка должна быть с новой строки :-) all x = all x x vbCrLf Loop закрываем файл с номером File um Close #File um выводим содержимое переменной all ex MsgBox all x 2. Открытие файла для записи информации в него. Записать информацию в файл ещё проще!!! Эта операция отличается от предыдущей только тем, что открыть файл надо в режиме записи: Ope "c: ex . x " For Ou pu As File um и вместо цикла нужно вставить оператор Pri #, который записывает в файл содержимое переменной: Pri #File um, "Азбука Visual Basic" или Pri #File um, all ex Пример: Dim File um As I eger Dim x As S ri g File um = FreeFile x = " открываем файл в режиме записи Ope "c: ex . x " For Ou pu As File um Pri #File um, x закрываем файл с номером File um Close #File um Проверьте содержимое файла. И ещё хочу предложить второй способ записи информации в файл - с помощью API-функции Wri ePriva eProfileS ri gByKey ame.
Считывать же информацию нужно с помощью API-функции Ge Priva eProfileS ri g. Теперь расскажу - как всё это работает? 1.Создайте стандартный проект. 2.Введите модуль. 3.Удалите форму и кликните два раза по модулю. 4.В раздел Ge eral Declara io s следующее объявление двух, вышеназванных функций: Declare Fu c io Ge Priva eProfileS ri g& Lib "ker el32" Alias "Ge Priva eProfileS ri gA" (ByVal lpszSec io $, ByVal lpszKey$, ByVal lpszDefaul $, ByVal lpszRe ur Buffer$, ByVal cchRe ur Buffer&, ByVal lpszFile$) lpszSec io -имя секции lpszKey - имя ключа lpszDefaul - значение, возвращаемое по умолчанию, при строке "" lpszRe ur Buffer - место для строки cchRe ur Buffer - размер (длина) места для строки lpszFile - имя файла Declare Fu c io Wri ePriva eProfileS ri gByKey ame% Lib "ker el32" Alias "Wri ePriva eProfileS ri gA" (ByVal lpApplica io ame As S ri g, ByVal lpKey ame As S ri g, ByVal lpS ri g As S ri g, ByVal lplFile ame As S ri g) lpApplica io ame - имя секции lpKey ame - имя ключа lpS ri g - строка lplFile ame - имя файла 5.Создайте подпрограмму Mai - просто введите Sub Mai . 6.В подпрограмму Mai введите: Sub Mai () создаём файл es .i i, в нём заголовок "Mai ", ключ "URL" и строку " Call Wri ePriva eProfileS ri gByKey ame("Mai ", "URL", " "c: es .i i") создаём файл es .i i, в нём заголовок "Mai ", ключ "eMail" и строку "v1500mk@ -o li e.de" Call Wri ePriva eProfileS ri gByKey ame("Mai ", "eMail", "v1500mk@ -o li e.de", "c: es .i i") E d Sub При запуске проекта на диске С: тут же будет создан файл es .i i со следующим содержимым: URL= eMail=v1500mk@ -o li e.de 8:-O!!! Не правда ли, просто? А считать это чуть-чуть сложнее. Итак, файл создан, теперь поробуем считать информацию оттуда. Удалите всё, что находится между строками "Sub Mai ()" и "E d Sub". Впишите следующее: Sub Mai () создаём переменную, в которую будет передоваться строка Dim MyS ri g As S ri g "набиваем" её пробелами MyS ri g = Space(100) открывается файл файл es .i i, и в переменную MyS ri g записывается строка из заголовка "Mai ", ключа "URL" Call Ge Priva eProfileS ri g("Mai ", "URL", "", MyS ri g, Le (MyS ri g), "C: es .i i") выводится на экран содержимое переменной MyS ri g MsgBox MyS ri g открывается файл файл es .i i, и в переменную MyS ri g записывается строка из заголовка "Mai ", ключа "eMail" Call Ge Priva eProfileS ri g("Mai ", "eMail", "", MyS ri g, Le (MyS ri g), "C: es .i i") выводится на экран содержимое переменной MyS ri g MsgBox MyS ri g E d Sub Список литературы
Если требуется сохранить весь сайт либо несколько фотоальбомов или каталогов мультимедийных файлов, то возможностей стандартных средств просмотра веб-страниц не хватит. Если нужно поместить на жесткий диск копию сайта, то следует воспользоваться специальными программами – офлайн-браузерами. Offline Explorer Offline Explorer ( – одна из лучших программ для скачивания сайтов, которая может целиком загружать сайты на жесткий диск и показывать их пользователю. Кроме обычных веб-проектов, состоящих из набора простых HTML-страниц, Offline Explorer умеет работать с динамическими проектами, то есть с сайтами, выполненными с использованием технологий PHP, XML. ПРИМЕЧАНИЕ Большинство программ этого класса не могут скачивать подобные проекты. Кроме того, Offline Explorer умеет распознавать и загружать 15 типов изображений, почти 20 видео– и около 10 аудиоформатов, полтора десятка архивов. Программа может также загружать специальные файлы, например сценарии Java и Visual Basic, таблицы стилей, Flash-ролики. Все эти возможности позволяют представить сохраненный на жестком диске веб-сайт в таком же виде, в каком он был в Интернете
2. Работа с файлами (лабораторная работа)
3. Организация работы с файлами в системе “ТУРБО-ПРОЛОГ”
4. Запись и считывание данных (работа с файлами)
5. Работа в среде Visual Basic
9. Методика работы с текстовой информацией
10. Эффективная технология работы с растущими потоками несистематизированной текстовой информации
11. Текстовые файлы. Редакторы текстовых файлов
12. Объект Recordset и текстовые файлы (ASP)
13. Чтение, создание, запись и печать текстовых файлов
14. Архівація файлів та створення архіватора текстових файлів
15. Обработка текстовых файлов
16. Программа для перегляду текстових файлів різного розміру
17. Производство отделочных работ
18. Штукатурные работы с основами охраны труда
19. Производство работ по возведению жилого кирпичного здания
20. Общие виды работ, выполняемых на воздушных судах
21. Структура и алгоритмы работы спутниковых радионавигационных систем
25. Спасательные и неотложные аварийно-восстановительные работы
26. Организация и проведение спасательных работ в чрезвычайных ситуациях
27. Применение ЭВМ для повышения эффективности работы штаба ГО РАТАП
28. Спасательные и неотложные аварийно-восстановительные работы в очагах поражения
30. Совершенствование организации работы отдела контроля за поступлением налогов с физических лиц
31. Исключительные права на средства индивидуализации товаров, работ, услуг и их производителей
32. Контрольная работа по всеобщей истории государства и права
33. Контрольная работа по муниципальному праву Вариант 2
34. Контрольная работа по Римскому праву
35. Прием и порядок переведения работника на другую работу
36. Трудовой договор (контракт) в системе трудовых правоотношений и кадровая работа на предприятиях
37. Особенности рассмотрения в судах трудовых споров о восстановлении на работе
42. Сравнительный анализ портретов Ф.И Шаляпина. Работы Б.М Кустодиева и К.А Коровина
43. Культурологическая проблематика в работе Л.Н.Гумилева "Этногенез и биосфера Земли"
44. О развитии навыков работы над полифонией
45. Начальный этап работы над музыкальным произведением
47. Принципы работы системы управления параллельными процессами в локальных сетях компьютеров
48. Работа маршрутизаторов в компьютерной сети
50. Модемы, модемные стандарты, принцип работы
53. Постановка лабораторной работы по теории графов
57. Расчетная работа по дисциплине "Информатика" (создание шаблона "Пояснительная записка")
59. Семантический анализ структуры EXE файла и дисассемблер (с примерами и исходниками), вирусология
60. Программирование логической игры на visual basic
61. Методические рекомендации и задания для лабораторных работ по дисциплине «Вычислительные системы»
62. Тест на языке программирования Visual Basic
63. Командные файлы
64. Отчет по практической работе "Изучение MS Windows & MS Word 4 Windows 2.0"
66. Пояснительная записка к выполнению расчетной работы по дисциплине "информатика"
67. Visual Basic
68. Контрольная работа по Word
69. Разработка цикла лабораторных работ по основам работы в WINDOWS 2000
73. Работа с электронными таблицами Excel. Работа с графическим пакетом Corel Draw
77. Расчетно-графическая работа по специальным главам математики
78. Лабораторные работы по экономико-математическому моделированию
79. Построение графика функции различными методами (самостоятельная работа учащихся)
81. Лабораторные работы - медицинское училище
82. Неврозы у детей (Конторльная работа)
83. Дневник практики - работа на скорой помощи
84. Отчет о проделанной работе медицинской сестры стоматологического отделения
85. Отчёт о прохождении производственной практики (работа в стационаре)
89. Проектирование защитного заземления электроустановок. Расчетно-графическая работа
90. Опыт мониторинговых работ в парке Орленок города Воронежа
91. Научно-исследовательская работа студентов и пути ее совершенствования
93. Методика организации внеклассной работы по сохранению и укреплению здоровья школьников
94. Педагогическое образование родителей. Работа с родителями ребёнка-инвалида
95. Работа педагога - музыканта с родителями по эстетическому воспитанию
96. Активные формы работ на уроках математики
97. Особенности речевых ошибок младших школьников в письменных творческих работах и пути их исправления
98. Методическая разработка по курсовой работе: «Воспитание культуры поведения у дошкольников»
99. Использование кабинета для внеклассной работы по иностранному языку
100. Современный газетный заголовок. Работа с заголовком на уроках русского языка в школе