Community

Замена символа с сохранением неуверенности и связи с изображением

При обычной замене связь символа с изображением теряется (происходит это из-за обращения к свойству Text блока).
Данный скрипт позволяет этого избежать, благодаря использованию свойства Symbol (строка представляет собой коллекцию Symbols). Скрипт необходимо писать именно как скриптовое правило. В скрипте автокоррекции то же самое не работает… Приведенный пример писался для формы, заполняемой вручную. Форма не отвечала требованиям машиночитаемости. В результате ее заполнения вместо символов "0" распознавалась только какая-то его часть из-за обрезания символа с разных сторон, или буква "О". При сохранении связи с изображением после такой автозамены сохраняется возможность использовать режимы верификации.


Dim i, j, vChar, vZero, vPlus

vZero = "CcСсUuOoОо"
vPlus = "#"

for i = 0 to me.Symbols.Count - 1
vChar = me.Symbols( i ).Symbol
for j = 1 to Len(vZero)
if vChar = Mid (vZero, j, 1) then
me.Symbols( i ).Symbol = "0"
end if
next

for j = 1 to Len (vPlus)
if vChar = Mid (vPlus, j, 1) then
me.Symbols( i ).Symbol = "+"
end if
next
next


0

Comments

0 comments

Please sign in to leave a comment.