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

string Text;
loadsymbolbase ("D:\Kibor\basetext.sib");
readtext (EN, #Text, 8, 1, -1, -1, -1, -1, -1, 0, -1, 155, 514, 192, 528, -1);
mouse(LEFT, 155 + symbolxpos(0), 514 + symbolypos(0));

string Text = "qwerty"; // допустим это распознанный текст
string Path = "D:\MyFile.txt"; // путь к файлу

if(fopen(Path, "w")) // открыть файл для записи
{
fwrite(Text); // записать текст
fclose(); // закрыть файл
start(Path); // запустить файл
}

string Text;
loadsymbolbase ("C:\Program Files (x86)\Kibor\basetext.sib");
readtext (NUM | RU | MARK, #Text, 4, 1, -1, 15, -1, -1, -1, 0, 50, 1403, 345, 1669, 374, -1);
messagebox (Text);//тест

//Буквы в составе числа на цифры
loop(5)
{
while(regexreplace(-1, #Text, Text, "(?<=\d)о", "0", MULTILINE)){}
while(regexreplace(-1, #Text, Text, "о(?=\d)", "0", MULTILINE)){}
while(regexreplace(-1, #Text, Text, "(?<=\d)з", "3", MULTILINE)){}
while(regexreplace(-1, #Text, Text, "з(?=\d)", "3", MULTILINE)){}
}

//Цифры в составе слова на буквы
loop(5)
{
while(regexreplace(-1, #Text, Text, "(?<=[а-я|А-Я])0", "о", MULTILINE)){}
while(regexreplace(-1, #Text, Text, "0(?=[а-я|А-Я])", "о", MULTILINE)){}
while(regexreplace(-1, #Text, Text, "(?<=[а-я|А-Я])3", "з", MULTILINE)){}
while(regexreplace(-1, #Text, Text, "3(?=[а-я|А-Я])", "з", MULTILINE)){}
}

messagebox (Text);//тест

while(regexreplace(-1, #Text, Text, "(?<=\d)о|о(?=\d)", "0", MULTILINE)){}

while(regexreplace(-1, #Text, Text, "(?<=\d)(o|о)|(o|о)(?=\d)", "0", MULTILINE)){}

string Text="о2-15 эт0 числ0";
Text=textcorrect(Text);

string replace[3][2];

replace[0][0]="o"; replace[0][1]="0"; // букву о меняем на 0
replace[1][0]="з"; replace[1][1]="3"; // з меняем на 3
replace[2][0]="i|l"; replace[2][1]="1"; // i или l меняем на 1

string Text="о2-15 эт0 числ0";
Text=textcorrect(Text, replace);

string replace[3][2] = { {"o", "0"}, {"з", "3"}, {"i|l", "1"} };

string Text="о2-15 эт0 числ0";
Text=textcorrect(Text, replace);