


trixmoto wrote:- Fixed BPM appearing as "0-1" when blank (should be 000)
- Fixed bitrate appearing as 6 digits by default (should be 3)
- Fixed trailing characters in folders not removed
- Added exclusion list to stop tracks appearing in this node


trixmoto wrote:- Fixed bitrate appearing as 6 digits by default (should be 3)
- Added option to exclude folders
C:\Documents and Settings\*Name*\My Documents\My Music\QuarantineC:\Documents and Settings\*Name*\My Documents\My Music\Quarantine\X-Clan - Return From Mecca
Dim exclude : exclude = "SongPath NOT LIKE 'http://%'"
Dim sqlexclude : sqlexclude = ""
...
If exclude <> "" Then
sqlexclude = " WHERE " & exclude
End If
Dim iter : Set iter = SDB.Database.OpenSQL("SELECT Count(1) AS SongCount FROM Songs" & sqlexclude)
...
If exclude <> "" Then
sqlexclude = "AND " & exclude
End If
Set iter = SDB.Database.QuerySongs(sqlexclude)
Function NotInList(key,lst)
Dim h : h = 0
NotInList = False
For h = LBound(lst) To UBound(lst)
If Right(lst(h),1) = "\" Then
If Left(key,InStrRev(key,"\")) = lst(h) Then
Exit Function
End If
Else
If Right(lst(h),1) = ":" Then
If Left(key,InStrRev(key,":")) = lst(h) Then
Exit Function
End If
Else
If key = lst(h) Then
Exit Function
End If
End If
End If
Next
NotInList = True
End Function

Users browsing this forum: No registered users and 19 guests