| View previous topic :: View next topic |
| Author |
Message |
taravasya
Joined: 27 Mar 2010
Posts: 38
|
 (Separately) Posted: Sat Sep 18, 2010 20:19 Post subject: |
 |
|
Точно виноват  . Теперь всё работает.... |
|
| Back to top |
|
 |
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Sat Sep 18, 2010 20:33 Post subject: |
|
|
| taravasya wrote: | | Ну первый вариант я не пробовал, а вот второй вводил ^ |
Не понял. В смысле "вводил"? Не должно быть ^, поскольку раскладка английская в любом случае. Знак "^" может выводиться только по Shift+6.
Вот такой код что даст в строке заголовка панели?: | Code: | Dim TCS
Set TCS = CreateObject("TCScript.Helper")
TCS.SendCommand "cm_EditPath"
TCS.SendKeystroke "+; : a: : +6" |
|
|
| Back to top |
|
|
taravasya
Joined: 27 Mar 2010
Posts: 38
|
| (Separately) Posted: Sat Sep 18, 2010 20:42 Post subject: |
|
|
Это может как то зависить от клавиатуры? |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Sat Sep 18, 2010 20:51 Post subject: |
|
|
taravasya
Опять я вижу, что символы берутся из русской раскладки. Первый символ на клавише 4, отсюда и "доллар". А в настройках винды в диалоге "Язык и службы текстового ввода" какие языки по порядку расположены?
Последняя строка вводилась копипастом или ручками?
Last edited by Flasher on Sun Sep 19, 2010 00:56; edited 1 time in total |
|
| Back to top |
|
|
taravasya
Joined: 27 Mar 2010
Posts: 38
|
| (Separately) Posted: Sat Sep 18, 2010 20:59 Post subject: |
|
|
| Flasher wrote: | | вводилась копипастом |
Угу...
| Flasher wrote: | | А в настройках винды в диалоге "Язык и службы текстового ввода" |
У меня Seven. Там немножко иначе называется. Кокй именно параметр интересует? Скажите своими словами.
Вообще раскладка, сверху английская, снизу русская(но русская умолчальная) |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Sat Sep 18, 2010 21:16 Post subject: |
|
|
taravasya
Ясно. Всё это очень странно. На семёрке проверю в начале следующей недели, если кто-то раньше не возмётся. Да и комментарий Volniy тут не помешал бы. |
|
| Back to top |
|
|
Batya
Joined: 15 Dec 2004
Posts: 2224
Location: Москва, Россия
|
| (Separately) Posted: Mon Sep 20, 2010 14:15 Post subject: |
|
|
| taravasya wrote: | Мне нужен скрипт, по выполнению которого, тотал командер переходил бы в папку:
A:\Orders\Date |
| Code: | '===================================
' Переход в TC в папку текущей даты
'===================================
Option Explicit
Dim WSH, Path, TCPath, strDayOfMonth, strMonth, strYear, YYYYMMDD
Set WSH = CreateObject("WScript.Shell")
Path = "a:\order\"
strDayOfMonth = right("0" & day (date()), 2)
strMonth = right("0" & month(date()), 2)
strYear = right( year (date()), 4)
YYYYMMDD = strYear & "-" & strMonth & "-" & strDayOfMonth
TCPath = WSH.ExpandEnvironmentStrings("%Commander_Path%") & "\totalcmd.exe"
WSH.Run """" & TCPath & """ /S /O /L=""" & Path & YYYYMMDD & """", 1, True
Set WSH = Nothing
WScript.Quit 0
|
SendKeystroke не используется - проблем с раскладкой не будет.
_________________
Нет, я не сплю. Я просто медленно моргаю. |
|
| Back to top |
|
|
Serge Yolkin
Joined: 25 Jul 2009
Posts: 664
|
| (Separately) Posted: Mon Sep 20, 2010 14:39 Post subject: |
|
|
А скрипт обязательно нужен? Может, просто | Code: | cd C:\Order\%DATE:~8,2%%DATE:~3,2%%DATE:~0,2% |
Правда, на некоторых 7/64 (закономерность пока не понял) дата отображается в формате ДД/ММ/ГГ, тогда вместо DATE:~8,2 надо поставить DATE:~6,2 |
|
| Back to top |
|
|
Tol!k
Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас
|
| (Separately) Posted: Mon Sep 20, 2010 15:13 Post subject: |
|
|
| Serge Yolkin wrote: | | Правда, на некоторых 7/64 (закономерность пока не понял) дата отображается в формате ДД/ММ/ГГ |
Исправляется в "Региональных установках" |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Mon Sep 20, 2010 17:53 Post subject: |
|
|
| Batya, ну, поскольку Хелпер человек использовать не отказывается, мною предложенный вариант будет порезче работать. |
|
| Back to top |
|
|
taravasya
Joined: 27 Mar 2010
Posts: 38
|
| (Separately) Posted: Tue Sep 21, 2010 03:49 Post subject: |
|
|
Ребята! Большое Вам всем спасибо за помощь!...
Batya
У меня к Вам просьба, если не сложно не могли бы Вы прокомментировать поподробнее эту строку:
| Code: | WSH.Run """" & TCPath & """ /S /O /L=""" & Path & YYYYMMDD & """", 1, True |
Дело в том, что я пытаясь обойти проблему с раскладкой, пытался использовать данный метод(конечно тоже тут подсматривал), но у меня ничего не вышло. Я уверен что натупил с кавычками. И кроме того мне непонятны и
PS/ Был бы очень благодарен, если подскажите толковую литературу по VB в WSH.
Ещё раз всем спасибо!!!!! |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Tue Sep 21, 2010 07:00 Post subject: |
|
|
taravasya
Я сам использовал эту строку в первом скрипте с диалогом копирования.
Ладно, хоть и не меня попросили.. Что тут, собственно..
переменная WSH сопоставлена с объектом WScript.Shell ;
Run - метод, запускающий программы (аналогична той, что вызывается по Win+R);
TCPath - переменная, которой строкой выше присваивался путь к exe-шнику ТС;
" /S /O /L=" - обычные параметры ТС; См. справку;
True - элемент функции для ожидания её отработки;
& - оператор слияния строк;
с Path, думаю, понятно..
Одна кавычка спереди и одна сзади обрамляют обрабатываемую строку целиком. Тройные кавычки обусловлены взятием каждой отдельной кавычки в ещё одни кавычки согласно синтаксису: " <кавычка> ".
Cами <Кавычки> нужны для учёта функцией пробелов в строке запуска. | taravasya wrote: | | Был бы очень благодарен, если подскажите толковую литературу по VB в WSH. |
А поискать? Ладно, я сегодня добрый. 
Лит-ра (пароль на архив в личке)
Вэб-ресурсы:1 2 3 4 5 6 7 8 |
|
| Back to top |
|
|
Batya
Joined: 15 Dec 2004
Posts: 2224
Location: Москва, Россия
|
| (Separately) Posted: Tue Sep 21, 2010 09:48 Post subject: |
|
|
| taravasya wrote: | | Был бы очень благодарен, если подскажите толковую литературу по VB в WSH. |
Во-первых, не стоит путать VB и VBS. Это разные языки.
По изучению языка Flasher привёл достаточный список.
Мне очень нравится ресурс, который идёт по ссылке 8.
Здесь же можно почитать про WSH.Run.
По поводу кавычек... Если нужно, чтобы в строке была кавычка, то при задании значения строки кавычки задваиваются. Например:
| Code: | MsgBox "Текст перед кавычкой "" Текст после кавычки" |
Соответственно, если нет текста перед кавычкой и\или после неё, то получаем тройные\четверные комбинации кавычек.
_________________
Нет, я не сплю. Я просто медленно моргаю. |
|
| Back to top |
|
|
Lev
Joined: 02 Mar 2005
Posts: 392
|
| (Separately) Posted: Tue Sep 21, 2010 17:40 Post subject: |
|
|
| [off]А я как-то присобачивал vbs + wso (WindowSystemObject) к HiAsm. Может кому интересно будет поиграться :)[/off] |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Tue Sep 21, 2010 20:30 Post subject: |
|
|
| [off]для какой версии? у меня не последняя стоит.[/off] |
|
| Back to top |
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
