Приветствую Вас Гость | Сегодня: 02.02.2017, Четверг | RSS
   
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 9 из 13«1278910111213»
Форум » Total Commander » Total Commander Image » Скрипты (Тестирование скриптов)
Скрипты
Andrey_AДата: Среда, 12.10.2011, 21:18 | Сообщение # 1
Сборщик TC Image
Зареген: 04.08.2011
Всего сообщений: 430
Тестирование скриптов




Скрипты - уникальный инструмент для достижения различных целей в работе с файлами и не только, особенно в файловом менеджере, даже если вы ничего раньше об этом ничего не слышали и не знали, то путём простых движений вы можете оптимизировать свои действия
Тема тестирования скриптов создана для увеличения функциональности Total Commander
Каждый может выложить свой скрипт написанный на любом языке: vbs, js, hta, au3,ahk, bat,cmd... главное, чтобы он относился как-то к Total Commander, можно было им воспользоваться и к нему было должное описание к применению.
Каждый может протестировать, дать свой комментарий и ...[move]если есть интересная идея, вы можете поделиться ей и заказать скрипт, а вдруг она покажется интересной для авторов...[/move]
Всё это делается для тех, кто хочет экономить время и автоматизировать работу
Огромное спасибо участникам, авторам и всем повлиявшим на тему











Читайте: Справочные материалы по работе c TC + Онлайн справка TC
Награды: 16 Сборщик Total Commander Image! За 100 Сообщений!За 200 Сообщений!!!За 300 Сообщений!!!За 400 Сообщений!!!
Пользователь из города: Сочи, Хоста
kassiopДата: Вторник, 24.01.2012, 19:22 | Сообщение # 161
Лейтенант
Зареген: 22.01.2012
Всего сообщений: 10
кавычки ставлю, когда точно цитирую (по идее всегда), нет кавычек - значит обобщаю (довольно редко) или свои выводы.

не соглашусь
и по самим скриптам многое видно, и "просто так" со скриптами своими никто не влазит
Награды: 1
Andrey_AДата: Вторник, 24.01.2012, 19:45 | Сообщение # 162
Сборщик TC Image
Зареген: 04.08.2011
Всего сообщений: 430
После частичного прочтения последних постов, хотелось бы сказать:
"Давайте жить дружно!". На мой взгляд, скрипты - это интересная, позитивная тема, где путём автоматизации решается очень интересные нюансы - сегодня они тебе не нужны и ты их не понимаешь, а завтра прозрение и то, что вчера было не понятным сегодня находит применение. Кроме того, оду и ту же задачу можно решить разными способами.... Можно долго спорить, какая из них лучше или хуже, всегда есть более опытные и только начинающие. Призываю более опытных быть более сдержанными в плане критики, а начинающих более терпимее. (сам помню когда начинал - читал в личке много не столь интересного).
Если есть идеи, вы всегда можете поделиться, отправив личное сообщение - у меня есть "волшебная тетрадь" в которую вношу всё, что интересно и рано или поздно приходит информация по реализацииё

Некоторые сугубо личные разногласия всегда можно решить в личных сообщениях друг другу


Читайте: Справочные материалы по работе c TC + Онлайн справка TC
Награды: 16 Сборщик Total Commander Image! За 100 Сообщений!За 200 Сообщений!!!За 300 Сообщений!!!За 400 Сообщений!!!
Пользователь из города: Сочи, Хоста
Andrey_AДата: Пятница, 27.01.2012, 11:40 | Сообщение # 163
Сборщик TC Image
Зареген: 04.08.2011
Всего сообщений: 430
Удаление в указанной папке и подпапках файлов старше указанного дня

Code
' RemoveFilesbyTime.vbs
'========================   Описание   =====================================
' Удаление в указанной папке и подпапках файлов старше указанного дня    
' Удаляются так же папки старше указанной даты, если они пустые
' Использовать крайне аккуратно!!!
' Необходимо указать в скрипте папку и день

' Автор:             Аверин Андрей
' Версия:          1.3 (27.01.2012 - 25.02.2012)
' Mail:                 Averin-And@yandex.ru
' Site:                  http://tc-image.3dn.ru
'=================   Изменяемые параметры   ================================
Folder  = "E:\1234567\" ' папка в которой удаляются файлы
N = 6                    ' день старше которого файлы удаляются
'=========================================================================
Set FSO = CreateObject("Scripting.FileSystemObject")
ControlDate = Date - N
If Right(Folder, 1) = "\" Then Folder = Left(Folder, Len(Folder) - 1)
If FSO.FolderExists(Folder) = False Then
Else
   Set FFF = FSO.GetFolder(Folder) : Call ScanFold(FFF) : Set FFF = Nothing
