Single Post - Озвучка имён и содержимого выделенных файлов

Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB

Rules

Search

FAQ

Memberlist

Usergroups

Profile

Single Post

Topic: Озвучка имён и содержимого выделенных файлов

Author

Message

Flasher

Posted: Tue Sep 09, 2014 23:28 Post subject:

Dimsok

Code:

'=============================================
' Читать содержимое выбранных текстовых файлов
' Параметр: %WL
'=============================================
With WScript.Arguments
If .Count = 0 Then WScript.Quit
List = .Item(0)
End With

Set Voice = CreateObject("SAPI.SpVoice")
With CreateObject("Scripting.FileSystemObject")
Set TF = .GetFile(List).OpenAsTextStream(1, -1)
Do While Not TF.AtEndOfStream
Set FF = .OpenTextFile(TF.ReadLine,,-1)
Voice.Speak FF.ReadAll
FF.Close : Set FF = Nothing
Loop : TF.Close : Set TF = Nothing
End With : Set Voise = Nothing

Code:

' Назначение: Завершить процесс WScript c указанным скриптом
' Параметр: "<путь к скрипту>"
'================================================================================================
Path = CreateObject("WScript.Shell").ExpandEnvironmentStrings(WScript.Arguments(0))
CMDLine = Replace("""" & WScript.FullName & """ """ & Path & """", "\", "\\")
Set WMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set WSC = WMI.ExecQuery("SELECT CommandLine FROM Win32_Process WHERE CommandLine Like '" & CMDLine & "%'")
If WSC.Count = 0 Then
Wscript.Echo "Указанный скрипт не запущен!"
Else
For Each P in WSC : P.Terminate : Next
End If : Set WMI = Nothing : Set WSC = Nothing : WScript.Quit

Skif_off wrote:

Я всегда проверяю,

И где там связка %P и %N? На этом форуме мильон раз обсуждали сей момент. Не говоря уже о справке:

Quote:

Если приписать %P, %p, %T или %t непосредственно перед %S или %s (без пробела между ними!), то к имени каждого файла из списка будет добавлен путь. При наличии пробелов полный путь автоматически заключается в кавычки.

Правда это касается не только %S. Причём это легко проверяется по ? перед параметрами.

Skif_off wrote:

никаких ограничений/нюансов вне FS-плагинов нет?

Нет. Опять же повторяю, примеры я привожу с ним довольно часто уже не первый год. На руборде про это никак не расскажут? Добро пожаловать! Very Happy

_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.