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

win wind=window ("BlueStacks Android PluginAndroid", -1, window ("BlueStacks", -1, -1));
string Text;
loadsymbolbase ("F:\Soft\Kibor\images\sw_base.sib" );

int i, x, sx=184, sy=231; // sx и sy начальные координаты

x=readtext (RU | MARK, #Text, 2, 1, -1, -1, -1, -1, -1, 0, -1, sx, sy, 299, 262, wind);
messagebox (Text);//тест

if(x>0)
{
x=size(Text); // длина текста
new int coordX[x]; // массив для координат X
new int coordY[x]; // массив для координат Y
for(i=0; i<x; i++)
{
coordX[i]=symbolxpos(i)+sx+symbolwidth(i)/2; // позиция по X + половина ширины символа
coordY[i]=symbolypos(i)+sy-symbolheight(i)/2; // позиция по Y - половина высоты символа
}

//mousemove(coordX[0], coordY[0], wind); // навести курсор в центр первой буквы
for(i=0; i<x; i++)
{
mousemove(coordX[i], coordY[i], wind); // навести курсор в центр каждой буквы
sleep(300);
}
}

sleep(500);

string Text;
loadsymbolbase ("C:\бот_ряд\base - 5.sib");
readtext (NUM, #Text, 8, 1, -1, -1, -1, -1, -1, 0, -1, 498, 313, 827, 622, -1);
//messagebox (Text);//тест

char c_text[100];//В этот массив запишем текст весь
int aw=size(Text);//Узнаем кол символов

//messagebox (aw);//тест

strcpy(#c_text[0], Text);//Скопируем текст с string в массив char


char A[300];
int X[300];
int kml=0;
int tkml;
int Min;
int tx;
int kor=0;

for (int n=0; n<aw; n++)//Перебираем посимвольно
{
if (c_text[n]!=' ' && symbolcorrect(kor)>0.5 && symbolheight(kor)>25) //если не пробел и корректность более 0.5 и высота более 25
{
A[kml]=c_text[n];//Сохраним символ
X[kml]=symbolxpos(kor);//Сохраним его координаты по X
kml++;
}
kor++;
//if (formatci(c_text[n])==13) kor--;//Если это перевод строки, уменьшим счетчик символов (так как первод строки это 13 10 - 2 символа. А функции используют 1)
}

A[kml]=0;

//messagebox (format(#A[0]));//тест


string T="";

if (kml>0)
{
tkml=0;
ee:;
Min=99999;
for (n=0; n<kml; n++)
{
if (X[n]<Min){Min=X[n]; tx=n;}//Если позиция этого символа самая левая и он не был сохранен
}
T=T+A[tx];//Допишем в string
X[tx]=100000;//Что бы его больше не считать укажем что он находится далеко правее
tkml++;
if (tkml<kml) goto ee;
}

messagebox (T);//тест

string Text;
loadsymbolbase ("C:\text_base.sib");
readtext(NUM | RU, #Text, 8, -1, -1, -1, -1, -1, -1, 0, -1, 0, 0, 1920, 1080, -1);
messagebox(Text);

string Text;
loadsymbolbase ("C:\text_base.sib");
readtext(NUM | RU, #Text, 8, -1, -1, -1, -1, -1, -1, 0, -1, 0, 0, 1920, 1080, -1);
messagebox(Text);