End If
Set FSO = Nothing : WScript.Quit

Function ScanFold(FFF)
    For Each SF In FFF.SubFolders
      Call ScanFold(SF)
    Next
    For Each objFile In FSO.GetFolder(FFF).Files
      On Error Resume Next
      If objFile.DateLastModified < ControlDate Then FSO.DeleteFile objFile.Path
    Next
    On Error Resume Next
    If FFF.DateLastModified < ControlDate And FFF.Size = 0 Then
      If LCase(FFF) <> LCase(Folder) Then FSO.DeleteFolder FFF
    End If   
End Function


Читайте: Справочные материалы по работе c TC + Онлайн справка TC
Награды: 16 Сборщик Total Commander Image! За 100 Сообщений!За 200 Сообщений!!!За 300 Сообщений!!!За 400 Сообщений!!!
Пользователь из города: Сочи, Хоста
Andrey_AДата: Вторник, 07.02.2012, 14:54 | Сообщение # 164
Сборщик TC Image
Зареген: 04.08.2011
Всего сообщений: 430
Создание панели инструментов в TC Image, содержащей ссылки на встроенные программы по алфавиту

Code
'========================   Описание   =====================================
' Создание панели Total Commander, содержащей ссылки на встроенные программы
'========================================================================
' Автор:             Аверин Андрей
' Версия:          1.1  (25.02.2012)
' Mail:                 Averin-And@yandex.ru
' Site:                  http://tc-image.3dn.ru
'========================================================================
Set FSO = CreateObject("Scripting.FileSystemObject")
'=================   Изменяемые параметры   ================================
Const FileIcon = "%COMMANDER_PATH%\Wcmicons.dll" 'Файл иконок
Const NumIcon3 = 1345
Const NumIcon2 = 1184
Const Bar = "%COMMANDER_PATH%\BAR\000_Programm.bar" 'Панель TC
Const Wcmdini = "%COMMANDER_PATH%\Language\Wcmd_Rus.ini" 'Обрабатываемый файл
Const INI = "%COMMANDER_PATH%\Scripts\Include\FunctionsINIRWS.vbs" ' файл с функциями чтения\записи Ini файлов
Const FuncPlus = "%COMMANDER_PATH%\Scripts\Include\FunctionsPlus.vbs"  ' файл с дополнительными функциями
ProgramPath = GetPath("%COMMANDER_PATH%\Bar\Programm") ' папка для создаваемых вспомогательных .bar файлов
'========================================================================
Dim ArrProg(2000), FSO, Text, k, i, nName, n, sCount, BarFile, PathLine, NameLine, rPath, nLine, vb
If Not FSO.FolderExists(ProgramPath) Then FSO.CreateFolder(ProgramPath)
Execute FSO.OpenTextFile(GetPath(FuncPlus)).ReadAll
Call DeleteInFolderFilesExt(ProgramPath, ";bar;br2;")
TC =  "%COMMANDER_PATH%"
k = 0
vb = vbNewLine
Text = FSO.OpenTextFile(GetPath(Wcmdini)).ReadAll
Call DelProgg
For i = 1 To 2000
   n = InStr(Text, "\Programs\")
   m = InStr(Text, "\Utilities\")
   If n > m Then n = m
   If n = 0 Then Exit For
   Text = Mid(Text, n)
   Program = TC & Left(Text, InStr(Text, vb) - 1)
   Program = Replace(Program, " /recover", "")
   Name = FSO.GetBaseName(Program)
   If LCase(Name) = "start" Then Name = FSO.GetBaseName(FSO.GetParentFolderName(Program))
   Name = Replace(Name, "_", " ")
   Name = Replace(Name, "Portable-", "")
   Name = Replace(Name, "Portable", "")
   Name = Trim(Name)

   If Len(Name) > 0 Then Name = UCase(Left(Name, 1)) & Mid(Name, 2)
   butProg = "Cmd=" &TC; & Left(Text, InStr(Text, "[") - 1)
   ArrProg(i) = UCase(Name) & "####" & CleanerMenu(butProg, Name)
   Text = Mid(Text, InStr(Text, "["))
Next

ArrProg2 = SelectingArrUp(ArrProg)
ArrPr = DelDublicateArr(ArrProg2)

k = 4 : n = 0 : sCount = ""
Text = "[Buttonbar]" & vb & "Buttoncount=>>>>" & vb

For i = 0 To Ubound(ArrPr)
   nName = Mid(ArrPr(i), 1, 1)
   If InStr("0123456789#", nName) > 0 Then nName = "0"
   ArrPr(i) = Mid(ArrPr(i), InStr(ArrPr(i), "####") + 4)
   k = k + 1
     if nName <> sCount Then
       if k <> 5 Then
         Call WriteBar
         n = 0
         Text = "[Buttonbar]" & vb & "Buttoncount=>>>>" & vb
       End If
     End If
     sCount = nName : n = n + 1
     ArrPr(i) = Replace(ArrPr(i), "Cmd=", "Cmd" & n & "=")
     ArrPr(i) = Replace(ArrPr(i), "Button=", "Button" & n & "=")
     ArrPr(i) = Replace(ArrPr(i), "Menu=", "Menu" & n & "=")
     ArrPr(i) = Replace(ArrPr(i), "Iconic=", "Iconic" & n & "=")
     Text = Text  & ArrPr(i)
Next
Call WriteBar

' запись путей созданных .bar файлов в основной для отображении на панели Total Commander'a
n = 4
rPath = Split(PathLine, ";")     ' массив путей создаваемых . bar файлов
nLine = Split(NameLine, ";")  ' массив имён создаваемых . bar файлов
Text = "[Buttonbar]" & vb & _
              "Buttoncount=" & UBound(nLine) + 3 & vb &  _
              "cmd1=" & vb & "button1=" & vb &  _
              "cmd2=" & Replace(WScript.ScriptFullName, GetPath("%COMMANDER_PATH%"), "%COMMANDER_PATH%") & vb&  _
              "button2=" & FileIcon & "," & NumIcon2 & vb &_
              "iconic2=0" & vb & "menu2=Обновить список" & vb &_
              "cmd3=" & vb & "button3="

For i = 0 To UBound(nLine) - 1
   Text = Text  & vb & _
              "cmd"& n & "=" & Chr(34) & Replace(rPath(i), GetPath("%COMMANDER_PATH%"), "%COMMANDER_PATH%") & Chr(34) & vb & _
              "button"& n & "=" & FileIcon & "," & NumIcon3 & vb & _
              "menu"& n & "= Программы ''" & Replace(nLine(i), "_", Chr(32)) & "''" & vb & _
              "iconic"& n & "=1"
   n = n + 1
Next

FSO.OpenTextFile(GetPath(Bar), 2, True).Write Text
Set FSO = Nothing : WScript.Quit

' запись .bar файлов
Sub WriteBar
   BarFile = ProgramPath & "\Programs_" & sCount & ".bar"
   Text = Replace(Text, ">>>>", n)
   On Error Resume Next
   FSO.OpenTextFile(BarFile, 2, True).Write Text
   PathLine = PathLine & BarFile & ";"         ' строка путей создаваемых . bar файлов
   NameLine = NameLine & sCount & ";"    ' строка имён создаваемых . bar файлов
End Sub

Function CleanerMenu(bpText, bpName)
   c = InStr(LCase(bpText), "menu=")
   Text1 = Left(bpText, c - 1)
   Text2 = Mid(bpText, c)
   c = InStr(Text2, vb)
   Menu = Left(Text2, c + 1)
   Text2 = Mid(Text2, c + Len(vb))
   nMenu = Menu
   Menu = Replace(Menu, "..." & vb, vb)
   Menu = Replace(Menu, "++" & vb, vb)
   Menu = Replace(Menu, " µTorrent", " ")
   Menu = Replace(Menu, " Ctrl+Shift+/(?)", "")
   Menu = Replace(Menu, "\tCtrl+Alt+W", "")
   For s = 1 To 4
     Menu = RegExpReplace(Menu, "(.*) ([a-z|A-Z|0-9]|-|_|)+(" & vb & ")", "$1$3", 1, 1, 1)
   Next
   Menu = RegExpReplace(Menu, "(.*)(\\t.*)(" & vb & ")", "$1$3", 1, 1, 1)
   Menu = RegExpReplace(Menu, "(.*)(=)([a-z|A-Z|0-9|.| |])+(" & vb & ")", "$1$2$4", 1, 1, 1)

   Menu = Replace(Menu, " с" & vb, vb)
   Menu = Replace(Menu, " в" & vb, vb)
   Menu = Replace(Menu, " по" & vb, vb)
   Menu = Replace(Menu, " о" & vb, vb)
   Menu = Replace(Menu, " -" & vb, vb)
   Menu = Replace(Menu, " через" & vb, vb)
   Menu = Replace(Menu, " в  ДРУГУЮ панель…" & vb, vb)
   Menu = Replace(Menu, " под курсором", "")
   Menu = Replace(Menu, "/повреждённых", "")
   Menu = Replace(Menu, " из выделенной на экране области", "")
   Menu = Replace(Menu, " (запусти и нажми 2 раза Alt)", "")
   Menu = RegExpReplace(Menu, "(.*)(  )+(.*)(" & vb & ")", "$1$4", 1, 1, 1)
   Menu = RegExpReplace(Menu, "( )+(" & vb & ")", "$2", 0, 1, 1)

   If LCase(Menu) = "menu=" & vb Then
     Menu = nMenu
   Else
     If Menu <> "Menu=" & bpName Then Menu = Replace(Menu, "Menu=", "Menu=" & bpName & " - ")
   End If
   If Len(Menu) = 0 Then Menu = bpName
   CleanerMenu = Text1 & Menu & Text2
End Function

Sub DelProgg
   Dim PR(40)
   PR(0) = "%COMMANDER_PATH%\Utilities\TotalCom\TCMC\TCMCWindow.exe"
   PR(1) = "%COMMANDER_PATH%\Utilities\Images\LibCreate\LibCreate.exe"
   PR(2) = "%COMMANDER_PATH%\Utilities\Systems\WinHlp\hh.exe"
   PR(3) = "%COMMANDER_PATH%\Utilities\TotalCom\ReloadTC\ReloadTC.exe"
   PR(4) = "%COMMANDER_PATH%\Utilities\Scripting\AutoIt\AutoIt3.exe"
   PR(5) = "%COMMANDER_PATH%\Programs\Cleaners\Ace_Utilities\au.exe"
   PR(6) = "%COMMANDER_PATH%\Utilities\MultiMedia\Twinamp\Wac.exe"
   PR(7) = "%COMMANDER_PATH%\Utilities\Inet\WGet\DownloadWGet.vbs"
   PR(8) = "%COMMANDER_PATH%\Utilities\Inet\WGet\DownloadWGetWithBuffer.vbs"
   PR(9) = "%COMMANDER_PATH%\Utilities\TotalCom\TCFS2\TCFS2.exe"
   PR(10) = "%COMMANDER_PATH%\Utilities\Images\LlibConv\LlibConv.exe"
   PR(11) = "%COMMANDER_PATH%\Utilities\TotalCom\TCmenu\TCmenu_12\TCmenu.exe"
   PR(12) = "%COMMANDER_PATH%\Utilities\TotalCom\TCmenu\TCmenu_16\TCmenu.exe"
   PR(13) = "%COMMANDER_PATH%\Utilities\TotalCom\TCmenu\TCmenu_20\TCmenu.exe"
   PR(14) = "%COMMANDER_PATH%\Utilities\TotalCom\TCmenu\TCmenu_24\TCmenu.exe"
   PR(15) = "%COMMANDER_PATH%\Utilities\TotalCom\TcMenuPopup\TcMenuPopup.exe"
   PR(16) = "%COMMANDER_PATH%\Utilities\TotalCom\ImmortalTC\ImmortalTC.exe"
   PR(17) = "%COMMANDER_PATH%\Utilities\Systems\Hidcon\Hidcon.exe"
   PR(18) = "%COMMANDER_PATH%\Utilities\CD\OSFMount\OSFMount.com"
   PR(19) = "Path=" & vb
   PR(20) = "%COMMANDER_PATH%\Utilities\Commander\AskParam\AskParam.exe"
   PR(21) = "%COMMANDER_PATH%\Utilities\Systems\Hidcon"
   PR(22) = "%COMMANDER_PATH%\Programs\Graphics\IrfanView\i_view32.exe"
   PR(23) = "%COMMANDER_PATH%\Programs\Internet\UTorrent\Utorrent_1.8_fakeup2x_seeder.exe"
   PR(24) = "%COMMANDER_PATH%\Programs\Internet\uTorrent\Utorrent_1.8_fakeup2x_leecher.exe"
   PR(25) = "%COMMANDER_PATH%\Programs\Internet\uTorrent\Utorrent_1.8_mult100_leecher.exe"
   PR(26) = "%COMMANDER_PATH%\Programs\Internet\uTorrent\Utorrent_1.8_mult100_seeder.exe"
   PR(27) = "%COMMANDER_PATH%\Programs\Internet\uTorrent\Utorrent_1.8_mult10_leecher.exe"
   PR(28) = "%COMMANDER_PATH%\Programs\Internet\uTorrent\Utorrent_1.8_mult10_seeder.exe"
   PR(29) = "%COMMANDER_PATH%\Programs\Internet\uTorrent\Utorrent_1.8_noreport.exe"
   PR(30) = "%COMMANDER_PATH%\Programs\Internet\uTorrent\Utorrent_1.8_report.exe"
   PR(31) = "%COMMANDER_PATH%\Programs\Internet\uTorrent\Utorrent_1.8_stealth.exe"
   PR(32) = "%COMMANDER_PATH%\Programs\Text\Office_2010\"
   PR(33) = "%COMMANDER_PATH%\Programs\Internet\Opera_AC\OperaLauncher.exe"
   PR(34) = "%COMMANDER_PATH%\Utilities\TotalCom\DupSel\DupSel.exe"
   PR(35) = "%COMMANDER_PATH%\Programs\Defragmentation\DiscSpeedUp\DiskSpeedUpPortable.exe"
   PR(36) = "%COMMANDER_PATH%\Programs\Audio\Zortam_Mp3_Media_Studio\Zplayer.exe"
   PR(37) = "%COMMANDER_PATH%\Programs\Graphics\XnView\xnview.exe"
   PR(38) = "%COMMANDER_PATH%\Programs\Arhive\WinRAR\WinRAR.exe"
   PR(39) = "%COMMANDER_PATH%\Utilities\Images\XnConvert\XnConvert.exe"
   PR(40) = "%COMMANDER_PATH%\Programs\Internet\Opera_AC\opera.exe"
   Text = RegExpReplace(Text, ".*" & vb & "Cmd=CD .*" & vb & ".*" & vb & ".*" & vb & ".*" & vb & ".*" & vb & "Iconic=0" & vb, "", 1, 1, 1)
   Text = RegExpReplace(Text, "Param=.*"  & vb, "", 0, 1, 1)
   For k = 0 To Ubound(PR)
     Text = Replace(Text, PR(k), "")
   Next
End Sub

Function GetPath(pPath)
   GetPath = CreateObject("WScript.Shell").ExpandEnvironmentStrings(pPath)
End Function


1. Поместить скрипт в папку ...\TC Image\Scripts\CreateBar\BarPrograms.vbs
2. Запустить
3. Скопировать и вставить кнопку на панель инструментов

Code
TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Bar\000_Programm.bar

%COMMANDER_PATH%\wcmicons.dll,68
Все программы в алфавитном порядке

1
-1


Читайте: Справочные материалы по работе c TC + Онлайн справка TC
Награды: 16 Сборщик Total Commander Image! За 100 Сообщений!За 200 Сообщений!!!За 300 Сообщений!!!За 400 Сообщений!!!
Пользователь из города: Сочи, Хоста
simupДата: Среда, 08.02.2012, 06:15 | Сообщение # 165
Генерал-майор
Зареген: 06.01.2011
Всего сообщений: 180
Quote (Andrey_A)
Создание панели инструментов в TC Image, содержащей ссылки на встроенные программы по алфавиту

ИзЮмительно!!! Только прошу обратить внимание: я сначала вставил кнопку на пользовательскую панель - не работала! Потом скопировал на основную -ок!


КОМП МОЖЕТ ЗАРАБАТЫВАТЬ!
СМОТРИТЕ -- -- И --
Награды: 7 За 100 Сообщений!
Пользователь из города: г.Октябрьский
AndrewstaДата: Четверг, 09.02.2012, 19:12 | Сообщение # 166
Рядовой
Зареген: 09.02.2012
Всего сообщений: 3
Здравствуйте! Имеется следующая задача: необходимо добавить пользовательские свойства группе файлов. Это можно сделать с помощью плагина CDocProp, но т.к. самих групп много хочется это все автоматизировать. Можно как то брать информацию для пользовательских свойств (название свойства и само значение свойства) из excel и добавлять ее к файлам?

ps Если что-то нужно уточнить - говорите :)
Награды: 0
FlasherДата: Пятница, 10.02.2012, 04:51 | Сообщение # 167
Полковник
Зареген: 09.12.2011
Всего сообщений: 89
Quote (Andrewsta)
Это можно сделать с помощью плагина CDocProp, но т.к. самих групп много хочется это все автоматизировать.
Если плагин действительно позволяет это делать, то он так и будет действовать в отношении всех выделенных файлов. Работает он с составными офисными документами типа doc, xls, ppt и т.п. Их данные менять требуется?
Quote (Andrewsta)
Можно как то брать информацию для пользовательских свойств (название свойства и само значение свойства) из excel и добавлять ее к файлам?
Если названный вариант не устроит, напишу скрипт с использованием dsofile.dll.


Сообщение отредактировал Flasher - Пятница, 10.02.2012, 09:13
Награды: 3
AndrewstaДата: Пятница, 10.02.2012, 12:48 | Сообщение # 168
Рядовой
Зареген: 09.02.2012
Всего сообщений: 3
Почитал про файл dsofile.dll, вопрос с присвоением набора пользовательских свойств группе файлов отошел на второй план.Задача теперь стоит таким образом:
Исходные данные
Есть список файлов типа doc, xls, ppt и т.п.в текущем каталоге, имеющий стандартный набор атрибутов (автор, тема, категория, ключевые слова, комментарий)
Задача
Найти способ максимально быстро и просто редактировать атрибуты файлов в текущем каталоге, присваивая им уникальные значения
Текущая ситуация
На данный момент редактировать можно только заходя в свойства каждого файла на вкладку сводка.Команда "изменить атрибуты" в total commander позволяет присваивать одинаковое значение атрибута всему списку файлов и не дает возможности редакитровать атрибуты списка файлов отдельно.
Вопросы
1.Возможно ли написать скрипт с использованием dsofile.dll, который бы позволил редактировать атрибуты файлов прямо из интерфейса total commander(при предварительной настройке отображений соответсвующих колонок с атрибутами файлов)?Возможность как мы поняли из различных форумов на грани фанастики, поэтому если нет, то быть может, подскажите по второму вопросу -
2.Возможно ли написать скрипт с использованием dsofile.dll, который присваивал бы значения атрибутов файлам, согласно таблице в файле excel, где в первом столбце перечислялись бы название файлов в текущем каталоге, а в последующих столбцах указывались бы соответсвующие значения атрибутов? У нас есть макрос excel, который позволяет создавать список файлов в текущем каталоге - мы бы вбивали в таблице excel нужные значения атрибутов файлов закрывали бы excel, запускали бы скрипт и он автоматически присваивал значения атрибутов файлам в текущем каталоге - и было бы нам счастье)Но увы и ах, мы можем только предполагать что такое возможно.
Заранее спасибо за ответ!


