Версия 5.27 Функция распознавания текста.

string Text;
loadsymbolbase ("D:\Kibor2\basetext.sib");

if(readtext (RU, #Text, 8, 1, -1, -1, -1, -1, -1, 0, -1, 295, 342, 514, 360, -1))
{
messagebox (Text); // распознанный текст
correct_symbol(#Text, 0.7); // передаём указатель на переменную и корректность символов
messagebox(Text); // строка после удаления некорректных символов
}


function correct_symbol(string #s, double correct)
{
char c[9999]; strcpy(#c[0], s);
string temp="";
int count_symbol=size(Text);
for(int i=0; i<count_symbol; i++)
{
if(symbolcorrect(i)>=correct || symbolcorrect(i)==0)temp=temp+format(#c[i], 1);
}
s=temp;
}