1
Общие вопросы / Re: Ошибка при выделении текста
« on: January 21, 2015, 02:12:38 PM »
Переписал весь код Кроме записи в файл,всё отлично работает. Записываются только английские символы, проблема именно в записи, а не копировании. Пробовал вставить руками текст, который скопировала программа, всё нормально. Буду организовывать запись через вызов окна блокнота и ctrl+v...
Code: (clickermann) [Select]
#name "New Script"
$id1=TFREAD("number.txt", 1) // Старый ид страницы из number.txt
$id=($id1+1) // Новый ид страницы
TFCLEAR("number.txt", 0) // Удалить старый ид страницы из number.txt
TFWRITE("number.txt", $id) // Записать новый ид в number.txt
TFWRITE("akmul.txt", $id) // Записать новый ид в akmul.txt
WAITMS(50)
LDOWN(565,43) //
WAITMS(150) //
MOVE(608,43) // Выделить старый ид в адресной строке
WAITMS(150) //
LUP(608,43) //
WAITMS(150)
KEYSTRING ($id, 100) // Печатать новый ид в адресную строку
WAITMS(150)
KEYPRESS(#Enter) // Перейти к новой странице
WAIT(2)
LDOWN(235,304) //
WAITMS(150) //
MOVE(610,476) // Выделить нужный текст
WAITMS(150) //
LUP(610,476) //
WAITMS(150)
keydown(#ctrl) //
waitms(99) //
keypress(#c) // Копировать текст
waitms(99) //
keyup(#ctrl) //
waitms(99)
TFWRITE("akmul.txt", FROMCLIP()) // Записать текст в akmul.txt
halt