Сообщение отредактировал Andrewsta - Пятница, 10.02.2012, 13:13
Награды: 0
FlasherДата: Пятница, 10.02.2012, 17:58 | Сообщение # 169
Полковник
Зареген: 09.12.2011
Всего сообщений: 89
Quote (Andrewsta)
и не дает возможности редакитровать атрибуты списка файлов отдельно
Отдельно - это как? Как вообще можно редактировать атрибуты списка, если у каждого файла свои атрибуты? Присваивать - да, но не редактироать, в полном смысле этого слова.
Quote (Andrewsta)
прямо из интерфейса total commander(при предварительной настройке отображений соответсвующих колонок с атрибутами файлов)?
Для чего эта предварительная настройка? Что она меняет?
2. Можно брать данные из таблицы и присваивать их в соответствии с текущим списком в порядке сортировки. Цикл для каждого имени я бы не стал использовать.
Награды: 3
AndrewstaДата: Пятница, 10.02.2012, 20:26 | Сообщение # 170
Рядовой
Зареген: 09.02.2012
Всего сообщений: 3
Quote (Flasher)
Отдельно - это как? Как вообще можно редактировать атрибуты списка, если у каждого файла свои атрибуты? Присваивать - да, но не редактироать, в полном смысле этого слова.

Вы правы - имел в виду именно присваивать.Стараюсь формулировать четко, но так как особо не подкован в этой теме, сразу прошу прощения за такие обшибки
Quote (Flasher)
Для чего эта предварительная настройка? Что она меняет?

