я чуть ранее о кодировке отметил:
http://crapware.aidf.org/forum/index.php?topic=1532.0в общем, рекомендую использовать редактор Bred3, в него вставляешь свой текст в своей кодировке, потом жмешь в нем контрол-А, контрол-Х и записываешь себе куда угодно. Только сначала настрой себе открытие текстовых файлов по умолчанию этим редактором и настой вызов окна этого редактора, я об этом тоже недавно пример приводил.
PS вот моя процедура, можешь её допилить под себя
//=============================================
// процедура ввода текстовых данных в поля формы
SUB(InputString, $par, $lang, $x_return, $y_return)
print("$par=", $par)
print("$hwnd_bloknot=", $hwnd_bloknot)
print("$x_return=", $x_return)
print("$y_return=", $y_return)
WNDBUMP($hwnd_bloknot) // помещает окно на передний план
$code = GETKBLAYOUT($hwnd_bloknot)
print("$code=", $code)
IF ($lang = "en")
setkblayout($hwnd_bloknot, 1033)
ELSE
setkblayout($hwnd_bloknot, 1049)
END_IF
$code = GETKBLAYOUT($hwnd_bloknot)
print("$code=", $code)
//KEYSTRING($par)
TOCLIP($par)
WAIT(1)
//TOCLIP("0123456789\|/:_+-*ЯяZz")
KEYDOWN (#CTRL)
WAITMS (50)
KEYPRESS (#V)
WAITMS (50)
KEYUP (#CTRL)
WAIT(1)
KEYDOWN (#CTRL)
WAITMS (50)
KEYPRESS (#A)
WAITMS (50)
KEYPRESS (#X)
WAITMS (50)
KEYUP (#CTRL)
WAIT(3)
WNDBUMP($hwnd)
WAIT(1)
LCLICK($x_return,$y_return)
//WAIT(15)
//print("сейчас будет ввод")
//WAIT(4)
KEYDOWN (#CTRL)
WAITMS (50)
KEYPRESS (#V)
WAITMS (50)
KEYUP (#CTRL)
WAIT(1)
END_SUB // SUB(InputString, $str)
//=============================================
а вот настройка редактора:
(набросал на скорую руку, может не совсем корректно, но работает железно)
// запускаем блокнот
$hwnd_bloknot = wndfind("__NotDelete.txt")
print("$hwnd_bloknot=", $hwnd_bloknot)
IF ($hwnd_bloknot = 0)
execute("__NotDelete.txt")
$hwnd_bloknot = wndfind("__NotDelete.txt")
Wait(2)
WNDBUMP($hwnd_bloknot) // помещает окно на передний план
ELSE
WNDBUMP($hwnd_bloknot) // помещает окно на передний план
WNDPOS ($hwnd_bloknot, 50, 50)
WNDSIZE($hwnd_bloknot, 500, 300)
KEYDOWN(#CTRL)
waitms(13)
KEYPRESS(#A)
waitms(13)
KEYUP(#CTRL)
waitms(13)
KEYPRESS(#DELETE)
waitms(23)
END_IF
$hwnd_bloknot = wndfind("__NotDelete.txt")
WNDBUMP($hwnd) // помещает основное окно на передний план
print("$hwnd_bloknot=", $hwnd_bloknot)
wait(2)
__NotDelete.txt - пустой текстовый файл / для определённости
