Тема: VBScript: проблемы с кодировкой при SendKeys
доброго времени суток уважаемым знатокам! ![]()
задача следующего рода :
1. открыть файл для чтения.
2. считать произвольную строку.
3. отредактировать строку.
4 передать как нажатие клавиш (sendKeys)
проблема :
1. при передаче переменной, вместо текста получаются крякозяблы.
попытка решения:
Set WshShell = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set file = FSO.OpenTextFile("names.txt", 1,false,0)
Dim tmp,name,surname
'...
tmp = ""
name = ""
surname = ""
Randomize
for i = 0 to int(9999*rnd)+3
file.SkipLine()
next
tmp = file.ReadLine()
name = mid(tmp,1,instr(tmp,"_")-1)
surname = mid(tmp,instr(tmp,"_")+1,20)
tmp = ""
msgbox(name & "_!_" & surname) 'в сообщении явно показано, что строка считалась, и разделилась как мне нужно.
WScript.Sleep (2000)
WSHShell.SendKeys(name) 'в лучших фантазиях получаем просто "00" или "/". в худших - бред :(
'...p.s. всяческие извращения с преобразованием кодировки исходного текстового файла, а также переменной не принесли успеха.