Ничего,это просто мечты о редактировании значений атрибутов сразу из колонок по щелчку мышки, как название файла

Quote (Flasher)
2. Можно брать данные из таблицы и присваивать их в соответствии с текущим списком в порядке сортировки.


Вот это как раз то что доктор прописал!Не подскажите как это сделать?


Сообщение отредактировал Andrewsta - Пятница, 10.02.2012, 20:26
Награды: 0
FlasherДата: Пятница, 10.02.2012, 20:51 | Сообщение # 171
Полковник
Зареген: 09.12.2011
Всего сообщений: 89
Quote (Andrewsta)
Вы правы - имел в виду именно присваивать.
Я не понимаю тогда мысли о том, почему не устраивает присвоение через диалог атрибутов. В чём разница?
Quote (Andrewsta)
Ничего,это просто мечты о редактировании значений атрибутов сразу из колонок по щелчку мышки, как название файла
А, ну это к скриптам никакого отношения не имеет, лишь к функционалу ТС.
Quote (Andrewsta)
Вот это как раз то что доктор прописал!Не подскажите как это сделать?
Подсказывать нет времени. Ухожу сейчас. Сам скрипт сделать могу, но чуть позже.
Награды: 3
shaftДата: Понедельник, 13.02.2012, 18:44 | Сообщение # 172
Майор
Зареген: 20.04.2011
Всего сообщений: 25
Есть ли способ проконвертировать файлы files.bbs в descript.ion (ANSI) ?
Награды: 1
JKTДата: Четверг, 16.02.2012, 01:26 | Сообщение # 173
Лейтенант
Зареген: 16.02.2012
Всего сообщений: 14
Andrewsta,
Quote
Есть список файлов типа doc, xls, ppt и т.п.в текущем каталоге, имеющий стандартный набор атрибутов (автор, тема, категория, ключевые слова, комментарий)

