Tekil Mesaj gösterimi
  #1  
Alt 27 Ekim 2016, 17:51
Avatar Yok
L4roXyL L4roXyL isimli Üye şimdilik offline konumundadır
 DirtyCoder 

mS Puan: 1031
mS Derece: L4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisi
 
Üyelik tarihi: 10 Temmuz 2009
Yaş: 33
Mesajlar: 339
Konular: 100
Eklentiler: 3
Alınan Teşekkür: 140
Yapılan Teşekkür: 0
Standart MP3 Kombinasyon - (Kes/Birleştir/Kurcala)

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:
;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
    }
  }
}
__________________
C/co/cod/code^man.
Alıntı ile Cevapla
Sponsored Links
 
1 2 13 14 16 17 18 19 21 22 23 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 49 50 51 52 54 55 56 57 58 59 60 61 62 63 67 68 69 70 71 72 73 74 75 76