Место общения программистов, форум разработчиков БД на Clarion
https://www.forum.clarionlife.net/
Ну понятно, что не просто тип контрола поменял, и всё заработало...Губин Игорь писал(а): Т.е. надо обрабатывать события по вводу в поле RTF с автоматическим изменением форматирования...
На самом деле примеров куча. Проблемная буква - "с", что в кириллице, что в латинице, ещё и на одной кнопке. Начинаешь набирать слово на букву "С", замечаешь неправильную раскладку на 5-ой букве, бэкспейсом удаляешь неправильно введённые символы, а первую "с" на автомате оставляешь, она правильная (блондинкам всё равно, выглядит-то одинаково). Или вот ещё пример из жизни. Прислали справочник деталей в Excel'е, 50% деталей на русскую букву "А" написаны с латинской "A" ("Эй"). Как так можно?finsoftrz писал(а):Но вначале было бы неплохо собрать статистику. Подобный запрос очень похож на случай, когда один человек один раз за длительное время ввел с ошибкой, а из этого начинают строить целые теории. Чтобы в одном слове использовать буквы из разных языков, надо как минимум переключить раскладку клавиатуры. Разве что введут неверно все слово, потом заметят и попытаются исправить, не трогая буквы с общим написанием.
Код: Выделить всё
test_r routine !проверка
DATA
lor:str_razd string(20) !разделители
lor:str_lat string(100) !латинские буквы
lor:str_rus string(100) !русские буквы
lor:i long
lor:j long
lor:flag byte
lor:flag2 byte
lor:poz long
lor:dl long
CODE
lor:str_razd=' ,.:/\№"{{}'
lor:str_lat='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'
lor:str_rus='АаБбВвГгДдЕеЁёАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъыьэюя'
Loc:TextRtf='{{\rtf1\ansi\deff0' & |
'{{\colortbl\red0\green0\blue0;\red255\green0\blue0;\red255\green255\blue255;}' & |
'\cf0{{'
lor:flag=3
lor:flag2=0
lor:poz=1
lor:j=len(clip(Loc:TextRtf))
loc:err=0
lor:dl=len(Loc:TextRtf)
free(Loc:QueuePoz)
Loc:NumPozQ=0
loop lor:i=1 to len(clip(Loc:Text))
if instring(Loc:Text[lor:i],lor:str_razd,1,1)>0 !найден разделитель
if lor:flag=2 !предыдущая латиница
if (lor:j+6)<=lor:dl
Loc:TextRtf[(lor:j+1):(lor:j+6)]='}\cf0{{'
lor:j+=6
.
.
if Loc:Text[lor:i]='\' or Loc:Text[lor:i]='{{' or Loc:Text[lor:i]='}'
lor:j+=1
if lor:j<=lor:dl
Loc:TextRtf[lor:j]='\'
.
.
lor:j+=1
if lor:j<=lor:dl
Loc:TextRtf[lor:j]=Loc:Text[lor:i]
.
lor:flag=0
lor:flag2=0
cycle
.
if instring(Loc:Text[lor:i],lor:str_lat,1,1)>0 !латинский символ
if lor:flag=1 !предыдущий символ в слове русский
loc:err=1
.
if lor:flag<>2
if (lor:j+6)<=lor:dl
Loc:TextRtf[(lor:j+1):(lor:j+6)]='}\cf1{{'
lor:j+=6
.
.
lor:j+=1
if lor:j<=lor:dl
Loc:TextRtf[lor:j]=Loc:Text[lor:i]
.
Loc:NumPoz=lor:i
add(Loc:QueuePoz)
lor:flag=2
lor:flag2=0
cycle
.
if instring(Loc:Text[lor:i],lor:str_rus,1,1)>0 !русский символ
if lor:flag=2 !предыдущий символ в слове латинский
loc:err=1
.
if lor:flag=2
if (lor:j+6)<=lor:dl
Loc:TextRtf[(lor:j+1):(lor:j+6)]='}\cf0{{'
lor:j+=6
.
.
lor:j+=1
if lor:j<=lor:dl
Loc:TextRtf[lor:j]=Loc:Text[lor:i]
.
lor:flag=1
lor:flag2=0
cycle
.
if lor:flag=2 and lor:flag2=0 !предыдущий символ латиница
if (lor:j+6)<=lor:dl
Loc:TextRtf[(lor:j+1):(lor:j+6)]='}\cf0{{'
lor:j+=6
.
lor:flag2=1
.
lor:j+=1
if lor:j<=lor:dl
Loc:TextRtf[lor:j]=Loc:Text[lor:i]
.
.
if lor:j+2<=lor:dl
Loc:TextRtf[(lor:j+1):(lor:j+2)]='}}'
lor:j+=2
.
if loc:err=1
display(?Loc:TextRTF)
select(?Loc:Text)
else
if loc:text<>lop:str
lop:str=loc:text
.
loc:ok=1
if lop:reg=1 and Loc:FlagMes=0
FsMessagePr('Успех!')
.
do procedureReturn
.
Loc:FlagMes=1