Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Windows Script Host
Goto page Previous  1, 2, 3 ... 20, 21, 22 ... 25, 26, 27  Next
 
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
Andrey_A



Joined: 10 Apr 2009
Posts: 394
Location: Сочи

Post (Separately) Posted: Mon Sep 19, 2011 18:32    Post subject: Reply with quote

У меня файл в ANSI-крирлица Windows-1251

пытался в другие кодировки - ничего

===============================
может это что-то в системе, попробовал через "выполнить"
ввёл
Code:
http://translate.google.com/#ru|en|

тоже выдаёт ошибку
"не удаётся найти адрес" , хотя страница открылась

================================
скорее всего это что-то в системе, через explorer выдаёт ошибку
Code:
CreateObject("WScript.Shell").Run "C:\TC Image\Programs\Internet\Opera_AC\opera.exe" "http://translate.google.com/#auto|en| Запуск"


напрямую опере - ошибки нет, хотя русские слова передаются корозябрами
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Mon Sep 19, 2011 20:44    Post subject: Reply with quote

Code:
' Тройное открытие ссылки в браузере 3-мя методами
'==========================================
URL = "http://translate.google.com/#ru|en|"
On Error Resume Next
With CreateObject("Shell.Application")
  .ShellExecute URL
  .Open URL
  .NameSpace(URL).Self.Verbs.Item(0).DoIt
End With
Проверено на Win 7 x86.
Back to top
View user's profile Send private message
Andrey_A



Joined: 10 Apr 2009
Posts: 394
Location: Сочи

Post (Separately) Posted: Mon Sep 19, 2011 21:18    Post subject: Reply with quote

Flasher
За методы спасибо,
Когда все три метода показали ошибку, логически влез в explorer и сделал его по умолчанию - и всё заработало!!!
Видимо опера прописалась не корректно!
Ещё раз спасибо и ApceH, за то узнал новые возможности вызова!
Back to top
View user's profile Send private message
sa



Joined: 29 Apr 2009
Posts: 2567

Post (Separately) Posted: Mon Oct 10, 2011 13:58    Post subject: Reply with quote

Возник вопрос по работе макроса GetSrcSelectedFiles в каталогах с большим числом файлов (например, в каталоге Windows c нажатым Ctrl+B). Макрос зачастую выдаёт неправильный результат. Порой помогает его повторный вызов.
Code:
MsgBox CreateObject("TCScript.Helper").GetSrcSelectedFiles(0)(0), vbOKOnly

Понять бы причину...
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Mon Oct 10, 2011 14:04    Post subject: Reply with quote

Volniy
Это давно замечено. Править надо однозначно. Повторные вызовы в скрипте макрос отрабатывает глюкабельно, т.е. берёт предыдущий буфер.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Thu Oct 27, 2011 21:17    Post subject: Reply with quote

Lev wrote:
А зачем составляется путь к ini который может лежать не там и называться по другому вместо использования %COMMANDER_INI%?
Помнится с этой переменной какие-то проблемы были в WSH. На 7 попробовал, вроде ничего:
Code:
MsgBox  CreateObject("WScript.Shell").ExpandEnvironmentStrings("%COMMANDER_INI%")
Может, в XP трабла?
Back to top
View user's profile Send private message
Volniy



Joined: 15 Dec 2004
Posts: 585
Location: Местный

Post (Separately) Posted: Thu Nov 03, 2011 00:23    Post subject: Reply with quote

Flasher wrote:
Volniy
Это давно замечено. Править надо однозначно. Повторные вызовы в скрипте макрос отрабатывает глюкабельно, т.е. берёт предыдущий буфер.

Честно говоря, я не очень понял в чем проблема и уж точно слышу о ней впервые. Нельзя ли описать ее более детально? И как ее можно гарантированно воспроизвести?
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Thu Nov 03, 2011 01:31    Post subject: Reply with quote

