none
vbs tc ( total comander ) Скопировать полное имя файла по шаблону. RRS feed

  • Вопрос

  • Помогите написать скрипт VBS для TC или может быть у кого то есть готовый.
    Чтобы скопировать полное имя файла под курсором так как это делает cm_CopyFullNamesToClip
    К примеру файл:
    d:\folder1\test1.ps1
    Затем преобразовать его к следующему виду.
    file:///d:/folder1/test1.ps1
    Чтобы данную файловую ссылку удобно было поместить в notepad++

    Планурую иконку выполнения этого скрипта поместить в пенель инструментов TC
    Заранее всем спасибо за любую подсказку.
    23 декабря 2019 г. 5:38

Все ответы

  • cm_CopyFullNamesToClip - это вообще что? если это скрипт можно его привести для примера?
    23 декабря 2019 г. 6:54
  • на просторах интернета нашел такой скрипт.

    Option Explicit 'https://docs.microsoft.com/ru-ru/dotnet/visual-basic/language-reference/statements/option-explicit-statement
    Dim List, Cnt, Buf, CurDir, FullName
    Dim WshShell
    Set WshShell = WScript.CreateObject("WScript.Shell")
     
    ' ***********************************************************
    Dim TCS
       Set TCS = CreateObject("TCScript.Helper")
       
       TCS.SendCommand "cm_CopyFullNamesToClip"
    CurDir = TCS.GetSrcPath
    TCS.SendCommand "cm_CopyFullNamesToClip", True
    'MsgBox  CurDir

    'MsgBox TCS.GetTextFromClip
    FullName = TCS.GetTextFromClip
    FullName = "file:///" + FullName
    FullName = Replace(FullName,"\","/")
    MsgBox FullName
    WshShell.Run "cmd.exe /c echo " & FullName & " | clip", 0, TRUE

    WScript.Quit

    Попробовал все работает.

    Попробовал все работает.
    Чтобы скрипт работал, нужно установить компоненту Script Helper ActiveX for TC beta12
    http://wincmd.ru/plugring/script_helper.html
    Затем Скрипт поместить в 1.vbs файл.
    Файл можно перетащить на панель инструментов Total commander

    Если, в скрипте можно, что то поправить.

    Может быть оптимизировать, Буду оч благодарен .

    Заранее всем спасибо.

    • Изменено korggrodno3 25 декабря 2019 г. 13:48
    25 декабря 2019 г. 13:32
  • в этом скрипте есть один неудобный момент. В конце строки

    FullName

    содержится символ перехода на новую строку.

    Подскажите как его удалить.

    пробовал способы

    FullName = Replace(FullName,vbCrLf,"")
    FullName = Replace(FullName,vbCr,"")

    Но они не помогают.

    2 января 2020 г. 9:09