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 

Создание файла с содержимым на основе имени другого файла
Goto page Previous  1, 2, 3  Next
 
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
Flasher



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

Post (Separately) Posted: Mon Jun 27, 2011 12:18    Post subject: Reply with quote

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



Joined: 21 Jun 2011
Posts: 14

Post (Separately) Posted: Mon Jun 27, 2011 12: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: Mon Jun 27, 2011 12:22    Post subject: Reply with quote

А путь к утилите соответствует, как я писал, скриптовому?
Back to top
View user's profile Send private message
KrechetovRS



Joined: 21 Jun 2011
Posts: 14

Post (Separately) Posted: Mon Jun 27, 2011 12:22    Post subject: Reply with quote

я абсолютный прописал
CreateObject("WScript.Shell").Exec("c:\Program Files\Total Commander\Utils\TCMC\TCMC.exe CM2021")
Back to top
View user's profile Send private message
Flasher



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

Post (Separately) Posted: Mon Jun 27, 2011 12:26    Post subject: Reply with quote

KrechetovRS
Т.е. портабельность не нужна? Ну, смотри. Я вообще-то спрашивал про реальный путь, а не строку в скрипте.


Last edited by Flasher on Mon Jun 27, 2011 12:26; edited 1 time in total
Back to top
View user's profile Send private message
KrechetovRS



Joined: 21 Jun 2011
Posts: 14

Post (Separately) Posted: Mon Jun 27, 2011 12:26    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: Mon Jun 27, 2011 12:27    Post subject: Reply with quote

Путь к реальному местоположению утилиты.
IE, кстати, какой версии?
Back to top
View user's profile Send private message
KrechetovRS



Joined: 21 Jun 2011
Posts: 14

Post (Separately) Posted: Mon Jun 27, 2011 12:31    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: Mon Jun 27, 2011 12:36    Post subject: Reply with quote

KrechetovRS
На оба вопроса ответь. Я тоже IE не пользуюсь, он в системе по умолчанию стоит.
Back to top
View user's profile Send private message
KrechetovRS



Joined: 21 Jun 2011
Posts: 14

Post (Separately) Posted: Mon Jun 27, 2011 12:38    Post subject: Reply with quote

Версия IE 7.0.6002.18005
Back to top
View user's profile Send private message
Flasher



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

Post (Separately) Posted: Mon Jun 27, 2011 12:41    Post subject: Reply with quote

Понятно, возможно, версия старовата для этой фичи. В общем, если не работает и портабельность тебе не нужна, то используем старый дедовский метод. Регистрируй хелпер, а скрипт будет такой:
Code:
' Создать файлы с именами выделенных в каталоге сетевого устройства
' файлов, расширением M3U и соответствующим NFS-путём в их содержимом
' Необходима регистрация Script Helper ActiveX for TC
' Параметры: "Путь назначения>\" <фильтр-расширение>
' Пример:"%T" mkv
'===================================================
With CreateObject("TCScript.Helper")
  T=.GetTextFromClip
  .SendCommand 2021
  Clip=.GetTextFromClip
  .SetTextToClip(T)
End With
With CreateObject("Scripting.FileSystemObject")
  For Each F In Split(Clip, vbNewLine)
   If .GetExtensionName(F)=WScript.Arguments(1) Then
    Set N = .OpenTextFile(WScript.Arguments(0)&.GetBaseName(F)&".m3u",2,True)
    N.WriteLine "nfs:"&F
    N.Close
   End If
  Next
End With
WScript.Quit


Самое главное забыл спросить - параметр (путь назначения) какой указывался? Если "%P", то не удивительно, что не работает. Файлы, AFAIK, с помощью стандартных методов WSH могут создаваться только на обычном (несетевом) носителе. Поэтому лучше в другой панели открыть каталог обычного диска и оставить "%T" либо указать постоянный путь к каталогу на этом диске.
Back to top
View user's profile Send private message
Batya



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

Post (Separately) Posted: Mon Jun 27, 2011 14:21    Post subject: Reply with quote

KrechetovRS wrote:
Получается не тот текст в файле

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



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

Post (Separately) Posted: Mon Jun 27, 2011 14:34    Post subject: Reply with quote

Batya
А ShareName разве показывает ip-адрес?
Back to top
View user's profile Send private message
Batya



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

Post (Separately) Posted: Mon Jun 27, 2011 14:41    Post subject: Reply with quote

Flasher wrote:
А ShareName разве показывает ip-адрес?

Смотря как замаплены сетевые диски.
KrechetovRS wrote:
Имеем - nfs:Y:/Мультфильмы/СССР/!А-Д/А в этой сказке было так… (1984).mkv

_________________
Нет, я не сплю. Я просто медленно моргаю.
Back to top
View user's profile Send private message
Flasher



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

Post (Separately) Posted: Mon Jun 27, 2011 14:44    Post subject: Reply with quote

Мне просто интересно, сработает ли это у KrechetovRS с "//192.168.0.9:".
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  Next
Page 2 of 3

 
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