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 ... 6, 7, 8 ... 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
Mayskii



Joined: 04 Sep 2006
Posts: 18

Post (Separately) Posted: Fri Sep 22, 2006 21:02    Post subject: Reply with quote

Ребят извиняюсь за жуткий оффтоп, но не могли бы вы сказать где можно скачать документацию по VBScript, желательно на русском , в личку.Ещё раз извиняюсь.
Просто охото что нибудь написать для Total'a посерьёзнее, а то знаю только SendKeys Smile

P.S.Только пожалуйста msdn.microsoft.com не предлагать, винда у меня все равно пиратская Smile
Back to top
View user's profile Send private message
Volniy



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

Post (Separately) Posted: Sun Sep 24, 2006 15:32    Post subject: Не пропадать же добру :) Reply with quote

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
View user's profile Send private message
aLexx



Joined: 14 Mar 2005
Posts: 442
Location: Новокузнецк

Post (Separately) Posted: Sun Sep 24, 2006 17:48    Post subject: Reply with quote

Вон куда всё зашло... Very Happy
А всего-то хотелось сидюком управлять из ТС...
Back to top
View user's profile Send private message
Mayskii



Joined: 04 Sep 2006
Posts: 18

Post (Separately) Posted: Mon Sep 25, 2006 11:03    Post subject: Reply with quote

Люди подскажите как сделать комментарий для сразу нескольких файлов.Вот что у меня получилось:

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



Но опять же комментарий создаётся только для одного файла Laughing .
Что нужно ещё дописать?


P.S Кто нибудь обязательно спросит а что это за странная переменная Sp ?! Smile
Поскольку я не знаю как делать пробелы, я создал такую переменную но её я в скрипте ещё не задействовал.
Back to top
View user's profile Send private message
Batya



Joined: 15 Dec 2004
Posts: 2218
Location: Москва, Россия

Post (Separately) Posted: Mon Sep 25, 2006 11:26    Post subject: Reply with quote

Mayskii
Mayskii wrote:
Люди подскажите как сделать комментарий для сразу нескольких файлов.

А чем не устраивает мой скрипт?
_________________
Нет, я не сплю. Я просто медленно моргаю.
Back to top
View user's profile Send private message
Mayskii



Joined: 04 Sep 2006
Posts: 18

Post (Separately) Posted: Mon Sep 25, 2006 11:35    Post subject: Reply with quote

Ух ты спасибо, всему причина моя лень, надо было ветку прочитать.
Будем разбираться Smile
Back to top
View user's profile Send private message
Dystopian



Joined: 18 Oct 2006
Posts: 2

Post (Separately) Posted: Wed Oct 18, 2006 03:47    Post subject: Reply with quote

Помогите, пожалуйста. Мне нужна кнопка в тотале, которая копирует полный путь файла в буфер, но все пробелы в пути заменяет на "%20"(для вставки ссылки в чате). Ясно, что без скрипта не обойтись. И очень хочется на чистом VBS. Можно упростить его до того, что он будет просто работатьс буфером, а загнать путь туда я смогу горячей клавишей, но хочется, конечно, все за один клик мыши. С кнопками и ее параметрами я разобрался, но вот выучить еще один язык программирования... Я хорош в С, с VB не сложилось как-то.
Back to top
View user's profile Send private message
D1P



Joined: 20 Dec 2004
Posts: 2973
Location: Тбилиси

Post (Separately) Posted: Wed Oct 18, 2006 12:43    Post subject: Reply with quote

http://tckb.mega-byte.info/content/view/221/100/

Приведённый скрипт преобразует все нелатиинские символы, если надо "чинить" только пробелы, то исправление скрипта для человека, хорошо знающего C не составит проблемы.

Да, перед выполнением преобразования нужно сначала скопировать ссылку в буфер омбена - на это есть cm_CopyFullnamesToClip
_________________
База знаний о Total Commander
Блог
Back to top
View user's profile Send private message
Dammer



Joined: 02 Nov 2006
Posts: 6

Post (Separately) Posted: Mon Nov 06, 2006 16:47    Post subject: Reply with quote

Я тут fs плагин слепил - отображает содержимое WMI namespaces, просматаривать метаинформацию класса + все экземпляры класса ( если есть в системе) + позволяет генерить строго типизиваное описание класса для следующих языков Visual Basic, C#, JScript, J#, C++.
Для работы ессено юзает .Net 2.0.

Kому надо - пишем в личку, скину мылом
Back to top
View user's profile Send private message
funduk



Joined: 16 Aug 2005
Posts: 1513
Location: Санкт-Петербург

Post (Separately) Posted: Mon Nov 06, 2006 23:02    Post subject: Reply with quote

2Dammer
Выкладывай на ifolder.ru. Кому надо, скачает.
Back to top
View user's profile Send private message
Dammer



Joined: 02 Nov 2006
Posts: 6

Post (Separately) Posted: Tue Nov 07, 2006 15:26    Post subject: Reply with quote

WMIExplorer доступен здес:
http://shareua.com/files/9e8eeb/wfx_WMIExplorer_1.0.zip.html
Для работы НУЖЕН .Net Framework 2.0 !!!
Back to top
View user's profile Send private message
Volniy



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

Post (Separately) Posted: Wed Nov 08, 2006 03:01    Post subject: Reply with quote

Давно хотел написать, но все забывалось как-то. Есть очень хорошая программа для редактирования и отладки VBS-скриптов. Это VBSEdit. Кстати, в комплекте с ней идет MSDN-овская документация по WSH, скачать которую с сайта MS затруднительно (по известным причинам). В программе есть множество различных готовых шаблонов-заготовок кода.

Чего я ее сейчас вспомнил? Да уж больно хорошо она показывает всю инфу по объекту WMI, как в прочем и по любому другому объекту включенному в скрипт через CreateObject.

Короче, настоятельно рекомендую!
Back to top
View user's profile Send private message
Dammer



Joined: 02 Nov 2006
Posts: 6

Post (Separately) Posted: Wed Nov 08, 2006 15:21    Post subject: Reply with quote

2 Volniy
А лекарственные средства для него есть?
Back to top
View user's profile Send private message
CaptainFlint



Joined: 14 Dec 2004
Posts: 6151
Location: Москва

Post (Separately) Posted: Wed Nov 08, 2006 15:42    Post subject: Reply with quote

Если даже и есть, здесь их обсуждать запрещено по п. 5 правил!
_________________
Почему же, ё-моё, ты нигде не пишешь "ё"?
Back to top
View user's profile Send private message
LA_



Joined: 07 Dec 2006
Posts: 31

Post (Separately) Posted: Wed Jan 10, 2007 16:21    Post subject: переименование файла и копирование нового имени файла в буфе Reply with quote

написал следующий скрипт для переименования файла и копирования нового имени файла в буфер обмена
(файл переименовывается в соответствии со след логикой:
имяфайла.расширение -> имяфайла.[тэг].расширение
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
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 ... 6, 7, 8 ... 25, 26, 27  Next
Page 7 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