скопировать нужные значения из *.txt

[Molotoklk]

Уважаемые форумчане, вопрос такой: есть много текстовых файлов, из которых нужно вытащить некоторые значения и поместить каждое в свою ячейку. Как сделать макрос, который бы в указанном файле находил бы фразы например "(выписка из государственного кадастра недвижимости)" и "Дата внесения номера" и вставлял бы в ячейку текст, который находится между ними?


вот пример текста:

КАДАСТРОВАЯ ВЫПИСКА О ЗЕМЕЛЬНОМ УЧАСТКЕ (выписка из государственного кадастра недвижимости)
11.10.2010 № 61/001/10-461835 КB.1
1 Кадастровый номер 61:15:0600901:1616 2 Лист № 1 3 Всего листов: 5
Общие сведения
4 Предыдущие номера: _____
6
Дата внесения номера в государственный
кадастр недвижимости: 21.02.2006
5 Единое землепользование
7
Местоположение установлено относительно...

так чтобы в ячейку А3 вставлялся текст

"11.10.2010 № 61/001/10-461835 КB.1 1 Кадастровый номер 61:15:0600901:1616 2 Лист № 1 3 Всего листов: 5 Общие сведения 4 Предыдущие номера: _____ 6"

то есть еще вместо энтеров ставились бы пробелы

[doober]

Возможно не в тему,но есть вариант.
Помещаете все файлы PDF в одну папку,либо указываете коренную.
Жмете волшебную кнопку.
Время от нажатия кнопки до получения заполненного файла XLS не больше минуты при 100 файлах PDF.
вторая кнопка вставит ваши картинки в нужную позицию.или создаст новую страницу

[Molotoklk]

Сообщение от doober

Возможно не в тему,но есть вариант.
Помещаете все файлы PDF в одну папку,либо указываете коренную.
Жмете волшебную кнопку.
Время от нажатия кнопки до получения заполненного файла XLS не больше минуты при 100 файлах PDF.
вторая кнопка вставит ваши картинки в нужную позицию.или создаст новую страницу

Вы это мне?

[gluk_fm]

Ну а где пример? Или это просто недорого?

[doober]

Сообщение от Molotoklk

Вы это мне?

Конечно к вам,учитывая вашу предыдущую тему данные из *.pdf

[Hugo121]

По этой узкой задаче -
в А1 Ваш текст:

Sub tt()
Dim s$, need_str$
s = [a1].Value
need_str = Trim(Replace(Split(Split(s, "(выписка из государственного кадастра недвижимости)")(1), "Дата внесения номера")(0), Chr(10), " "))
MsgBox need_str
End Sub

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

[doober]

Сообщение от gluk_fm

Ну а где пример? Или это просто недорого?

Написал в личку

[Molotoklk]

вот типичный файл.
в качестве примера в первом сообщении выбрал произвольные ограничения (левое и правое, между которыми и находится нужный текст). Если поможете, потом в коде я сам добавлю нужные.
Заранее благодарен

[Molotoklk]

Но лучше конечно взять за недорого готовое решение - Вы же им деньги будете зарабатывать

на испытательном сроке

[Hugo121]

Тем более - покажете, что можете решать сложные задачи
Главное - решение оставить себе, если потратите кровные.