Передача текста в другое приложение / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Передача текста в другое приложение

3 сообщений из 3, страница 1 из 1

Передача текста в другое приложение

#37319325

недочеловек

Гость

Всем, прива:) Народ, хелп плиз. Возникла необходимость передать текст из Excel в досовскую прогрумму.

Делаю так:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.

SchPoluch = ""
                Summa = ""
                  SchPlat = Cells(J,  4 ) 
                  SchPoluch = Cells(J,  5 ) 
                  Summa = Replace(Format(Cells(J,  6 ), "###0.00"), ",", ".") 
            
          
                  Dedication = Mid(Trim(Cells(J,  8 )),  1 ,  100 ) 
          
            
                .SendKeys SchPlat, False
                .SendKeys "{TAB}", False
                .SendKeys "{TAB}", False
               .SendKeys "{TAB}", False
                .SendKeys SchPoluch, False
                .SendKeys "{TAB}", False
                .SendKeys "{TAB}", False
                .SendKeys "{TAB}", False
                .SendKeys Summa, False
                .SendKeys "{TAB}", False
        .SendKeys Dedication , False

Текст передается, но вот в чем проблема: если текст в переменной Dedication на русском языке, то в приложение вставлются символы соответствующие коду символа на 106 меньше, т.е. если передается символ "К" с кодом 138, то в приложении выводится символ "R" с кодом 82, а необходимо что бы был символ "К"

...

Рейтинг:

0 / 0

22.06.2011, 09:35

| Ответить | Цитировать | Написать

Передача текста в другое приложение

#37319344

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

недочеловек,

Может надо предварительно сконвертировать СР1251 в СР866?

...

Рейтинг:

0 / 0

22.06.2011, 09:40

| Ответить | Цитировать | Написать

Передача текста в другое приложение

#37320106

недочеловек

Гость

попробовал

Код: plaintext

1.
2.
3.
4.
5.
6.

Declare Function CharToOem Lib "user32" Alias "CharToOemA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
Public Function Win2Dos(ByVal sWin As String) As String
  Win2Dos = String(Len(sWin), Chr( 0 ))
  Call CharToOem(sWin, Win2Dos)
  
End Function

Результат, аналогичный.

...

Рейтинг:

0 / 0

22.06.2011, 14:49

| Ответить | Цитировать | Написать

3 сообщений из 3, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Передача текста в другое приложение

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&tid=2158605]:	0ms
get settings:	10ms
get forum list:	13ms
check forum access:	3ms
check topic access:	3ms
track hit:	40ms
get topic data:	9ms
get forum data:	2ms
get page messages:	41ms
get tp. blocked users:	2ms
others:	13ms

total:	136ms