ReSQL.ru
     
powered by simpleCommunicator - 2.0.39     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Отображать параметры на кириллице
24 сообщений из 24, страница 1 из 1
Отображать параметры на кириллице
    #39267322
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
здравствуйте, использую такой макрос

Код: vbnet
1.
2.
3.
4.
5.
Option Explicit

Sub FIO()
    CreateObject("WScript.Shell").Run "G:\r009039_pdjyjr36.exe RunAutomat=true SubName=Иванов FirstName=Test2 SecondName=Test3 SecondName4=Test34", 1, True
End Sub


Но в приложении вместо написанного на кириллице Иванов имею знаки - ??? как это уладить? и ещё чтобы все поля заполнить пришлось придумать не существующий 4 параметр, тогда 3 заполняет, почему последний параметр не заполняется? спасибо
...
Рейтинг: 0 / 0
04.07.2016, 13:56
| Ответить | Цитировать | Написать  
Отображать параметры на кириллице
    #39267675
Фотография VSVLAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VSVLAD
Участник
катастрофа,

Это вопрос к автору приложения "r009039_pdjyjr36.exe" и никак не связано с его запуском
...
Рейтинг: 0 / 0
04.07.2016, 22:50
| Ответить | Цитировать | Написать  
Отображать параметры на кириллице
    #39267726
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
VSVLAD,

скажите, а переменные сюда в код

SubName=переменная1
FirstName=переменная2
SecondName=переменная3
SecondName4=переменная4

можно подставлять? пробовал, вроде как нельзя
...
Рейтинг: 0 / 0
05.07.2016, 06:55
| Ответить | Цитировать | Написать  
Отображать параметры на кириллице
    #39267737
Vladimir Baskakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vladimir Baskakov
Участник
кодировка консоли винды по умолчанию cp866 кажется, параметра должны быть переданы в ней, возможно.
...
Рейтинг: 0 / 0
05.07.2016, 07:32
| Ответить | Цитировать | Написать  
Отображать параметры на кириллице
    #39267760
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
Vladimir Baskakov,
спасибо за ответ, может пример кода выложить, спасибо
...
Рейтинг: 0 / 0
05.07.2016, 08:56
| Ответить | Цитировать | Написать  
Отображать параметры на кириллице
    #39267785
Vladimir Baskakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vladimir Baskakov
Участник
ПРОЩЕ ВСЕГО!

запихнуть в батник строку
G:\r009039_pdjyjr36.exe RunAutomat=true SubName=Иванов FirstName=Test2 SecondName=Test3 SecondName4=Test34

и запустить. если она статическая.


отсюда -
http://forum.script-coding.com/viewtopic.php?id=923
так
 
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Set WshShell = CreateObject("WScript.Shell")
Set WshExec = WshShell.Exec("cmd.exe /q /k echo off")
WshExec.StdIn.WriteLine "chcp 1251>nul"

WshExec.StdIn.WriteLine "G:\r009039_pdjyjr36.exe RunAutomat=true SubName=Иванов FirstName=Test2 SecondName=Test3 SecondName4=Test34"

WshExec.StdIn.WriteLine "exit"
Set TextStream = WshExec.StdOut
Str = TextStream.ReadAll
WScript.Echo Str



тут http://www.planetaexcel.ru/forum/?PAGE_NAME=read&FID=8&TID=40226
извращенный пример записи текстового файла в нужной кодировке.

 
Код: vbnet
1.
2.
3.
4.
Sub Макрос1() 
ActiveWorkbook.SaveAs Filename:="E:\AP\POFF_.txt", FileFormat:=xlTextMSDOS _ 
, local:=-1 
End Sub



прямее всего, сбросить в батник

rem смена кодировки
chcp 1251>nul
rem запуск
G:\r009039_pdjyjr36.exe RunAutomat=true SubName=Иванов FirstName=Test2 SecondName=Test3 SecondName4=Test34

и запустить. Лучше всего, да. Самое правильное приходит в голову в конце.
...
Рейтинг: 0 / 0
05.07.2016, 10:20
| Ответить | Цитировать | Написать  
Отображать параметры на кириллице
    #39267864
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
Vladimir Baskakov,

так?

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Option Explicit

Sub FIO()

Rem смена кодировки
chcp 1251 > nul
Rem запуск
CreateObject("WScript.Shell").Run "G:\r009039_pdjyjr36.exe RunAutomat=true SubName=Иванов FirstName=Test2 SecondName=Test3 SecondName4=Test34", 1, True

End Sub



просит объявить nul
...
Рейтинг: 0 / 0
05.07.2016, 12:08
| Ответить | Цитировать | Написать  
Отображать параметры на кириллице
    #39267870
Vladimir Baskakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vladimir Baskakov
Участник
Катастрофа , не так. Я сказал запихнуть это в батник, а не в процедуру. В батник записывают путем файловых операций.
...
Рейтинг: 0 / 0
05.07.2016, 12:15
| Ответить | Цитировать | Написать  
Отображать параметры на кириллице
    #39268015
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
Vladimir Baskakov,

засунул в батник, всё также вместо Иванов имеются знаки ???, не взлетело
...
Рейтинг: 0 / 0
05.07.2016, 14:55
| Ответить | Цитировать | Написать  
Отображать параметры на кириллице
    #39268069
Vladimir Baskakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vladimir Baskakov
Участник
в какой кодировке батник. пробовали в 866, одну строчку, запускающую программу?

G:\r009039_pdjyjr36.exe RunAutomat=true SubName=Иванов FirstName=Test2 SecondName=Test3 SecondName4=Test34

если не помогло - дело скорее в программе.
если помогло - меняем кодировку на 1251, добавляем строчку (в начало!!!!)
chcp 1251 > null

