EditFileComments

Название	EditFileComments
Имя файла (*.txt)	EditFileComments.txt
Описание	Производит однотипное изменение описаний файлов в текущей директории
Автор	Вахмурка
Параметры	-
Вызываемые плагины	file, win, clip, vec
Иконка
Версия	4.2
Дата обновления	28.10.19


static hwnd = win.handle("c=TTOTAL_CMD")
local ActivePanel = win.sendmessage(hwnd, 0x400+50, 1000, 0)
static Counter = win.sendmessage(hwnd, 0x400+50, 1004 + ActivePanel, 0)
local Current = win.sendmessage(hwnd, 0x400+50, 1006 + ActivePanel, 0)
static Updir = win.sendmessage(hwnd, 0x400+50, 1008 + ActivePanel, 0)
static Slash = "\"
static ENCF = "ERROR: no comment file"
static CurPath = file.folder(win.gettext(win.sendmessage(hwnd, 0x400+50, 8 + ActivePanel, 0))) ++ Slash

if(!Current && Updir) do
	local DirComment = .Subs\Sub_Descript_ion(CurPath, "..", 0, "g")
	if(DirComment == ENCF)
		DirComment = ""

	flag clear 1
else
	if(Counter < 2) do
		win.postmessage(hwnd, 0x400+51, 2700, 0)
		quit
	endif

	flag set 1
	clip.save
	clip.clear
	win.sendmessage(hwnd, 0x400+51, 2018, 0)
	wait.for(clip.get)
	static List = clip.get
	clip.clear
	wait.for(!clip.get)
	clip.load
endif

local RadioButtons = 3
static Active = 3
static Quote = ?+"+
static EFCS = "'EditFileComments' script"
static R = cl.Create("Radio", 1)
local Width = 150
static Off = "e:\Storage\Graphics\Icons\Visual Basic\MISC13.ICO"
static On = "e:\Storage\Graphics\Icons\Visual Basic\MISC14.ICO"
local CS = "@ChangeState"
static T = "Text"
static EndComment = esc(?+\x04+, ?+\+) ++ esc(?+\xC2+, ?+\+)
local i

R.Insert(0)
R.SetLabel(0, ?+*control button center "Close"+)
R.AddLeft(0, "*bar close Radio")

R.Insert(0)
R.SetLabel(0, ?+*control button center "OK"+)
R.AddLeft(0, cb("@OK"))

R.Insert(0)
R.SetLabel(0, ?+*control button autocheckbox "\ is a newline char"+)
R.SetId(0, "Newline")
R.SetHeight(0, 30)

R.Insert(0)
R.SetLabel(0, "Instead")
R.AddLeft(0, cb(CS, 3))

R.Insert(0)
R.SetLabel(0, "After")
R.AddLeft(0, cb(CS, 2))

R.Insert(0)
R.SetLabel(0, "Before")
R.AddLeft(0, cb(CS, 1))
R.SetId(0, "Radio1")

R.Insert(0)
R.SetLabel(0, "*control edit left autohscroll clientedge")
R.SetId(0, T)

if(pproflag(1)) do
	R.Insert(0)
	local Text = "List " ++ Counter ++ " files..."
	R.SetLabel(0, "*control button " ++ Quote ++ Text ++ Quote)
	R.AddLeft(0, cb("@FileList"))
endif

R.SetWidth(0, Width)

static Radio1 = R.GetIdIndex("Radio1")

R.SetProperties("Format=barsize samesize flat vertical border iconsize: 16 topmost 3DFrame No3DColor")

for(i = Radio1; i <= Radio1 + RadioButtons; i++)
	R.SetIcon(i, Off)
	R.SetEnabled(i, 0)
endfor

R.SetIcon(Radio1 + RadioButtons - 1, On)

R.show

win.setfocus(R.GetCtrlHandle(R.GetIdIndex(T)))

if(DirComment)
	R.SetCtrlValue(T, DirComment)

quit
//=================================================
Function ChangeState(Num)
R.SetIcon(Active + Radio1 - 1, Off)
R.SetIcon(Num + Radio1 - 1, On)
Active = Num
R.show
quit
//=================================================
Function OK
local Result, Item, Path, Name
local Str = R.GetCtrlValue(T)
local NewLine = R.GetCtrlValue("NewLine")
local v = vec.createfromwords("b a s")