Сейчас, (мне сие ненадобно, чисто ради спортивного интереса) пошерстил инет в поисках проги группового редактирования атрибутов файлов. И к удивлению ничего подобного не обнаружил. Точнее есть миллион разных типа "мастер Атрибут", которые именно и занимаются тем, что группово изменяют атрибуты, НО! Только всего типа: "Вы можете изменить все известные атрибуты файлов, такие как: Read-only, Archive, Hidden, System, Indexed, Compressed, Encrypted, Temporary, Sparse file, Offline.".
И ничего про изменение комментарии, автор, тема, категория... ну и т.д, там в сводке еще куча атрибутов.
Я не думаю, что разрабы сих прог знают только про первые 10 атрибутов, а про остальные забыли, видать остальные, типа "автор", "коменты" и т.п как-то связаны с авторскими правами, а посему палево.
Может я плохо искал, но перерыл с 10-к подобных прог и ни одна не выходила за рамки редактирования первой десятки

А вообще-то это как смена тэгов в аудифайлах, загнал группу, выбрал столбцы и меняй.. принцип тот-же. Типа смена тэгов (атрибутов) в doc файлах


Сообщение отредактировал JKT - Четверг, 16.02.2012, 01:45
Награды: 0
Пользователь из города: Харьков
FlasherДата: Четверг, 16.02.2012, 02:25 | Сообщение # 174
Полковник
Зареген: 09.12.2011
Всего сообщений: 89
Quote (JKT)
Может я плохо искал
Судя по всему не очень хорошо. Шаровара, давно нашёл.
Меня пока сама тематика не очень интересует, т.к. в большей степени нужно читать/редактировать значения библиотек/exe-шников, а не офисных метаданных. Если соберусь, то создам скрипт-редактор. Там буду думать над парсингом скопированных колонок и редактированием значений в ячейках.
Автор задачи сам пока толком не пояснил, чем его не устраивает присваивание через ТС, так что ждём...


