$Ext=.xml
$Intut=@Dialog.Ask Введіть, що треба замінити Size=300
$Intut=@ReplaceChar "*$Intut
$Output=@Dialog.Ask Введіть, на що це треба замінити Size=300
$Output=@ReplaceChar "*$Output
$InF=@Dialog.SelectFolder Вкажіть папку з файлами
@If $InF= @Break
@Text.FolderList *$Ext $InF
$C=@Text.Count
@If $C=0 @Break В папці "$InF" відсутні файли $Ext
$LastF=@ExtractFileFolder $InF
$OutF=$InF
@if "$LastF"<>"Оброблені файли" then $OutF=$InF\Оброблені файли
@if "$LastF"<>"Оброблені файли" then @CreateFolder $OutF
@if "$LastF"<>"Оброблені файли" then @CleanFolder $OutF
@Progress.Start $C Роблю... (всього $C файлів)
$I=0
$R=0
%Start
$I=$I+1
@Progress.StepBy 1
@If $I>$C then @Progress.Stop
@If $I>$C then @Run $OutF
@If $I>$C then @Break Заміна проведена у $R файлах із $C! Оброблені файли збережено у папці $OutF
$InF=@Text.Line[$I]
@Text[1].Load $InF
$Text=@Text[1].Text
$Text=@ReplaceChar "*$Text
$Text=@Calc replace("$Text","$Intut","$Output")
$Text=@DequoteText $Text
$Pos=@Calc Pos("$Output","$Text")
@if $Pos>0 then $R=$R+1
@if $Pos=0 then @Goto %Start
$Text=@ReplaceChar *"$Text
@Text[1].Text $Text
$InF=@ExtractFileName $InF
@Text[1].Save $OutF\$InF
$Progress=@Progress.Canceled
@if $Progress=1 then @Break Перервано! Оброблено $I файлів із $C.||Заміна проведена у $R файлах! Оброблені файли збережено у папці $OutF
@Goto %Start
як користуватися, дивіться
ТУТ