Volniy
Ну, давай так попробуем:
Code:
With CreateObject("TCScript.Helper")
  .SendCommand(524)
  .LockTC True
  .SendCommand(3303), True
  A = .GetSrcSelectedFiles(1)(2)
  .Sleep 100
  .SendCommand(3305)
  .SendCommand(3302), True
  B = .GetSrcSelectedFiles(1)(2)
  .Sleep 100
  .SendCommand(3304)
  .LockTC False
End With
MsgBox A & vbnewLine & B
Повесь на кнопку, открой папку с кучей файлов и каталогов, например, system32. Жми. Сделай несколько попыток.
Отображаться должны разные, а не одинаковые пути.
Back to top
View user's profile Send private message
Volniy



Joined: 15 Dec 2004
Posts: 585
Location: Местный

Post (Separately) Posted: Sat Nov 05, 2011 00:20    Post subject: Reply with quote

Много раз это попробовал. Никаких проблем. Может еще что-то нужно?
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Sat Nov 05, 2011 00:45    Post subject: Reply with quote

Хм., надо подумать.. Хилый проц, не младше Celeron 400, оперативка EDO/DDR, древний винт с 5400, Win95, куча открытых приложений. Так, ничего не забыл... Very Happy
А если честно, то я понятия не имею, от чего конкретно это зависит. С каким количеством папок и файлов ты открывал директории?
Чаще всего это можно поймать при первом заходе в каталог.
У меня Win7 x86, если что.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Sat Nov 26, 2011 11:28    Post subject: Reply with quote

Batya
У тебя на 7 работает подобный способ переименования?:
Code:
FSO.GetFile(F).Name   =
Не очень понял, как это вообще может работать. Это же метод возврата.
Back to top
View user's profile Send private message
Volniy



Joined: 15 Dec 2004
Posts: 585
Location: Местный

Post (Separately) Posted: Sat Nov 26, 2011 16:18    Post subject: Reply with quote

Flasher wrote:

Code:
FSO.GetFile(F).Name   =
Не очень понял, как это вообще может работать. Это же метод возврата.


Неправда ваша (с) Ваня, Сын Полка
Это не метод, это свойство, и оно не readonly
Quote:
Scripting Runtime Library

Name Property
Applies To: File Object | Folder Object

Sets or returns the name of a specified file or folder. Read/write.

object.Name [= newname]
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Sat Nov 26, 2011 23:01    Post subject: Reply with quote

Volniy wrote:
Это не метод
Здесь фигурирует как метод.
Ты хотя бы ответь насчёт работы.
Back to top
View user's profile Send private message
Volniy



Joined: 15 Dec 2004
Posts: 585
Location: Местный

Post (Separately) Posted: Sun Nov 27, 2011 02:06    Post subject: Reply with quote

Flasher wrote:
Здесь фигурирует как метод.

А если повнимательнее?
Quote:
5. Объект File
<...> 5.2. Свойства
<...>
5.2.6. Name

Flasher wrote:
Ты хотя бы ответь насчёт работы.

Я не знаю, у меня на XP работает, на 7 не могу проверить.

Idea Мое мнение - лучше вообще не использовать такую запись кода, когда в одном вызове создается объект и тут же меняется его свойство. Такая запись не имеет никаких реальных выгод и действительно иногда приводит к неработоспособности кода. Проще и намного нагляднее разбивать на несколько последовательных действий.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Sun Nov 27, 2011 06:43    Post subject: Reply with quote

Volniy wrote:
А если повнимательнее?
На Name даже не обратил внимания. Про режим write не знал. Надо бы все знакомые свойства пересмотреть.
Volniy wrote:
Проще и намного нагляднее разбивать на несколько последовательных действий.
На два - ты хотел сказать.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander All times are GMT + 4 Hours
Goto page Previous  1, 2, 3 ... 20, 21, 22 ... 25, 26, 27  Next
Page 21 of 27

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group