Сообщение отредактировал Flasher - Четверг, 16.02.2012, 02:36
Награды: 3
JKTДата: Четверг, 16.02.2012, 02:49 | Сообщение # 175
Лейтенант
Зареген: 16.02.2012
Всего сообщений: 14
Flasher,
Ага. Привет и тут!
Глянул. Действительно по скриншотам меняет. А как там насчет групповухи?
И я в инглише не особо силен. какие поля оно менять может? И самое главное можно-ли менять массово, а не по одному?
Награды: 0
Пользователь из города: Харьков
FlasherДата: Четверг, 16.02.2012, 03:06 | Сообщение # 176
Полковник
Зареген: 09.12.2011
Всего сообщений: 89
JKT, привет. Что-то ты со своей темой убёг (второй раз уже :D ).

Quote (JKT)
А как там насчет групповухи?
Выделено жирным: command line in a batch
также обрати внимание на колонку Select fies to modify (4-й скриншот).


Сообщение отредактировал Flasher - Четверг, 16.02.2012, 03:09
Награды: 3
JKTДата: Четверг, 16.02.2012, 03:27 | Сообщение # 177
Лейтенант
Зареген: 16.02.2012
Всего сообщений: 14
оффтоп, модеры, если что удалите , но это и по делу, если получится, сия штука будет востребована
Flasher,
Та да. Стратил я нехило в теме. Сначала одно. потом другое.... А мне чесно, в третий раз к тебе было стыдно обращаться. Но тема не умерла. Создать приложение, что-бы из любого приложения выделив текст можно-бы нажав комбинацию клавиш запускать поиск в инете. Я тогда подготовил и записал, а сейчас уж и непомню в какой текстовик. Но если есть интерес, то я хоть щас , в течении получаса все воосстановлю по новому.
Как? Составлять по новому? Уж извини, так получилось

