Редактировалось 2 раз(а), последний 2021-05-21 13:26:35

Очень зря, встречаются очень приличные проги. Сам долго пользовался парочкой таких, пока не захиасмил что мне надо. Могу намылить "сладкую парочку" переименовалок, вроде бы даже есть серийники.

Nic, а слабо не намылить, а захиасмить

Так уже захиасмил, но перехиасмивать для всех хиасмовцев нет времени. Очень специфичная схема взаимодействует с MSSQL Server'ом где хранятся маски и пути поиска.

Что то не работает doConsoleExec
Вот пример:
[code:1]Add(MainForm,8459266,21,56) {
Left=20
Top=105
}
Add(Edit,4165625,161,119)
{
Left=65
Top=20
Width=235
Text="C:d"
}
Add(Button,16675837,21,182)
{
Left=65
Top=45
Caption="Rename"
link(onClick,1264085:doSearch,[])
}
Add(BitBtn,7606549,21,119)
{
Left=300
Top=20
Width=20
Caption="..."
Flat=1
link(onClick,11403173:doBrowse,[])
}
Add(Browse,11403173,91,119)
{
link(onBrowse,4165625:doText,[])
}
Add(FileSearch,1264085,91,182)
{
SubDir=1
link(onSearch,502510:doPart,[])
link(Dir,4165625:Text,[(104,167)(167,167)])
}
Add(WinExec,12022713,427,231)
{
Point(doConsoleExec)
}
Add(FormatStr,3319796,301,245)
{
DataCount=4
Mask="ren %1%2%3 %2%4%3"
link(onFString,6315058:doEvent,[])
link(Str1,13827829:Value,[(307,179)(244,179)])
link(Str2,2929277:Value,[(314,233)(244,233)])
link(Str3,12911794:Value,[(321,226)(280,226)(280,287)(237,287)])
link(Str4,7386028:Value,[(328,205)(433,205)])
}
Add(FilePart,502510,161,182)
{
ExtPoint=0
link(onPath,13827829:doValue,[(215,188)(215,125)])
link(onName,2929277:doValue,[])
link(onExt,12911794:doValue,[(212,202)(212,251)])
}
Add(Memory,13827829,238,119)
{
link(onData,12422347:doNext,[])
}
Add(Counter,12422347,301,119)
{
Max=1000
link(onNext,6882046:doStrCat,[])
}
Add(Memory,2929277,238,189)
{
}
Add(StrCat,6882046,364,119)
{
Str1="00"
link(onStrCat,7386028:doValue,[])
}
Add(Memory,7386028,427,119)
{
}
Add(Memory,12911794,231,245)
{
link(onData,3319796:doString,[])
}
Add(Debug,6315058,371,245)
{
link(onEvent,12022713:doConsoleExec,[])
}
[/code:1]
Если ввести в коммандной строке все ОК

Осталось узнать, следует ли из того, что в коммандной строке все ОК то, что это консольная программа...

P.S. поданная на doExec строка "cmd /C ren %1%2%3 %2%4%3" работает ведь....

Galkov,
Дык cmd.exe в W2K, XP есть, а ren.exe нет

Дык не мне это, а -=Dima=-, надо полагать

Да, -=Dima=-, а чем тебе FileTools.doMove не нравится

Редактировалось 2 раз(а), последний 2021-05-21 13:26:35