и смотрим, что вышло.

что будет, если запустить из консоли программу? что будет если набрать в консоли chcp - какую страницу покажет?
...
Рейтинг: 0 / 0
05.07.2016, 15:34
| Ответить | Цитировать | Написать  
Отображать параметры на кириллице
    #39268075
Vladimir Baskakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vladimir Baskakov
Участник
давайте начнем с простого - что дает chcp ?
без параметров.
...
Рейтинг: 0 / 0
05.07.2016, 15:40
| Ответить | Цитировать | Написать  
Отображать параметры на кириллице
    #39268086
Vladimir Baskakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vladimir Baskakov
Участник
у меня на нотике win10.

в консоли по умолчанию cp437 и тоже нет русских букв. вот же как ..... оно может пока и не надо, но обидно
...
Рейтинг: 0 / 0
05.07.2016, 15:47
| Ответить | Цитировать | Написать  
Отображать параметры на кириллице
    #39268176
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
Vladimir Baskakovдавайте начнем с простого - что дает chcp ?
без параметров.
это какой текст батника?

меняем кодировку на 1251 - это как? я смотрю Блокнот++, там есть
анси утф8 утф8 без БОМ и т. д.
...
Рейтинг: 0 / 0
05.07.2016, 17:28
| Ответить | Цитировать | Написать  
Отображать параметры на кириллице
    #39268182
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
катастрофа,
похоже проблема в проге, потому, что сделал
Чтобы создать новый файл в кодировке DOS:
Меню "Кодировки" -> "Кодировки" -> "Кириллица" -> "OEM-866"
"Файл" -> "Сохранить как..." -> пишем имя файла и расширение bat или cmd -> Сохранить.

Чтобы правильно сконвертировать уже имеющийся в редакторе код с кириллицей:
Войти в редактор.
1) Ctrl+A, скопировать код.
2) Удалить код.
3) Меню "Кодировки" -> "Кодировки" -> "Кириллица" -> "OEM-866"
4) Вставить код.
5) Сохранить, запустить.
запустил, вижу в консоли написано по русски Иванов, а в проге всё те же знаки - ???
...
Рейтинг: 0 / 0
05.07.2016, 17:40
| Ответить | Цитировать | Написать  
Отображать параметры на кириллице
    #39268184
Vladimir Baskakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vladimir Baskakov
Участник
просто набрать в консоли chcp и посмотреть, что ответит.
...
Рейтинг: 0 / 0
05.07.2016, 17:44
| Ответить | Цитировать | Написать  
Отображать параметры на кириллице
    #39268187
Vladimir Baskakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vladimir Baskakov
Участник
потом, просто в консоли набрать строку запуска программы, с ивановым, и посмотреть, что будет.
...
Рейтинг: 0 / 0
05.07.2016, 17:45
| Ответить | Цитировать | Написать  
Отображать параметры на кириллице
    #39268190
Vladimir Baskakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vladimir Baskakov
Участник
пока все просто в черной, настоящей консоли.
...
Рейтинг: 0 / 0
05.07.2016, 17:46
| Ответить | Цитировать | Написать  
Отображать параметры на кириллице
    #39268193
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
Vladimir Baskakov,

текущая кодировка страницы 866
...
Рейтинг: 0 / 0
05.07.2016, 17:48
| Ответить | Цитировать | Написать  
Отображать параметры на кириллице
    #39268203
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
ввёл в консоли, теперь и вопросиков нет, чистое поле ввода
...
Рейтинг: 0 / 0
05.07.2016, 17:54
| Ответить | Цитировать | Написать  
Отображать параметры на кириллице
    #39268209
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
попробовал на латыне тоже поле пустое, может от того, что в консоли нет возможности копировать и я ввожу укорочено один параметр
G:\r009039_pdjyjr36.exe RunAutomat=true SubName=Иванов
G:\r009039_pdjyjr36.exe RunAutomat=true SubName=Ivanov
...
Рейтинг: 0 / 0
05.07.2016, 18:00
| Ответить | Цитировать | Написать  
Отображать параметры на кириллице
    #39275051
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
здравствуйте, как запустить vbs файл, делаю так:
Visual BasicВыделить код

vbs_file = "C:\ДНСД\ДНСД.vbs"
CreateObject("WScript.Shell").Run vbs_file
не запускается... как нужно?
...
Рейтинг: 0 / 0
16.07.2016, 09:18
| Ответить | Цитировать | Написать  
Отображать параметры на кириллице
    #39275065
Vladimir Baskakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vladimir Baskakov
Участник
...... в кодировке 866. или обозвать все пути и исполняемые файлы латиницей и без пробелов лучше.
...
Рейтинг: 0 / 0
16.07.2016, 11:23
| Ответить | Цитировать | Написать  
Отображать параметры на кириллице
    #39275073
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
Vladimir Baskakov,

увы не помогло
Код: vbnet
1.
2.
vbs_file = "C:\DNSD\DNSD.vbs"
CreateObject("WScript.Shell").Run vbs_file
...
Рейтинг: 0 / 0
16.07.2016, 12:38
| Ответить | Цитировать | Написать  
Отображать параметры на кириллице
    #39275077
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
добавлял кавычки
Код: vbnet
1.
 vbs_file = Chr(34) & vbs_file & Chr(34)


тоже не помогло....
...
Рейтинг: 0 / 0
16.07.2016, 12:55
| Ответить | Цитировать | Написать  
24 сообщений из 24, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Отображать параметры на кириллице
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=39268193&tid=2173018]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 33ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 66ms
get tp. blocked users:
 2ms
others: 300ms
total:  447ms
созд. / загр.: 447ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]