mIRC Scripting

mIRC Scripting (https://www.mircscripting.net/)
-   Showcase - Hazır kodlar (https://www.mircscripting.net/showcase-hazir-kodlar/)
-   -   MP3 Kombinasyon - (Kes/Birleştir/Kurcala) (https://www.mircscripting.net/showcase-hazir-kodlar/920-mp3-kombinasyon-kes-birlestir-kurcala.html)

L4roXyL 27 Ekim 2016 17:51

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
    }
  }
}



++ mIRCScripting.net hakkında kısaca:

mS; "Gayri resmi mIRC" kullanıcı ve tasarımcı topluluğudur.
2009 yılında kurulan mS; tasarımcı ve geliştiricileri bir araya getiren etkileşim ve iletişim sağlayan bir platformdur.
mS; tasarım, programlama, geliştirme, düzenleme vb. pek çok konu etrafında bir araya gelmiş "mIRC" meraklısı bir çok insan tarafından yaratılan içeriğiyle; kullanıcı dostu, özgün elit, nitelikli kişi ve konularla hizmet sunan mIRC Scripting platformudur.

Özgün içerikten onay almaksızın içeriği yaratan kullanıcılarımız tamamen yada kısmen sorumludur, aynı zamanda söz konusu içerik mS yetkilileri izni olmaksızın, kaynak gösterilse dahi(!) kopyalanamaz ve/ya paylaşılamaz.   Site/içerik hakkında görüş, öneri ve şikayetleriniz için sikayet[at]mircscripting[dot]net e-posta ve ya İletişim adresinden bizlere ulaştırabilirsiniz.



mIRC mIRC Orjinal mIRC İndir mIRC Download mIRC Tutorials mIRC Socket mIRC Commands mIRC Komutlar mIRC Yükle mIRC Dersler mIRC Hazır Kodlar mIRC Classentifier mIRC DLL mIRC Dialog mIRC IRC mIRC FTP mIRC Telnet mIRC Help
mIRC Yardım mIRC Iconlar mIRC Com Object mIRC Binary Files mIRC Picture Windows mIRC Unicode mIRC Forum mIRC Hazır Kodlar mIRC Kod mIRC Script mIRC File Handling mIRC Scripting Language mIRC Scripting Dili mIRC Scripting Info
mIRC Scripting Tutorials



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

SEO by vBSEO 3.6.1