Всем привет!

Я НЕ программист. Но в связи с "производственной необходимостью" мне надо написать макросик на вб или вба (последний я уже чуть-чуть знаю в части excel).

Постановка задачи. В текстовых файлах с разными именами нужно найти некий текст. Важное уточнение - некоторые файлы не имеют расширения и в дос-кодировке. В случае, если он найден, то считать в переменную некую совокупность символов из файла, при этом совокупность эта - 4 цыфры (или 4х значное число, т.е. она отделена от других символов пробелами). Пускай это переменная regn. Далее находим еще один текст, и уже считываем слово* (неопределенное кол-во символов, но только буквы кириллицы) и еще 4 цифры** (*месяц и **год) = Data. Переименовываем файл в соответствии с полученными переменными Regn-Data.txt

Как это сделать?

Мне бы только хотя бы саму реализацию поиска текста в файлах (в вин и дос кодировках) и считывания совокупности символов из файла, имеющих заранее известные атрибуты (напр, 4 цифры, или 7 цифр, имеющих начало 0409, т.е. "0409*")

Надеюсь, что задача ясна, и вы не станете надо мной подтрунивать - мол это очень просто для нас и писать ничего не будем...

Вот тут думаю полезные процедуры
http://vb-tec.de/dateien.htm
http://www.dutchthewiz.com/vb/files/
А тут можно сказать то, что тебе надо
http://www.vb-helper.com/howto_find_string.html

cardinal Спасибо!

Вот тока мне чуть-чуть английский подучить (проф) + выучить немецкий и все будет ОК

Цитата(NovichokVB @ 8.11.2005, 15:24)

Вот тока мне чуть-чуть английский подучить...

Без английского в программировании далеко не уедешь, поэтому давай...

Цитата(cardinal @ 8.11.2005, 22:26)

Цитата(NovichokVB @ 8.11.2005, 15:24) Вот тока мне чуть-чуть английский подучить... Без английского в программировании далеко не уедешь, поэтому давай...

Пасиб за совет!

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

Создайте стандартный проект и наклейте на него текст-бокс (TextBox) с именем "txtText", укажите у него свойство "MultiLine" равным "True" - "Истина" и две коммандные кнопки (CommandButton) с именами "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

Давно скачал страничку, адрес не помню, в общем то, что надо.

Это сообщение отредактировал(а) Voldemar2004 - 9.11.2005, 18:29