[b]-=Dima=-[/b], а действительно, зачем ты консоль-то прикрутить пытался? Разве так не проще?[code:1]Add(Edit,4165625,238,126) {
Left=65
Top=20
Width=235
Text="C:d"
}
Add(Button,16675837,98,189)
{
Left=65
Top=45
Caption="Rename"
link(onClick,1264085:doSearch,[])
}
Add(BitBtn,7606549,98,126)
{
Left=300
Top=20
Width=20
Caption="..."
Flat=1
link(onClick,11403173:doBrowse,[])
}
Add(Browse,11403173,168,126)
{
link(onBrowse,4165625:doText,[])
}
Add(FileSearch,1264085,168,189)
{
SubDir=1
link(onSearch,12515068:doValue,[])
link(Dir,4165625:Text,[(181,174)(244,174)])
}
Add(Memory,12515068,231,189)
{
link(onData,502510:doPart,[])
}
Add(FormatStr,3319796,434,252)
{
DataCount=3
Mask="%1%2%3"
link(onFString,13769776:doMove,[(476,258)(476,348)(221,348)(221,300)])
link(Str1,13827829:Value,[(440,216)(377,216)])
link(Str2,7386028:Value,[(447,216)(566,216)])
link(Str3,12911794:Value,[(454,242)(415,242)(415,294)(370,294)])
}
Add(FilePart,502510,294,189)
{
ExtPoint=0
link(onPath,13827829:doValue,[(355,195)(355,153)])
link(onExt,12911794:doValue,[(352,209)(352,258)])
}
Add(Memory,13827829,371,147)
{
link(onData,12422347:doNext,[])
}
Add(Counter,12422347,434,147)
{
Max=1000
link(onNext,6882046:doStrCat,[])
}
Add(FileTools,13769776,231,294)
{
link(FileName,12515068:Value,[])
}
Add(StrCat,6882046,497,147)
{
Str1="00"
link(onStrCat,7386028:doValue,[])
}
Add(Memory,7386028,560,147)
{
}
Add(Memory,12911794,364,252)
{
link(onData,3319796:doString,[])
}
[/code:1]
[b]Alexanderpa[/b], ты это хотел?

PS: а вообще лично я для таких целей Total Commander использую - там инструмент группового переименования достаточно мощный, чтобы самому заморачиваться :D

Alexanderpa,
1) Не все, не имеющее отношение к помощи Вам по схемотехнике, есть флуд. ИМХО
2) Уж извините нас. Впредь будем осторожнее