Вот, для начала поисковый запрос гугл http://www.google.com/search?q=#
В любом пложении я выделяю слова, хоть в редакторе, хоть в ТС имя файла, потом жму скруллЛоок и вуаля запускается браузер и по теме
http://www.google.com.ua/search?....ard.com
это руборд-форум
http://forum.ru-board.com/forum.c....&word;=#
руборд - варез, но там нужна авторизация (без этого в варез никак, сам понимаешь, если есть авторинг - будет работать

http://rutracker.org/forum/tracker.php?max=1&nm;=#
рутрекер
Ну еще много поисковых есть
Если хоть с этими получится, то тогда........... Цены те Флэшер не будет :)


Сообщение отредактировал JKT - Четверг, 16.02.2012, 03:41
Награды: 0
Пользователь из города: Харьков
FlasherДата: Четверг, 16.02.2012, 03:57 | Сообщение # 178
Полковник
Зареген: 09.12.2011
Всего сообщений: 89
JKT, да пиши, уж чего там. Тут вообще-то как раз не оффтоп. Кому-то, может, и пригодится. К тому же список мы можем читать из отдельного файла. А стыдиться не нужно. Как появляется возможность, нужно сразу предоставлять данные (без предварительных "ласк", что называется). Как получится со временем у реализатора - это уже другой вопрос, который от вопрошающего никак не зависит. Я сам с некоторыми задачами затягиваю по разным причинам (человеческий фактор нас объединяет).