R.close

if(not Str) do
	Item = ""
		*Exec Prompt 2 Comment string is empty. Delete old comments?

		if(pproflag(2)) do
			R.show
		else
			quit
		endif
endif

if(find(Str, Slash) != -1 && NewLine)
	Str = replacechars(Str, Slash, "\n") ++ EndComment

local Par = ifelse(Result == 6, "d", v[Active - 1])

if(pproflag(1)) do
	for each line Item in List
		Result = file.isfolder(Item)
		Path = file.folder(remove(Item, -1*Result)) ++ Slash
		Name = file.nametype(remove(Item, -1*Result))
		.Subs\Sub_Descript_ion(Path, Name, Str, Par)
	endfor
else
	.Subs\Sub_Descript_ion(CurPath, "..", Str, Par)
endif

wait.for(50)
win.setfocus(hwnd)
win.sendmessage(hwnd, 0x400+51, 540, 0)
quit
//=================================================
Function FileList
local Item, Text, Mess, i, FiF
static TabChar = esc(?+\t+, ?+\+)
static CR = esc(?+\r+, ?+\+)

for(i = 1; i <= Counter; i++)
	Item = line(List, i)
	FiF = file.isfolder(Item)
	Path = file.folder(remove(Item, -1*FiF)) ++ Slash
	Name = file.nametype(remove(Item, -1*FiF))
	Text = .Subs\Sub_Descript_ion(Path, Name, 0, "g")
	Mess ++= i ++ ": " ++ TabChar ++ Item

	if(Text && Text != ENCF)
		Mess ++= CR ++ TabChar ++ "Comment: " ++ TabChar ++ Text

	Mess ++= CR
endfor

Mess = replacechars(Mess, EndComment, "")
Mess = replacechars(Mess, "\n", CR ++ repeat(TabChar, 3))
Mess = remove(Mess, -1)

messagebox("ok information", Mess, EFCS)

quit

Однажды мне понадобилось отредактировать комментарии (те, которые в файле descript.ion) сразу к нескольким файлам, и я с удивлением обнаружил, что Total Commander такой возможности не предоставляет - только текущий, и только один. А жаль. Ну что же, дело поправимо. Если мне от Total Commander нужна функция, которой его не снабдили, я пишу скрипт PowerPro.

Преимущества скрипта в том, что если на панели ничего не выделено, то скрипт просто отработает команду cm_EditComment. Поэтому имеет полный смысл присвоить вызову скрипта клавиатурную комбинацию Ctrl+Z. Если вам не потребуется редактировать несколько описаний, то и разницы вы не заметите. А вот в противном случае вспомните меня добрым словом.

Итак, если выделено несколько файлов, появится следующее диалоговое окно:

Верхняя кнопка, во-первых, напоминает о том, сколько файлов выделено (в данном случае 4). Во-вторых, при нажатии на нее будет выдана подробная информация о выделенных файлах, включая комментарии к ним, если они есть.

В поле ниже вводится произвольная строка, но можно оставить ее и пустой. Это значит, что комментарии к выделенным файлам, если они есть, будут удалены. После подтверждения, разумеется.

Далее задаем, куда комментарий будет вставлен – до существующего комментария (Before), после него (After) или вместо него (Instead). Последний выбор предполагается по умолчанию.

Флаг "\ is a newline char" позволяет задавать многострочные комментарии. Если флаг установлен, то символ обратного слэша в тексте комментария будет означать начало новой строки. Символ конца многострочного комментария будет добавлен автоматически.

Еще одна функция скрипта – редактирование комментария к текущей директории в целом. Нечто подобное было реализовано в Norton Commander'е с помощью файла dirinfo. В ТС комментарий к директории выдается в качестве всплывающей подсказки, если навести курсор на строку updir (верхняя строка ".." директории). При этом штатных средств редактирования комментария к директории ТС не предоставляет! Мало того, данная функция вообще не документирована.

Для редактирования комментария к директории нужно установить курсор на строку updir и запустить скрипт. Разумеется, кнопки со списком файлов в появившемся окне не будет.

На главную

Все о Total Commander

PowerPro

PowerPro & Total Commander

EditFileComments

Комментарии: