|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
21.10.2009, 20:41 | #1 |
Регистрация: 21.10.2009
Сообщений: 6
|
Удаление текстов ссылок
Делаю макрос для обрабоки текста из Википедии. Нужно удалить все сноски и ссылки на редактирование страницы. Знаю, что можно пройти по массиву "Hyperlinks", но как удалить не сами ссылки, а их текст?
|
21.10.2009, 21:13 | #2 | |
Пользователь
Регистрация: 19.09.2009
Сообщений: 69
|
Вот это не понятно.
Цитата:
То же самое делаешь и для Гиперссылок, если они оформлены стилем Гиперссылка (это можно посмотреть на панели инструментов Форматирование): ставишь курсор в поле "Найти" - Больше - Формат - Стиль - Гиперссылка. В поле "Заменить" всё удаляешь - Заменить все. Последний раз редактировалось БуреВестник; 21.10.2009 в 21:18. |
|
21.10.2009, 21:29 | #3 |
Регистрация: 21.10.2009
Сообщений: 6
|
Сноски и редактирование страницы - всё это от Вики. Ссылки такие. И я про макрос спрашиваю, а не про ручную обработку.
|
21.10.2009, 21:32 | #4 |
Пользователь
Регистрация: 19.09.2009
Сообщений: 69
|
Вот макрос:
Код:
Код:
Последний раз редактировалось БуреВестник; 21.10.2009 в 21:39. |
21.10.2009, 21:44 | #5 |
Регистрация: 21.10.2009
Сообщений: 6
|
Большое спасибо. Только сноски не вордовские, а с Вики, то есть это ссылки, но это не суть.
Последний раз редактировалось PeterMinin; 21.10.2009 в 21:49. |
21.10.2009, 21:48 | #6 |
Пользователь
Регистрация: 19.09.2009
Сообщений: 69
|
Если сноски - это не сноски, то тогда вот этот код возьмите:
Я намудрил в предыдущих кодах, вот окончательный вариант: Код:
Последний раз редактировалось БуреВестник; 21.10.2009 в 22:57. |
21.10.2009, 22:53 | #7 |
Регистрация: 21.10.2009
Сообщений: 6
|
[edit]Cybernetics and early neural networks
The earliest research ... The close relationship between these ideas suggested that it might be possible to construct an electronic brain.[27] Я вот такой макрос сделал. Здесь и пример поиска подстроки - InStr. Подскажите, пожалуйста, где тут какие End'ы поставить, чтобы соответствовало структуре, отмеченной отступами? Код:
|
21.10.2009, 23:00 | #8 |
Пользователь
Регистрация: 19.09.2009
Сообщений: 69
|
Я тебе неправильные коды дал первый раз (они работают, но всё было усложнено). Возьми за основу последний макрос.
Для удаления Гиперссылок не работают циклы for i to и for each next так, как должны работать, поэтому придуманы ухищрения. Программисты Wordа что-то напутали, надо использовать именно цикл, который я привел, или ещё здесь посмотри: http://www.programmersforum.ru/showthread.php?t=66414 Последний раз редактировалось БуреВестник; 21.10.2009 в 23:13. |
21.10.2009, 23:55 | #9 |
Пользователь
Регистрация: 19.09.2009
Сообщений: 69
|
Попробуй применить последний макрос - он очень хорошо и по-умному удаляет ссылки.
И я, например, так и не понял, что ты хочешь сделать. Хотя сейчас попробовал последний макрос, что-то он зацикливается у меня. Короче никак не получается. Последний раз редактировалось БуреВестник; 22.10.2009 в 00:06. |
22.10.2009, 00:26 | #10 |
Регистрация: 21.10.2009
Сообщений: 6
|
Я хочу скопировать текст и Википедии (вы её, кстати, видели хотя бы? ) со всеми её ссылками, запустить макрос и получить текст без ссылок на обычных словах и без текста служебных ссылок Википедии (пресловутые сноски и [править]).
Насчёт кривого удаления: чтобы удалить все ссылки, по-моему, проще всего так (эквивалентно тому, что написано в конце моего макроса, но не требует переменной): Код:
И проверьте, пожалуйста, приведённый мной макрос на правильность End'ов, а то я в Basic'овском синтаксисе не разобрался. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Проблемма с выводом больших текстов из mySQL | Андрей79 | PHP | 3 | 05.08.2009 16:44 |
Срочно нужна программа транслитерации текстов на С++ | enna | Общие вопросы C/C++ | 1 | 11.06.2009 20:14 |
Чтение текстов голосом | Chi | Софт | 4 | 19.10.2008 14:07 |
Сравнение текстов на схожесть | PUH | Общие вопросы Delphi | 7 | 21.02.2008 22:18 |