|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
01.02.2017, 18:53 | #1 |
Регистрация: 10.11.2015
Сообщений: 4
|
Поиск и копирование в новый документ
Здравствуйте
Я новичок в VBS. есть текст : "Получив этот дар, обезъяны бросили все свои новые интеллектуальные возможности на решение двух задач: найти замену своей косматой шкуре, которая была бы сменной, красиво раскрашенной и выгодно подчеркивала бы их сильные места, а также избавить РУС 2726 себя от того, чтобы прикладывать отличие от всех остальных живых существ мира, живущих «здесь и сейчас», оказались плен РУС 2724 никами более длинного, практически бесконечного промежутка времени, который они стали называть «жизнью», различая в ней «прошлое» и «будущее». Таким образом, их сила оказалась размазанной по бесконечности, а интенсивность переживания текущего момента снизилась большой машиной — это была 940 модель «Вольво». Теперь он выглядел необычайно солидным и уверенным в себе. Даже его голос изменился. И вот, однажды РУС В 2726, когда мы, стоя в огромной пробке, медленно продвигались вперед, Рони, наморщив лоб, сказал мне: — Слушай, а тебе не кажется, что в этой машине я выгляжу маленьким? Игнасио Рамирес, «Назад к звездам»" Из него мне нужно по поиску ключевого слова "РУС" вытащит в новый документ "РУС+(соседнее слово/шифр)". Должно получиться: РУС 2726 РУС 2724 Нашел и немного откорректировал данный код: Код:
При данном коде, попадаю в бесконечный цикл: Код:
Последний раз редактировалось viperm; 01.02.2017 в 19:02. |
03.02.2017, 11:32 | #2 |
Пользователь
Регистрация: 18.02.2013
Сообщений: 26
|
Вам помогут подстановочные знаки, см.:
http://artefact.lib.ru/design/text_khozyainov.shtml В первом макросе замените строку .Text = "РУС" на строку .Text = "РУС [0-9]{1;}" а также строку .MatchWildcards = False на строку .MatchWildcards = True 'включить подстановочные знаки |
06.02.2017, 09:08 | #3 |
Регистрация: 10.11.2015
Сообщений: 4
|
Спасибо. Буду разбираться.
|
06.02.2017, 09:38 | #4 |
Регистрация: 10.11.2015
Сообщений: 4
|
За 1 ответ спасибо все работает, круто!
А может кто нибудь подсказать чтобы все сохранилось в exel, а не word? |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Создать новый документ word в запущенном процессе winword.exe | ольгаг | Общие вопросы .NET | 1 | 20.10.2013 21:32 |
Экспорт результатов поиска в новый документ | sn00pik | Microsoft Office Word | 2 | 14.09.2012 10:47 |
копирование строк, соответствующих условию фильтра и копирование на новый лист | xorek | Microsoft Office Excel | 0 | 09.07.2012 18:13 |
Поиск "проблемных значений" и вставка строки в новый документ Excel | Gvaridos | Microsoft Office Excel | 5 | 16.11.2010 13:56 |
Поиск по выделенным красным цветом строк и копирование их на новый лист. | PetroD | Microsoft Office Excel | 11 | 10.08.2010 15:01 |