Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 11656
Последний выпуск: 19.06.2015

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

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

Приступим !

Создайте стандартный проект и наклейте на него текст-бокс с именем "txtText", укажите у него свойство "MultiLine" равным "True" - "Истина" и две коммандные кнопки с именами "btnOpen" и "btnSave". Свойство "Caption" укажите у "btnOpen" - "Открыть", а у "btnSave" - "Сохранить". Сделайте двойной клик по кнопке "Сохранить" и в программный код впишите

Open "c:\temp.txt" For Output As #1
Print #1, txtText.Text
Close #1

Поясняю: "Open" это открытие файла "c:\temp.txt" это имя открываемого файла, если его нет, то он будет создан, если есть, то весь текст в этом файле будет очищен и заменём текстом из "txtText". "For output as #1" = "Для выхода под номером 1" т.е открываем файл под порядковым номером один, для записи информации в него. Вместо единицы можно указываль любое число от 1 до 500 - это является обязательным параметром. Зато #'ом можно пренебречь - он как бы для удобства, сразу будет понятно, что эта единица или другое число относится к файлу, а не к какой-нибудь переменной, хотя в некоторых местах его нельзя использовать!

"Print #1, txtText" - "Print"(Печать) - Метод позволяющий влить содержимое "txtText" в файл под номером один.

"Close #1" - это для закрытия текстового файла, так как если он не будет закрыт, то пока программа не будет закрыта, он не будет доступен другим программам.

Всё! С этой частью мы разобрались. Запускайие проект, вводите какую-нибудь информацию в "txtText" и нажимайте кнопку "Сохранить".

Теперь у вас на диске "C:" создан файл с именем "temp.txt". Но сохранить сохранили, надо же ещё и прочесть...

Чтение файла немного посложнее... Делайте двойной клик по кнопке "Открыть" и вписывайте

Open "c:\temp.txt" For Input As #1
Do Until EOF(1) 
Line Input #1, txt 
alltxt = alltxt + txt + vbCrLf 
Loop 
Close #1
txtText.Text = alltxt

Поясняю: "Open "c:\temp.txt"" - это тоже самое, что и при сохранении, а "For Input As #1" - это "Для входа под номером 1" т.е только чтение файла.

Do Until EOF(1) - "Читать, пока не будет достигнуть конец файла" т.е считывать построчно пока не будет достигнута последняя строка в читаемом файле и это как раз та самая ситуация, в которой нельзя указывать знак # в скобках.

Line Input #1, txt - "Линия входа файла под номером 1 = переменной txt"

alltxt = alltxt + txt + vbCrLf - переменная alltxt равна самой себе, плюс переменная txt. А vbCrLf - это уникальная константа, которая заменят "Chr(13)+Chr(10)" т.е переход на новую строку. Если мы её не вставим, то текстовый файл будет одной строкой в txtText.

Close #1 - закроем файл.

txtText.Text = alltxt - здесь выливаем в текст-бокс открытый файл, содержащийся в переменной alltxt.

Всё! Можете проверить.

Сохранять и открывать файлы мы научились...а как искать текст в окне...чем же наша программа хуже обычного блокнота Windows:)

Наклеем на форму ещё один текст-бокс с именем "txtSearch" и ещё одну кнопку с именем "btnSearch" и свойством "Caption" равным "Поиск"

Сделаем двойной клик по форме и в раздел "General Declarations" впишем "Dim P As Integer" - это переменная, которая будет содержать в себе позицию курсора в текстовом поле. В событие Form_Load впишите "P = 1".

Теперь сделаем двойной клик по кнопке "Поиск" и в программный код впишем

' Если искомое слово присутствует то...
If InStr(P, txtText.Text, txtSearch.Text) <> 0 Then 
' Текстовое поле с главным текстом получает фокус:)
txtText.SetFocus
'Начинаем выделять слово...
txtText.SelStart = InStr(P, txtText.Text, txtSearch.Text) - 1 
' Завершаем выделение
txtText.SelLength = Len(txtSearch.Text) 
' Изменяем переменную на позицию курсора
P = InStr(P, txtText.Text, txtSearch.Text) + Len(txtSearch.Text) 
' Если в тексте больше нет искомого слова, то выводим об этом сообщение.
Else 
MsgBox "Искомое слово не найдено"
End If 

Оставить комментарий

Комментарий:
можно использовать BB-коды
Максимальная длина комментария - 4000 символов.
 

Комментарии

1.
Аноним
Мне нравитсяМне не нравится
15 мая 2005, 00:54:21
А как работать с типизированніми файлами в vb.net
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог