View previous topic :: View next topic |
Author |
Message |
Mayskii
Joined: 04 Sep 2006 Posts: 18
|
(Separately) Posted: Fri Sep 22, 2006 21:02 Post subject: |
|
|
Ребят извиняюсь за жуткий оффтоп, но не могли бы вы сказать где можно скачать документацию по VBScript, желательно на русском , в личку.Ещё раз извиняюсь.
Просто охото что нибудь написать для Total'a посерьёзнее, а то знаю только SendKeys
P.S.Только пожалуйста msdn.microsoft.com не предлагать, винда у меня все равно пиратская |
|
Back to top |
|
|
Volniy
Joined: 15 Dec 2004 Posts: 585 Location: Местный
|
(Separately) Posted: Sun Sep 24, 2006 15:32 Post subject: Не пропадать же добру :) |
|
|
Code: | '=========================[ Start of file ]===================
' File: EraseCDRW.vbs
' Description: Производит очистку RW диска, используя
' движок Nero версии 6 и выше
' Installation: Создайте кнопку или команду в меню Запуск TC
' Команда: "диск:\путь\к\файлу\EraseCDRW.vbs"
' Если приводов у Вас два, то возможно, что
' (0) понадобится заменить на (1)
' Copyright: (c) 2006, Volniy
Option Explicit
Dim n, d, et
Set n = CreateObject("Nero.Nero")
Set d = n.GetDrives(262172)(0)
d.LoadCD
et=d.CDRWErasingTime(True)
d.EraseCDRW(True)
WScript.Sleep et*1000
d.EjectCD
Set d=Nothing
Set n=Nothing
Wscript.Quit()
'=========================[ End of file ]===================
|
|
|
Back to top |
|
|
aLexx
Joined: 14 Mar 2005 Posts: 442 Location: Новокузнецк
|
(Separately) Posted: Sun Sep 24, 2006 17:48 Post subject: |
|
|
Вон куда всё зашло...
А всего-то хотелось сидюком управлять из ТС... |
|
Back to top |
|
|
Mayskii
Joined: 04 Sep 2006 Posts: 18
|
(Separately) Posted: Mon Sep 25, 2006 11:03 Post subject: |
|
|
Люди подскажите как сделать комментарий для сразу нескольких файлов.Вот что у меня получилось:
Code: |
'==========================================================================
'
' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 4.0
'
' NAME: GroupDescription.vbs
'
' AUTHOR: Artem Mayskii
' DATE : 25.09.2006
'
' COMMENT: Групповое создание комментариев
'
'==========================================================================
Option Explicit
Dim TCS, CopyFClip, Sel, FSO, TextStream, Clip, Descript, Sp
Set TCS = CreateObject("TCScript.Helper")
Sp = " "
Descript = "Описание"
Sel = TCS.GetSrcSelectedFiles(-1)
TCS.SendCommand("cm_CopyNamesToClip")
Clip = TCS.GetTextFromClip
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TextStream = FSO.CreateTextFile("C:\descript.ion")
TextStream.WriteLine Clip & Descript
|
Но опять же комментарий создаётся только для одного файла .
Что нужно ещё дописать?
P.S Кто нибудь обязательно спросит а что это за странная переменная Sp ?!
Поскольку я не знаю как делать пробелы, я создал такую переменную но её я в скрипте ещё не задействовал. |
|
Back to top |
|
|
Batya
Joined: 15 Dec 2004 Posts: 2218 Location: Москва, Россия
|
(Separately) Posted: Mon Sep 25, 2006 11:26 Post subject: |
|
|
Mayskii
Mayskii wrote: | Люди подскажите как сделать комментарий для сразу нескольких файлов. |
А чем не устраивает мой скрипт? _________________ Нет, я не сплю. Я просто медленно моргаю. |
|
Back to top |
|
|
Mayskii
Joined: 04 Sep 2006 Posts: 18
|
(Separately) Posted: Mon Sep 25, 2006 11:35 Post subject: |
|
|
Ух ты спасибо, всему причина моя лень, надо было ветку прочитать.
Будем разбираться |
|
Back to top |
|
|
Dystopian
Joined: 18 Oct 2006 Posts: 2
|
(Separately) Posted: Wed Oct 18, 2006 03:47 Post subject: |
|
|
Помогите, пожалуйста. Мне нужна кнопка в тотале, которая копирует полный путь файла в буфер, но все пробелы в пути заменяет на "%20"(для вставки ссылки в чате). Ясно, что без скрипта не обойтись. И очень хочется на чистом VBS. Можно упростить его до того, что он будет просто работатьс буфером, а загнать путь туда я смогу горячей клавишей, но хочется, конечно, все за один клик мыши. С кнопками и ее параметрами я разобрался, но вот выучить еще один язык программирования... Я хорош в С, с VB не сложилось как-то. |
|
Back to top |
|
|
D1P
Joined: 20 Dec 2004 Posts: 2973 Location: Тбилиси
|
|
Back to top |
|
|
Dammer
Joined: 02 Nov 2006 Posts: 6
|
(Separately) Posted: Mon Nov 06, 2006 16:47 Post subject: |
|
|
Я тут fs плагин слепил - отображает содержимое WMI namespaces, просматаривать метаинформацию класса + все экземпляры класса ( если есть в системе) + позволяет генерить строго типизиваное описание класса для следующих языков Visual Basic, C#, JScript, J#, C++.
Для работы ессено юзает .Net 2.0.
Kому надо - пишем в личку, скину мылом |
|
Back to top |
|
|
funduk
Joined: 16 Aug 2005 Posts: 1513 Location: Санкт-Петербург
|
(Separately) Posted: Mon Nov 06, 2006 23:02 Post subject: |
|
|
2Dammer
Выкладывай на ifolder.ru. Кому надо, скачает. |
|
Back to top |
|
|
Dammer
Joined: 02 Nov 2006 Posts: 6
|
|
Back to top |
|
|
Volniy
Joined: 15 Dec 2004 Posts: 585 Location: Местный
|
(Separately) Posted: Wed Nov 08, 2006 03:01 Post subject: |
|
|
Давно хотел написать, но все забывалось как-то. Есть очень хорошая программа для редактирования и отладки VBS-скриптов. Это VBSEdit. Кстати, в комплекте с ней идет MSDN-овская документация по WSH, скачать которую с сайта MS затруднительно (по известным причинам). В программе есть множество различных готовых шаблонов-заготовок кода.
Чего я ее сейчас вспомнил? Да уж больно хорошо она показывает всю инфу по объекту WMI, как в прочем и по любому другому объекту включенному в скрипт через CreateObject.
Короче, настоятельно рекомендую! |
|
Back to top |
|
|
Dammer
Joined: 02 Nov 2006 Posts: 6
|
(Separately) Posted: Wed Nov 08, 2006 15:21 Post subject: |
|
|
2 Volniy
А лекарственные средства для него есть? |
|
Back to top |
|
|
CaptainFlint
Joined: 14 Dec 2004 Posts: 6151 Location: Москва
|
(Separately) Posted: Wed Nov 08, 2006 15:42 Post subject: |
|
|
Если даже и есть, здесь их обсуждать запрещено по п. 5 правил! _________________ Почему же, ё-моё, ты нигде не пишешь "ё"? |
|
Back to top |
|
|
LA_
Joined: 07 Dec 2006 Posts: 31
|
(Separately) Posted: Wed Jan 10, 2007 16:21 Post subject: переименование файла и копирование нового имени файла в буфе |
|
|
написал следующий скрипт для переименования файла и копирования нового имени файла в буфер обмена
(файл переименовывается в соответствии со след логикой:
имяфайла.расширение -> имяфайла.[тэг].расширение
Code: |
'****************************************************************
' Copyright (c) LA
' This script renames given in parameter file in accordance with
' the following logic:
' filename.ext -> filename.[tag].ext
' and copies the result filename to clipboard.
'****************************************************************
' Version:
' 1.0 10 Jan 2007 - Initial release
'****************************************************************
' Parameters
strTag = "[tag]"
'****************************************************************
' script arguments
Set objArgs = WScript.Arguments
' if argument (filename) is not given, then exit
If WScript.Arguments.Count <> 1 Then
WScript.Quit
End If
Set objFSO = CreateObject("Scripting.FileSystemObject")
' get file passed as first arguments to the script
Set objFile = objFSO.GetFile(objArgs(0))
' create new file name as path + filename + [tag] + extension
strNewName = objFSO.GetParentFolderName(objFile) & "\" & objFSO.GetBaseName(objFile) & "." & strTag & "." & objFSO.GetExtensionName(objFile)
objFSO.MoveFile objArgs(0), strNewName
' copy new file name to clipboard with IE usage
'Set objIE = CreateObject("InternetExplorer.Application")
'objIE.Navigate("about:blank")
'objIE.document.parentwindow.clipboardData.SetData "text", strNewName
'objIE.Quit
' copy new file name to clipboard by sending Ctrl+Shift+Ins
' refreshing panel before copying
WScript.CreateObject("WScript.Shell").SendKeys "^{R}"
WScript.Sleep(100)
WScript.CreateObject("WScript.Shell").SendKeys "^+{INSERT}"
' copy new file name to clipboard with TCHelper usage
'Set TCS = CreateObject("TCScript.Helper")
'TCS.cm_CopyNamesToClip |
первая часть (переименование) работает отлично, а вот со второй частью (копирование имени в буфер) возникли проблемы - я нашел три варианта, как можно копировать (через IE, посылая комбинацию ctrl+shift+ins TC и через TCHelper)
какой предпочесть? если используется первый (через IE), то IE запрашивает разрешение скопировать данные в буфер, что не есть хорошо.
если второй (посылая комбинацию ctrl+shift+ins TC), то команда cm_CopyNamesToClip должна быть назначена на ctrl+shift+ins. И что произойдет, если во время выполнения скрипта я переключусь на другое приложение? ctrl+shift+ins будет послано куда-то не туда?
последний вариант, наверное, наилучший, но не позволит использовать скрипт вне TC (как, впрочем, и второй). ну и не нравится необходимостью установки TCHelper'a
может есть более лучшие варианты? |
|
Back to top |
|
|
|
|
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
|