/mp3sort

mIRC Code

+ 0 likes

Please Register to submit score.

Average Score	5.7
Scores Submitted	3
Date Added	Dec 18, 2007
Last Updated	Dec 19, 2007
Tags	files mp3 sort

Introduction

Sorts mp3 files in a directory based on given parameters. Lists the sorted list in a new window.

Grab the Code

; -------------------------------------------
; /mp3sort - Mp3 file sorter 
; Obviously sort mp3 files from a directory

; Can sort based on params:
; - length: Sorts mp3 files based on their length
; - sample: Sorts mp3 files based on their sample rate
; - bitrate: Sorts mp3 files based on their bitrate
; - size: Sorts mp3 files based on their size

; /mp3sort <length/size/bitrate/sample>

; Or you can type /mp3sort and it will sort based on the filename

; Empties the data into a new window in which you view the list.

; Updates/Version history

; *Fixed a few bugs regarding length, bitrate, and sample 
; - Courtesy of EL

; *Added a file info option. :)

; *Recoded

; ------------------------------------------

alias mp3sort {  
  :begin
  var %d = " $+ $sdir(C:\,Select a directory) $+ ", %o, %x = 1 
  if (!$(% $+ d,2)) { 
    var %p = $input(No directory selected!,r,error)
    if (%p = $true) goto begin 
  }
  if ($window(@mp3sort)) window -c @mp3sort
  window -hls @mp3sort
  %o = $1  
  if (%o = length) .echo -q $findfile(%d,*.mp3,0,aline @mp3sort $+($sound($1-).length,$chr(9),$1-))
  if (%o = size) .echo -q $findfile(%d,*.mp3,0,aline @mp3sort $+($file($1-),$chr(9),$1-))
  if (%o = bitrate) .echo -q $findfile(%d,*.mp3,0,aline @mp3sort $+($sound($1-).bitrate,$chr(9),$1-))
  if (%o = sample) .echo -q $findfile(%d,*.mp3,0,aline @mp3sort $+($sound($1-).sample,$chr(9),$1-))
  elseif (!$(% $+ o)) .echo -q $findfile(%d,*.mp3,0,aline @mp3sort $+($1-,$chr(9),$1-))
  aline @mp3sort Sorted list for $+(%d,:) based on $iif(!$(% $+ o,2),file name,file %o)
  if ($window(@mp3sorted)) window -c @mp3sorted
  window -l @mp3sorted 
  filter -ww @mp3sort @mp3sorted
}

menu @mp3sorted { 
  $iif(!$sline(@mp3sorted,1),$style(2) View file info,View file info):{ 
    var %g = $gettok($sline(@mp3sorted,1),2-,9)
    aline @mp3sorted Filename: %g
    aline @mp3sorted Size: $bytes($file(%g)).suf
    aline @mp3sorted Length: $duration($calc($sound(%g).length /1000),3)
    aline @mp3sorted Bitrate: $sound(%g).bitrate kbps
    aline @mp3sorted Sample rate: $sound(%g).sample khz
    aline @mp3sorted -------------------  
  }
}

Comments

(8) RSS

Go to Bottom

Comments: 1,184

mIRC Snippet: /mp3sort
Posted on Dec 18, 2007 6:18 pm

Works Well Rebellious not sure what uses it may have.Course everything has a use at some point.Also maybe change it to use $nopath just to make it cleaner.EXP: while ($line(@mp3sort,%x)) {
var %mp3Fsort = $gettok($v1,2-,9)
aline @mp3sorted $nopath(%mp3Fsort))
inc %x
Good work on this 7/10.`-.-�

Comments: 1,184

mIRC Snippet: /mp3sort
Posted on Dec 18, 2007 6:35 pm

I didn't even test the other commands.The /mp3sort (nothing here) Works.But with /mp3sort <length/size/bit rate/sample> i keep getting the same error * /aline: insufficient parameters (line 27, script13) .Not sure how to fix this myself and may just be me i just rather have you aware.Sorry for the double post.`-.-�

Rebellious

Comments: 64

mIRC Snippet: /mp3sort
Posted on Dec 18, 2007 6:48 pm

.. ;p What /mp3sort <length/size/bitrate/sample> meant is that you could type either one individually. (e.g /mp3sort length or /mp3sort bitrate) And I'd prefer the fullpath when displaying the info. :)

Comments: 1,184

mIRC Snippet: /mp3sort
Posted on Dec 19, 2007 2:25 am

Rebellious sorry should have been clearer on my post there.Yes i did try them all "separately" and i receive the same error message on each * /aline: insufficient parameters (line 27, script13).And yes your code = your preference all tho maybe adding how to add the no path in ;;'s on the bottom for coders an testers who don't know how is a thought.Good work still.`-.-�

Comments: 1,184

mIRC Snippet: /mp3sort
Posted on Dec 19, 2007 3:03 am

sorry for the double but when i ''tried'' them before i posted the error i did do it correctly and i also tried it many times just to make sure i wasn't spent.

Rebellious

Comments: 64

mIRC Snippet: /mp3sort
Posted on Dec 19, 2007 9:53 pm

See updated code.

Comments: 1,184

mIRC Snippet: /mp3sort
Posted on Dec 19, 2007 10:30 pm

All worked for me this time i went over all the commands twice before i posted this and if anyone else finds flaw with this code after this update please post ty.Good work Rebellious nice update.`-.-�

Rebellious

Comments: 64

mIRC Snippet: /mp3sort
Posted on Dec 19, 2007 10:32 pm

Thanks a bunch, glad to know it's working properly.

/mp3sort

Introduction

Grab the Code

Comments

Rebellious

My Snippet Tags

Contact

Friends (1)

Sponsors


Last seen: Mar 17, 2008 Profile Friends (1) Snippets (8) Images (2) Comments Received (58) Comments Submitted (64) Forum Posts (46)