Добавлено (16.02.2012, 03:57)
---------------------------------------------
Насчёт редактора ничего сказать не могу, т.к. у каждого редактора своя объектная модель. Нужно хотя бы редактор назвать. Я могу, конечно, через буфер (тогда это упростит задачу). Для выделенных в ТС файлах сделаю, но всё же хотелось бы увидеть весь список. Нужно убедиться в работоспособности всех позиций.
Что касается Scroll Lock, то надо иметь в виду, что в ТС для него нет назначаемой функции, для этого нужен TwinKey.


Сообщение отредактировал Flasher - Четверг, 16.02.2012, 04:16
Награды: 3
JKTДата: Четверг, 16.02.2012, 04:06 | Сообщение # 179
Лейтенант
Зареген: 16.02.2012
Всего сообщений: 14
Flasher,
Это по идее НинЗя. Единственная программа, которая давно умерла всмысле продолжения, и которая была алесгуд. Я-бы и на ней, но косяки..... Бывает тупо вылетает после запроса. Она у мя пунтосвишер давно заменяет. Про Пунто я вооше молчу - стало глюкавое хня
Вот, почему я хочу сделать потипу нинзя, но узкоспециальное, а посему менее глючное. А "Сделать" у мя мозгов нету, только идеи :)
Награды: 0
Пользователь из города: Харьков
FlasherДата: Четверг, 16.02.2012, 04:13 | Сообщение # 180
Полковник
Зареген: 09.12.2011
Всего сообщений: 89
Нинзей на XP сам давно пользуюсь. Но 7-ку она не потянула (да, падает). Функционально намного лучше всяких пунт, автор постарался.
Теперь от "хочу" перейдём к моей просьбе и замечанию, что постом выше.


Сообщение отредактировал Flasher - Четверг, 16.02.2012, 04:17
Награды: 3
Форум » Total Commander » Total Commander Image » Скрипты (Тестирование скриптов)
Страница 9 из 13«1278910111213»
Поиск:

Copyright by Grey © 2017

Гость
Мини-Чат