MP3 Edit Snippets Code

Useful: /mp3combin <begin|end|00:00>

Sample: /mp3combin begin => (secondmp3file+firstmp3file)
Sample: /mp3combin end => (firstmp3file+secondmp3file)
Sample: /mp3combin 00:45 => (firstmp3file(00:45)+secondmp3file+firstmp3file00:46+)

;code by l4roxyl
;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
    }
  }
}

;code by l4roxyl

;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

}

önceki yazımızda « Radyo dinleyici kayit sistemi makelemiz var.

Makale Yazarı : admin

27 Kasım, 2018

119

Yazı kategorisi : mIRC Hazır Kodlar

yorum yok

MP3 Edit Snippets Code

Etiketler

MP3 Edit Snippets Code İle Benzer Sohbet Yazıları

Mirc Seslenme Addonu

mIRC Fullname yasaklama txt

mIRC Version Yasaklama

MP3 Edit Snippets Code

MP3 Edit Snippets Code İle Benzer Sohbet Yazıları

MP3 Edit Snippets Code yazına yapılan yorumlar

Bir Yorum Yazmak İstermisiniz ?