|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
30.07.2015, 21:32 | #1 |
Пользователь
Регистрация: 30.07.2015
Сообщений: 21
|
Изменить код функции для поиска прописного полужирного текста
Приветствую всех!
В текущей функции парсируется только слово написанное прописным и полужирным шрифтом. А следующие слова с теми же атрибутами расположенными далее, просто игнорируются. Необходимо парсировать все слова имеющие одинаковые атрибуты форматирования и расположенные на одной строке разделённые через: пробел, дефис, кавычки (Word'овские и возможно такие - " "). Буду рад, если поможете отредактировать код! Код:
Последний раз редактировалось Stilet; 30.07.2015 в 21:38. |
30.07.2015, 21:44 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
И че этот код действительно жирность шрифта распознает?
I'm learning to live...
|
30.07.2015, 21:48 | #3 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
Что за прикол выделения ключевых слов в коде? Кнопкой # не проще?
Код:
По коду - Ch_BraceSqrBegin, S_IsLetter и S_UpperChar ?
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
30.07.2015, 22:59 | #4 |
Пользователь
Регистрация: 30.07.2015
Сообщений: 21
|
Жирность не берёт, но прописные определяет. И причём криво. Так как пропускает следующее прописное слово. А вообще нужно было поправить код так, чтобы работал со всеми шрифтами и кодировками.
Аватар Не было времени разбираться с функционалом форматирования на ресурсе. Но к тому же не хотел напрягать гостей и пользователей для разбора кода. S_UpperChar - прописной шрифт. А полужирность он вообще игнорирует. Последний раз редактировалось Stilet; 04.08.2015 в 19:31. |
31.07.2015, 00:16 | #5 | |||
Форумчанин
Регистрация: 30.06.2015
Сообщений: 353
|
Цитата:
Что за переменная или константа Ch_BraceSqrBegin? Что именно делают функции S_IsLetter() и S_UpperChar()? Покажите их. Цитата:
Код:
Цитата:
Последний раз редактировалось ResourceSpace; 31.07.2015 в 00:18. |
|||
31.07.2015, 00:26 | #6 |
Форумчанин
Регистрация: 01.06.2015
Сообщений: 497
|
Я так понимаю, это поиск слов, выделенных тегом Ch_BraceSqrBegin. Но информации мало, чтоб можно было чем-то помочь.
Massaget, приведите пример входных данных, и пример того, что хотите получить на выходе.
Если помог, буду очень благодарен за Ваш отзыв (весы в левой нижней части сообщения).
|
31.07.2015, 08:15 | #7 |
Пользователь
Регистрация: 30.07.2015
Сообщений: 21
|
Krasiosoft, ResourceSpace, Код написан не мной. Могу сказать следующее, все функции и процедуры и вообще все компоненты не являются стандартными VCL. От этого и такая сложность. Если сможете помочь, могу выложить весь исходник приложения.
Но, предупреждаю! В приложении не использовано ни единого стандартного компонента Delphi 7, все компоненты созданы автором кода. Само собой VCL его компонентов приложить не могу. Если есть решение, то не обязательно париться с этой функцией. Может есть другое решение, приму и его. Word sample text.jpg - исходный текст в Word документе. Export-table_need.jpg - желаемый результат. Simbols_MARKER.jpg - символы которые присутствуют в исходном тексте. Шрифт Times New Roman и TimesUZ (могу приложить). |
31.07.2015, 16:19 | #8 |
Форумчанин
Регистрация: 01.06.2015
Сообщений: 497
|
А в каком виде данные с Word'a оказываются в AValue: String? Код, который Вы привели, наверно, делает следующее:
Код:
Если помог, буду очень благодарен за Ваш отзыв (весы в левой нижней части сообщения).
Последний раз редактировалось Krasiosoft; 31.07.2015 в 16:31. |
31.07.2015, 17:02 | #9 |
Пользователь
Регистрация: 30.07.2015
Сообщений: 21
|
Krasiosoft для полноты картины могу приложить другой кусок кода, но вряд ли это поможет. Можно ли с имеющимися исходниками замутить то, что мне необходимо?
|
31.07.2015, 17:10 | #10 |
Форумчанин
Регистрация: 01.06.2015
Сообщений: 497
|
Тут нужно посмотреть в каком виде текст с Word'a попадает в строку, в данном случае, это AValue: String, а дальше уже будет видно.
Если помог, буду очень благодарен за Ваш отзыв (весы в левой нижней части сообщения).
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Модуль для поиска определенного текста на сайте | princenz | Фриланс | 2 | 11.11.2014 23:05 |
изменить путь для считывания текста | m1zantrop | Общие вопросы Delphi | 1 | 06.06.2012 10:33 |
Разбор функции поиска текста в TWebBrowser | kta87 | Общие вопросы Delphi | 1 | 16.05.2012 01:07 |
Что лучше для поиска текста: string::find или strstr()? | WebbMan | Общие вопросы C/C++ | 1 | 20.06.2011 23:00 |
Набор текста для поиска через DbGrid | Aleks_www | БД в Delphi | 14 | 21.01.2011 14:03 |