MP3 Kombinasyon Yeni
Useful: /mp3combin <begin|end|00:00>
Sample: /mp3combin begin => (second-mp3 adding(+)first-mp3)
-
Sample: /mp3combin end => (first-mp3 adding(+)second-mp3)
-
Sample: /mp3combin 00:45 => (first mp3(to 00:45 cutter)+second mp3+first mp3 00:46 continues) Kod:
Kod:
;code by l4roxyl
;date 2014 October
;-
alias mp3combin {
if $1 {
if (!$isdir($mircdircutter_and_combining)) mkdir cutter_and_combining
var %_we = echo -eac info *** MP3 Cutter&Combining info:
if !$regex($1,/^(end|begin|\d{2}:\d{2})$/g) {
%_we Invalid parameters. Example: /mp3com <begin|end|00:00>
return
}
var %f_f = $sfile(*.mp3,Select First MP3 File,Select)
var %f_f2 = $sfile(*.mp3,Select Another Adding MP3 File,Select)
if !%f_f || !%f_f2 {
%_we First/second or both file not selected.
return
}
var %_dir = $mircdircutter_and_combining
var %f1 = $shortfn(%f_f), %f2 = $shortfn(%f_f2)
var %_inl = $int($calc($sound(%f1).length / 1000))
var %new_file = $+($left($nopath(%f_f),-4),__,$nopath(%f_f2)), %_br = bread ,%_bw = bwrite
var %_add_file = $shortfn($+(%_dir,\,-[,$iif($1 isalpha,$upper($1),$replace($1,:,.)),-, $+ $&
$asctime(dd.mm.yyyy-hh.nn.ss),]-,$regsubex(%new_file,/(\s)/g,_)))
%_br %f1 0 $lof(%f1) &f_1
%_br %f2 0 $lof(%f2) &f_2
var %fsize = $lof(%f1)
var %second = $int($calc($sound(%f1).length / 1000))
var %one_second = $calc(%fsize / %second)
if $1 = end {
%_bw %_add_file 0 $lof(%f1) &f_1
%_bw %_add_file $lof(%f1) $lof(%f2) &f_2
run %_dir
}
if $1 = begin {
%_bw %_add_file 0 $lof(%f2) &f_2
%_bw %_add_file $lof(%f2) $lof(%f1) &f_1
run %_dir
}
if $regex(a_,$1,^(\d{2}:\d{2})$) {
var %_d_r = $duration($regml(a_,1))
if (%_inl < %_d_r) || %_inl = %_d_r) {
%_we File length small with entered time!
return
}
var %_int = $round($calc(%one_second * %_d_r),0)
%_br %f1 0 %_int &f_ar
%_bw %_add_file 0 $bvar(&f_ar,0) &f_ar
%_bw %_add_file $lof(%_add_file) $lof(%f2) &f_2
%_br %f1 $bvar(&f_ar,0) $lof(%f1) &f_3
%_bw %_add_file $lof(%_add_file) $bvar(&f_3,0) &f_3
run %_dir
}
}
|
