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, 4, 5, 6
 
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: Fri Jan 17, 2014 04:04    Post subject: Reply with quote
skyinfire wrote:
Но последний барахлит на FTP ресурсах.
Вот поэтому мы его и не берём. Внёс некоторые коррективы:
Code:
'===================================================
' Копировать имена выделенных папок/файлов
' Необязательный параметр (добавлять пути): 1
'================= Путь к TCFS2 ====================
TCFS2 = """%COMMANDER_PATH%\Utils\TCFS2\TCFS2.exe"""
'===================================================
For Each OS in GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")._
ExecQuery("Select OSArchitecture from Win32_OperatingSystem")
    If Left(OS.OSArchitecture,2) <> 32 Then x64 = "\Wow6432Node"
Next
P = "\Software" & x64 & "\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1407"
P1 = "HKCU" & P : P2 = "HKLM" & P
If WScript.Arguments.Count Then Num = "2021" Else Num = "2017"
With CreateObject("WScript.Shell")
  .Run TCFS2 & " /ef tcm(" & Num & ")""",, True
  A = .RegRead(P1) : If Trim(A) = "" Then A = .RegRead(P2) : P1 = P2 : End If
  If A > 0 Then .RegWrite P1, 0, "REG_DWORD"
  With CreateObject("InternetExplorer.Application")
    .Navigate("about:blank") : Clip = .document.Parentwindow.ClipboardData.GetData("text")
    List = Replace(Clip, "\" + chr(13), chr(13))
    List = Replace(List, "/" + chr(13), chr(13))
    R = Right(List, 1) : If R = "/" Or R = "\" Then List = Left(List, Len(List) - 1)
    .document.ParentWindow.ClipboardData.SetData("text"), List
    .ExecWB 45, 2 : .Quit
  End With : If A > 0 Then .RegWrite P1, A, "REG_DWORD"
End With

_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
skyinfire



Joined: 10 Oct 2011
Posts: 28
Post (Separately) Posted: Fri Jan 17, 2014 12:17    Post subject: Reply with quote
Теперь на одном компьютере по-прежнему со слешем в конце
"папка\", а на другом ошибку выдает

http://screencast.com/t/Fwv03N3ohb

оба win7х64, хотя хочется, чтобы этот механизм работал независимо от операционной системы (на любом компе).
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва
Post (Separately) Posted: Fri Jan 17, 2014 14:04    Post subject: Reply with quote
skyinfire
Если бы у меня был в доступе x64, то уже бы всё сделал. Мне надо узнать, откуда подхватываются зоны. Учётка - админ?
Есть ещё вариант с clip, но её нет на XP. На XP тоже нужно?
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
skyinfire



Joined: 10 Oct 2011
Posts: 28
Post (Separately) Posted: Fri Jan 17, 2014 17:32    Post subject: Reply with quote
написал в ЛС
Back to top
View user's profile Send private message
skyinfire



Joined: 10 Oct 2011
Posts: 28
Post (Separately) Posted: Mon Jan 27, 2014 14:51    Post subject: Reply with quote
Flasher
Скажите, ждать ли обновления скрипта?
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва
Post (Separately) Posted: Mon Jan 27, 2014 15:44    Post subject: Reply with quote
skyinfire
Пока не решён вопрос в ЛС, какой смысл ждать чего-то здесь?
Написать в ЛС - написал, а прочесть ответ и продолжить диалог - кто?
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва
Post (Separately) Posted: Thu May 01, 2014 16:28    Post subject: Reply with quote
skyinfire
Тут на руборде утилиту вспомнили, но она не работает с %WF/%UF/%WL/%UL, а так бы был нормальный вариант (с кириллицей проблемы).
Code:
TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Utils\Lst2Clip\Lst2Clip.exe /RB
/L:"%F"
Utils\Lst2Clip\Lst2Clip.exe
Копировать имена файлов и папок без бэкслеша

_________________
Автору сборки TC Image (Andrey_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, 4, 5, 6
Page 6 of 6

 
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