Поиск и извлечение необходимых данных из .txt

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск и извлечение необходимых данных из .txt (Макросы/Sub)

akobir

Дата: Суббота, 04.08.2018, 11:56 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 201

Репутация: 9 ±

Замечаний: 0% ±

Excel 2010

Всем привет!

Поковырял поиск, часть нужной информации нашел, но всё же вопросы остались, с чем я и пришел.

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

txt-файлы содержат до 100 строк в один столбец, поэтому решил, что нужно писать макрос.
Набрел на код следующего характера:
[vba]

Код

Open filename For Input Access Read As #k1
        While Not EOF(k1)
            Line Input #k1, s
                If s Like "ИСКОМЫЙ ТЕКСТ" Then

                End If
        Wend

[/vba]

Отлично работает, но для меня осталось несколько неразрешенных вопросов.
Как узнать номер строки, где был найден "ИСКОМЫЙ ТЕКСТ" и как продолжить поиск в цикле, начиная со строки с "ИСКОМЫМ ТЕКСТОМ"?

Пример не стал прикладывать, так как вопрос, как мне кажется, общего характера.

Буду признателен!

e-mail: akobir.ismailov@gmail.com

Ответить

Hugo

Дата: Суббота, 04.08.2018, 13:23 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3251

Репутация: 707 ±

Замечаний: 0% ±

2019

Номер строки можно узнать так - считаете сколько раз произошло Line Input.
Насчёт цикла - можно пропускать все строки до этого определённого выше числа.
Вообще я предпочитаю использовать scripting.filesystemobject, тем более что если тут строк до сотни, то можно сразу всё взять в массив, а далее его крутить как угодно.
Например
[vba]

Код

массив = Split(CreateObject("Scripting.FileSystemObject").Getfile(iTempPath$).OpenasTextStream(1).ReadAll, vbNewLine)

[/vba]

excel@nxt.ru
webmoney: E265281470651 Z422237915069

Сообщение отредактировал Hugo - Суббота, 04.08.2018, 13:26

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск и извлечение необходимых данных из .txt (Макросы/Sub)

Страница 1 из 1
1