Alexanderpa, вот схемка, но будте очень внимательны и осторожны!!:
[code:1]Add(MainForm,1587214,154,203) {
Left=20
Top=105
Width=342
Height=201
link(onCreate,738489:doCheck,[])
}
Add(Memory,1174238,413,189)
{
link(onData,12834885:doString,[(455,195)(455,327)(331,327)(331,314)])
}
Add(Memory,15366076,364,182)
{
}
Add(FileTools,15295667,413,308)
{
link(FileName,11866982:Value,[(419,297)(216,297)])
}
Add(FileSearch,120760,98,126)
{
link(onSearch,6347349:doEvent1,[])
link(onEndSearch,3762427:doText,[(140,139)(140,166)(88,166)(88,181)])
link(Ext,11045631:Text,[])
link(Dir,8820610:Value,[(111,118)(216,118)])
}
Add(Edit,11045631,98,77)
{
Left=10
Top=35
Width=85
Text="*.*"
}
Add(Browse,3228538,154,28)
{
link(onBrowse,8820610:doValue,[])
}
Add(ChildPanel,15903604,28,28)
{
link(onEvent1,10352675:doEvent1,[])
}
BEGIN_SDK
Add(EditMulti,149881,3,3)
{
EventCount=1
}
Add(Panel,10596757,35,105)
{
Left=10
Top=5
Width=86
Height=21
BorderWidth=0
BevelInner=0
BevelWidth=0
Alignment=2
Point(doColor)
}
Add(Button,6130314,35,21)
{
Left=2
Top=2
Width=82
Height=17
Align=5
Caption="Выбрать папку"
link(onClick,149881:onEvent1,[(185,27)(185,9)])
}
END_SDK
Add(Label,8043411,28,175)
{
Left=195
Top=135
Width=61
Height=17
Caption="шт. файлов"
}
Add(Message,11033451,259,28)
{
Caption="Начать переименование файлов в папке?:"
Type=2
link(onMessage,7414831:doCompare,[])
}
Add(If_else,7414831,308,28)
{
Op2=Integer(6)
link(onTrue,120760:doSearch,[(360,34)(360,70)(86,70)(86,132)])
}
Add(Memory,8820610,210,28)
{
link(onData,11033451:doMessage,[])
}
Add(Edit,6171539,406,147)
{
Left=260
Top=95
Width=65
Text="jpg"
}
Add(ChildPanel,10130288,28,224)
{
link(onEvent1,1587214:doClose,[])
}
BEGIN_SDK
Add(EditMulti,149881,3,3)
{
EventCount=1
}
Add(Panel,10596757,35,105)
{
Left=260
Top=135
Width=66
Height=21
BorderWidth=0
BevelInner=0
BevelWidth=0
Alignment=2
Point(doColor)
}
Add(Button,6130314,35,21)
{
Left=2
Top=2
Width=82
Height=17
Align=5
Caption="Выход"
link(onClick,149881:onEvent1,[(185,27)(185,9)])
}
END_SDK
Add(Hub,1690782,280,238)
{
link(onEvent1,11205507:doIndex,[(375,244)(375,244)])
link(onEvent2,2217446:doIndex,[(380,251)(345,251)])
}
Add(Edit,3762427,98,175)
{
Left=145
Top=135
Text="0"
ReadOnly=0
link(Str,120760:Count,[])
}
Add(FilePart,9206985,259,175)
{
link(onPath,11449907:doValue,[])
link(onName,15366076:doValue,[])
link(onExt,1174238:doValue,[])
}
Add(Edit,8322111,245,77)
{
Left=190
Top=95
Width=55
Text="0"
DataType=1
}
Add(Edit,3081043,357,140)
{
Left=5
Top=95
Width=150
Text="МоиФото"
}
Add(Memory,11449907,315,175)
{
}
Add(Memory,11866982,210,175)
{
link(onData,9206985:doPart,[])
}
Add(FormatStr,12834885,343,308)
{
DataCount=4
Mask="%1%2_%3.%4"
link(onFString,15295667:doMove,[])
link(Str1,8401819:Count,[(349,290)(251,290)])
link(Str2,11449907:Value,[(356,284)(321,284)])
link(Str3,2217446:Var,[])
link(Str4,11205507:Var,[(370,284)(412,284)])
}
Add(GetIndexData,2217446,357,245)
{
link(Data1,3081043:Text,[])
link(Data2,15366076:Value,[])
}
Add(GetIndexData,11205507,406,238)
{
link(Data1,6171539:Text,[])
link(Data2,1174238:Value,[])
}
Add(Hub,10352675,98,28)
{
OutCount=3
link(onEvent1,3228538:doBrowse,[])
link(onEvent2,8401819:doMin,[(200,41)(200,153)])
link(onEvent3,8401819:doReset,[(200,48)(200,146)])
}
Add(Hub,6347349,154,126)
{
link(onEvent1,8401819:doNext,[])
link(onEvent2,11866982:doValue,[(193,139)(193,181)])
}
Add(Counter,8401819,245,126)
{
Max=999999999
Point(Min)
Point(doMin)
link(Min,8322111:Text,[])
}
Add(Label,12695864,28,126)
{
Left=5
Top=135
Width=140
Height=17
Caption="Найдено и переименовано"
}
Add(CheckBox,738489,231,238)
{
Left=120
Top=5
Width=215
Caption="Сохранить старые имя и расширение"
link(onCheck,1690782:doEvent1,[])
}
Add(Label,4810700,28,77)
{
Left=120
Top=40
Width=188
Height=17
Caption="Маска файлов для переименований"
}
Add(Label,9642077,294,77)
{
Left=10
Top=75
Width=316
Height=17
Caption="Новые : Имя Номер Расширение"
AutoSize=1
}
Add(StyleXP,10391781,28,273)
{
}
[/code:1]
[b]Galkov[/b], почему-то не работает верхняя точка Ext (кроме *) у элемента FileSearch - посмотрите?

Леонид, чего там смотреть, все работает
Просто это не Ext, а полная маска на файл...

Т.е., пиши не txt, а *.txt

Galkov, а-а-а!
Alexanderpa, см. ответ Galkov-а!

Леонид, а-а-а!
Исправляй лэйблочку