Но отрабатывает он довольно медленно, 1 цикл секунды 3-4. Есть какой-нибудь вариант это дело ускорить? Или так и должно быть?
CODE:
loadsymbolbase ("C:\Users\Zakkari\OneDrive\Äîêóìåíòû\l_new base.sib");
rep:;
//sleep(3000);
t=readtext (NUM | RU | MARK, #Text[0], 7, -1, 25, -1, -1, -1, -1, 0, 10, 48, 120, 272, 406, -1);
for (n=0; n<t; n++)
{
k="";
if ((Text[n]=="т") && (Text[n+1]==" ")) ////нашли "т "
{
User_X[0]=symbolxpos(n);
User_Y[0]=symbolypos(n);
for(n1=n+2; n1<t; n1++) //запускаем цикл начиная с 1 цифры после "т "
{
if (Text[n1]!=" ")
{
k=k+Text[n1]; //получаем первое число
}
else goto b;
}
b:;
if (s==(formatsn(k)+formatsn(Text[n1+3]))) //если число в буфере не поменялось..
{
goto rep;
}
s=(formatsn(k)+formatsn(Text[n1+3]));
writeclipboard(s);
mousemove (90+User_X[0], 150+User_Y[0]);
goto rep;
}
}
goto rep;
rep:;
//sleep(3000);
t=readtext (NUM | RU | MARK, #Text[0], 7, -1, 25, -1, -1, -1, -1, 0, 10, 48, 120, 272, 406, -1);
for (n=0; n<t; n++)
{
k="";
if ((Text[n]=="т") && (Text[n+1]==" ")) ////нашли "т "
{
User_X[0]=symbolxpos(n);
User_Y[0]=symbolypos(n);
for(n1=n+2; n1<t; n1++) //запускаем цикл начиная с 1 цифры после "т "
{
if (Text[n1]!=" ")
{
k=k+Text[n1]; //получаем первое число
}
else goto b;
}
b:;
if (s==(formatsn(k)+formatsn(Text[n1+3]))) //если число в буфере не поменялось..
{
goto rep;
}
s=(formatsn(k)+formatsn(Text[n1+3]));
writeclipboard(s);
mousemove (90+User_X[0], 150+User_Y[0]);
goto rep;
}
}
goto rep;