Найти символ заданного дмапазона
- Автор темы Neech
- Дата начала
- Статус
Ответ: Найти символ заданного дмапазона
Боюсь, что нет. Я всегда экспортирую в тхт и уже там "расхожусь вовсю". Другой вариант --- программировать на WinAPI (но нужно отлавливать сообщения...). Когда-то "для прикола" начал писать, но не осилил.
Боюсь, что нет. Я всегда экспортирую в тхт и уже там "расхожусь вовсю". Другой вариант --- программировать на WinAPI (но нужно отлавливать сообщения...). Когда-то "для прикола" начал писать, но не осилил.
Ответ: Найти символ заданного дмапазона
А что за сообщения? И как это с поиском связано? Расскажите, может я чего напрограммлю...
А что за сообщения? И как это с поиском связано? Расскажите, может я чего напрограммлю...
Ответ: Найти символ заданного дмапазона
Ну, как... Запустить что-то типа трассировщика, который следит какое окно куда обращается. Отловить адрес куда идет запрос при нажатии кнопки "Найти". Запустить в фоне поиск каждого из символов диапазона, запоминая позиции ответов. Переходить последовательно по ним (начиная с первого), продолжая в фоне вести поиск. Извращение, короче.
Гораздо проще написать вентуровский скрипт, который сохранит содержимое всех фреймов в "разумно-структурированую" систему файлов txt. Затем любым текстовым редактором, поддерживающим регэкспы пройтись по этим файлам. Затем второй скрипт подгрузит все назад. Либо просто сделать тхт файлы не embedded, а внешними (линкованными). Но я сталкивался с тем, что при сохранении в линкованные файлы летят неразрывные пробелы, заботливо расставленные в том же текстовом редакторе. Становятся обычными. Так что стараюсь вначале все "поизменять" в текстовом формате наперед.
Конечно, все это грустно. Корел забросила лучшую программу верстки...
Ну, как... Запустить что-то типа трассировщика, который следит какое окно куда обращается. Отловить адрес куда идет запрос при нажатии кнопки "Найти". Запустить в фоне поиск каждого из символов диапазона, запоминая позиции ответов. Переходить последовательно по ним (начиная с первого), продолжая в фоне вести поиск. Извращение, короче.
Гораздо проще написать вентуровский скрипт, который сохранит содержимое всех фреймов в "разумно-структурированую" систему файлов txt. Затем любым текстовым редактором, поддерживающим регэкспы пройтись по этим файлам. Затем второй скрипт подгрузит все назад. Либо просто сделать тхт файлы не embedded, а внешними (линкованными). Но я сталкивался с тем, что при сохранении в линкованные файлы летят неразрывные пробелы, заботливо расставленные в том же текстовом редакторе. Становятся обычными. Так что стараюсь вначале все "поизменять" в текстовом формате наперед.
Конечно, все это грустно. Корел забросила лучшую программу верстки...
Ответ: Найти символ заданного дмапазона
Уффф... Нет, это ниасилю. Вообще сомневаюсь в реальности описываемого.
А вентура не поддерживает какой-нибудь более "разумный" формат для текста, нежели txt?
Уффф... Нет, это ниасилю. Вообще сомневаюсь в реальности описываемого.
А вентура не поддерживает какой-нибудь более "разумный" формат для текста, нежели txt?
Ответ: Найти символ заданного дмапазона
Что-то непонятно задание.. Что надо найти в тексте залитом в вентуру строку содержащую символ между (о-т) или не это?Neech сказал(а):
Ответ: Найти символ заданного дмапазона
А что может біть разумнее тегированного текстового файла? )))Specialist сказал(а):
Ответ: Найти символ заданного дмапазона
Например накидал ищет букву ё шрифта Arial CYR
++++++++++++++++++
REM Created On Thursday, November, 15, 2007 by Yurii
WITHOBJECT "CorelVentura.Automation.8"
if .GetSelectionType ()=2 or .GetSelectionType ( )=1 then
TName$ = .CurrentTextFile ( )
'в начало файла
.TextFileSelect TName$
OneMore:
'запомню номер буковки
.TextFileSelectGet , , CharNumber&
'выделяю буковку
.TextCharRight 1, -1
'читаю буковку
SelChar$ = .SelectedText ()
'смотрю что за буква
if SelChar$="ё" then
'а что у нас там за шрифт?
.FormatSelectedTextGet .FontName=fname$
if fname$="Arial CYR" then message "НАШЕЛ!"
end if
'сниму выделение
.TextCharRight 1, 0
.TextFileSelectGet , , NewCharNumber&
'проверю а может надо остановится а то все на одном месте...
if NewCharNumber&<>CharNumber& then goto OneMore
else
message "не текст"
end if
END WITHOBJECT
++++++++++++++++
Диапазон наверное лучше задать цифрами. Т.е. получить цифровой код буквы через ASC и сравнить полал ли код в нужный диапазон...
Я думаю что скриптик написать можно. Только это будет оч. медленноNeech сказал(а):
Например накидал ищет букву ё шрифта Arial CYR
++++++++++++++++++
REM Created On Thursday, November, 15, 2007 by Yurii
WITHOBJECT "CorelVentura.Automation.8"
if .GetSelectionType ()=2 or .GetSelectionType ( )=1 then
TName$ = .CurrentTextFile ( )
'в начало файла
.TextFileSelect TName$
OneMore:
'запомню номер буковки
.TextFileSelectGet , , CharNumber&
'выделяю буковку
.TextCharRight 1, -1
'читаю буковку
SelChar$ = .SelectedText ()
'смотрю что за буква
if SelChar$="ё" then
'а что у нас там за шрифт?
.FormatSelectedTextGet .FontName=fname$
if fname$="Arial CYR" then message "НАШЕЛ!"
end if
'сниму выделение
.TextCharRight 1, 0
.TextFileSelectGet , , NewCharNumber&
'проверю а может надо остановится а то все на одном месте...
if NewCharNumber&<>CharNumber& then goto OneMore
else
message "не текст"
end if
END WITHOBJECT
++++++++++++++++
Диапазон наверное лучше задать цифрами. Т.е. получить цифровой код буквы через ASC и сравнить полал ли код в нужный диапазон...
Ответ: Найти символ заданного дмапазона
И потерять формулы и проч.
Еще проще искать обычным поиском. Пусть долго, зато надежно. И так для каждой буквы диапазона.
И потерять формулы и проч.
Еще проще искать обычным поиском. Пусть долго, зато надежно. И так для каждой буквы диапазона.
- Статус