View previous topic :: View next topic |
Author |
Message |
Volniy
Joined: 15 Dec 2004 Posts: 585 Location: Местный
|
(Separately) Posted: Sun Nov 27, 2011 14:16 Post subject: |
|
|
Насчет не read-only свойств и сам пару раз лажался. Например, был уверен, что даты файла из FSO можно только прочитать, а оказалось-то - нет
Flasher wrote: | На два - ты хотел сказать. |
Я же не об этой конкретной строке. Дело в том, что если посмотреть на VBS скрипты тут, на форуме, то можно увидеть еще и более многоэтажные конструкции.
PS Вот сейчас припомнил случай, когда такие нагромождения не работали с 5-ой версии скриптов, а после установки 5.6 они уже заработали. Так что еще зависит и от реализации конкретной версии WSH. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sun Nov 27, 2011 14:47 Post subject: |
|
|
Volniy wrote: | Например, был уверен, что даты файла из FSO можно только прочитать, а оказалось-то - нет | Мануалы устаревшие, получается.
Volniy wrote: | Дело в том, что если посмотреть на VBS скрипты тут, на форуме, то можно увидеть еще и более многоэтажные конструкции. | Что ты под ними понимаешь?
Кстати, "Set N = FSO.GetFile(F)" не помогает. Всё равно на "N.Name =" плюётся сообщением: "Недопустимый вызов или аргумент процедуры". Может, в 7-ке убрали запись? |
|
Back to top |
|
|
Volniy
Joined: 15 Dec 2004 Posts: 585 Location: Местный
|
(Separately) Posted: Sun Nov 27, 2011 15:47 Post subject: |
|
|
Flasher wrote: | Что ты под ними понимаешь? |
Сложные вызовы объектов и их свойств/методов. Как бы это попроще... Выражения, в которых много точек Ну, например: Code: | CreateObject("Scripting.FileSystemObject").CreateTextFile(InFile).WriteLine(stroka) | Черт ногу сломает...
Flasher wrote: | Может, в 7-ке убрали запись? |
Не-а. Вот специально пошел на чужой комп с 7-кой. Все работает, в том числе и первоначальный, навороченный, вариант. Скорее всего какие-то заморочки 7-ки с правами доступа для переименования файла. Проверь. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sun Nov 27, 2011 15:54 Post subject: |
|
|
Volniy wrote: | Черт ногу сломает... | А мне нравится. Не люблю кучу строк, когда можно всё запихнуть в одну (там, где это позволительно, конечно).
Volniy wrote: | Скорее всего какие-то заморочки 7-ки с правами доступа для переименования файла. Проверь. | Род.контроль отключён, софтовой защиты нет, сижу под админом, беру обычные безатрибутные текстовые файлы в папке C:\Тест. |
|
Back to top |
|
|
kinecter
Joined: 29 Nov 2011 Posts: 17
|
(Separately) Posted: Tue Nov 29, 2011 12:48 Post subject: |
|
|
Всем привет!
Много лет посещал этот форум, многому научился а зарегистрировался только сегодня - решил поделиться опытом.
Эту ветку выбрал - показалась она самой подходящей, так как код включает HTA + VBS.
Пару лет уже пользуюсь собственной утилитой для множественной замены текста в файлах.
Вопрос к уважаемому форуму: я могу выкладывать все здесь? или стоит открыть новую ветку? так как кода достаточно много |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Tue Nov 29, 2011 13:12 Post subject: |
|
|
kinecter
Раз много лет посещался форум, то можно было бы за это время научиться определять места надлежащего назначения и пользоваться поиском аналогичных решений.
Эта ветка по обсуждению языка, а не по выкладыванию утилит и скриптов. Большие HTA-коды лучше выкладываеть в MIME, как это делается в подфоруме "Программное обеспечение".
Сами темы уже решались здесь и здесь. |
|
Back to top |
|
|
kinecter
Joined: 29 Nov 2011 Posts: 17
|
(Separately) Posted: Tue Nov 29, 2011 13:39 Post subject: |
|
|
Flasher wrote: | kinecter
Раз много лет посещался форум, то можно было бы за это время научиться определять места надлежащего назначения и пользоваться поиском аналогичных решений.
Эта ветка по обсуждению языка, а не по выкладыванию утилит и скриптов.
.......
Сами темы уже решались здесь и здесь. |
Спасибо за совет!
Про поиск и про то где эти темы решались, я в курсе - бывал не раз на тех ветках.
а вот что значит : Flasher wrote: | .
Большие HTA-коды лучше выкладываеть в MIME |
-пока не совсем в курсе. Буду искать, но ежели подскажете - с удовольствием прочитаю ваши советы.
Хотя, собственно HTA код там не слишком большой , ежели отделить от него стили и VBS |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Tue Nov 29, 2011 13:47 Post subject: |
|
|
kinecter
Подсказать может хотя бы справка. HTA имелся в виду в совокупности с остальным кодом. Не по отдельности же выкладывать. |
|
Back to top |
|
|
kinecter
Joined: 29 Nov 2011 Posts: 17
|
(Separately) Posted: Tue Nov 29, 2011 14:05 Post subject: |
|
|
Flasher wrote: | Подсказать может хотя бы справка. |
все таки с вашей подсказкой все ищется гораздо быстрее.
Благодарю!
Flasher wrote: | HTA имелся в виду в совокупности с остальным кодом. Не по-отдельности же выкладывать. |
По моему, если выкладывать кусками(HTA, STYLE,и VBS на пару частей разделить), то гораздо наглядней получится.
Ну ладно, прикину - померю - посмотрю.
Может мои произведения и не такие уж объемные - чуть больше 200 строк..
Тут на форуме, помнится, встречал портянки и подлиннее. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
|
Back to top |
|
|
Andrey_A
Joined: 10 Apr 2009 Posts: 394 Location: Сочи
|
(Separately) Posted: Sat Jan 14, 2012 20:42 Post subject: |
|
|
Появился вопрос
Есть шрифт файл Arialm.ttf
Можно ли методами скриптинга узнать название шрифта "Arial Mod"?
! | Avada: | Перемещено из темы Script Request. Данный пост запросом на скрипт не является. | |
|
Back to top |
|
|
Lev
Joined: 02 Mar 2005 Posts: 392
|
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Mon Jan 16, 2012 16:02 Post subject: |
|
|
Lev
Ты прямо мысли читаешь, только то же самое хотел предложить.
Andrey_A
Портабельный вариант:
Code: | ' Получить заголовок файла под курсором
' Параметры: "%P" %N
'======================================
Set Folder = CreateObject("Shell.Application").NameSpace(WScript.Arguments(0))
MsgBox Folder.GetDetailsOf(Folder.ParseName(WScript.Arguments(1)), 21) |
|
|
Back to top |
|
|
Andrey_A
Joined: 10 Apr 2009 Posts: 394 Location: Сочи
|
(Separately) Posted: Mon Jan 16, 2012 21:28 Post subject: |
|
|
Flasher и Lev спасибо, уже почти сам догадался...
Использование wdx-плагинов в скриптах будет следующим этапом освоение скриптов... |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sun Dec 23, 2012 11:29 Post subject: |
|
|
LonerD wrote: | А как в vbs-скрипте узнать, что мы находимся в архиве? | Параметр "%P" без слеша на конце проверить на FSO.FileExists или FSO.FolderExists. Либо проверить на доступность элемент под курсором.
Либо так (убрав путь запуска): Code: | If CreateObject("WScript.Shell").CurrentDirectory = CreateObject("Scripting.FileSystemObject").GetParentFolderName(WScript.arguments(0)) Then MsgBox "Открыт архив" Else MsgBox "Открыта папка" |
_________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
|