MediaMonkey forum

Code: Select all

'
' MediaMonkey Script
'
' NAME: ImportMPCasTXT 1.1
'
' AUTHOR: trixmoto (http://trixmoto.net)
' DATE : 22/12/2005 
'
' INSTALL: Copy to Scripts directory and add the following to Scripts.ini 
'          Don't forget to remove comments (') and set the order appropriately
'
' FIXES: More stable when converting numeric strings
'
' [ImportMPCasTXT]
' FileName=ImportMPCasTXT.vbs
' ProcName=ImportMPCasTXT
' Order=16
' DisplayName=Import MPC as TXT
' Description=Import MPC as TXT
' ScriptType=0 
'

Sub ImportMPCasTXT

  res = InputBox ("Enter filename of TXT to import:","Import MPC as TXT")
  Set progress = SDB.Progress
  progress.Text = "Initialising..."&res
  Set filesys = CreateObject("Scripting.FileSystemObject")
  If filesys.FileExists(res) Then
    progress.Text = "Creating logfile..."
    path = Left(res,InStrRev(res,"."))&"log"
    Set logfile = filesys.CreateTextFile(path, True)
    logfile.WriteLine("Import MPC as TXT") 
    logfile.WriteLine("By Trixmoto")
    logfile.WriteLine("")
    
    progress.Text = "Opening file: "&res
    logfile.WriteLine("Opening file: "&res)
    Set file = filesys.OpenTextFile(res, 1, false)
    If not file.AtEndOfStream Then
      line = file.ReadLine
      head = Split(line,chr(9))
      progress.Text = "Reading "&UBound(head)+1&" headers..."
      logfile.WriteLine("Number of fields = "&(UBound(head)+1))
      For i = 0 to UBound(head)
        head(i) = Mid(head(i),2,Len(head(i))-2)
      Next
    End If
    
    progress.Text = "Counting rows..."
    curr = 0
    count = 0
    total = 0
    Do while not file.AtEndOfStream
      line = file.ReadLine
      total = total + 1
    Loop
    progress.MaxValue = total
    logfile.WriteLine("Number of lines  = "&total)
    logfile.WriteLine("")
    
    Set file = filesys.OpenTextFile(res, 1, false)
    line = file.ReadLine
    Do while not file.AtEndOfStream
      line = file.ReadLine
      curr = curr + 1
      progress.Text = "Reading row "&curr&" of "&total&"..."
      progress.Value = curr
      row = Split(line,chr(9))
      If UBound(row) = UBound(head) Then
        count = count + 1
        Set track = SDB.NewSongData
        For i = 0 to UBound(row)
          field = Mid(row(i),2,Len(row(i))-2)
          If field <> "" Then
            Select Case head(i)
              Case "Filepath"
                track.Path = field
              Case "Track Artist" 
                track.ArtistName = field
              Case "Title"
                track.Title = field
              Case "Album"
                track.AlbumName = field
              Case "Length"
                track.SongLength = getmilli(field)
              Case "Size"
                track.FileLength = getbytes(field)
              Case "Format"
                'ignore
              Case "Bitrate"
                track.Bitrate = getbitrate(field)
              Case "Genre"
                track.Genre = field
              Case "Location"
                track.Custom1 = field
              Case "Notes"
                track.Comment = field
              Case "Year"
                If isNumeric(field) Then track.Year = Clng(field)
            End Select
          End If
        Next 
        track.updateDB
        Set track = Nothing
      Else
        logfile.WriteLine("Error on line "&curr&": "&line)
      End If
      If progress.Terminate Then Exit Do
    Loop
    
    If count = total Then
      If count = 0 Then
        res = SDB.MessageBox("Database not imported", mtError, Array(mbOk)) 
      Else
        res = SDB.MessageBox("Database successfully imported", mtError, Array(mbOk))
      End If
    Else
      If count < total Then
        res = SDB.MessageBox((total-count)&" rows could not be imported", mtError, Array(mbOk))
      Else
        res = SDB.MessageBox((count-total)&" rows have been imported more than once", mtError, Array(mbOk))
      End If
    End If
    
    logfile.WriteLine("")
    logfile.WriteLine("Number of lines read     = "&curr)
    logfile.WriteLine("Number of lines imported = "&count)
    logfile.WriteLine("Number of errors         = "&(curr-count))
    
    file.Close
    logfile.Close
    Set file = Nothing 
    Set logfile = Nothing
  Else
    res = SDB.MessageBox("This database could not be found", mtError, Array(mbOk))
  End If
  
  Set progress = Nothing
  Set filesys = Nothing

End Sub 

Function getmilli(str)
  mil = Clng(0)
  pos = InStr(str,":")
  str1 = Left(str,pos-1)
  If isNumeric(str1) Then
    str2 = Mid(str,pos+1,Len(str)-pos)
    If isNumeric(str2) Then
      min = Clng(str1)
      sec = Clng(str2)
      mil = sec*1000 + min*60000
    End If
  End If
  getmilli = Clng(mil)
End Function

Function getbytes(str)
  bs = Clng(0)
  str = Replace(str," KB","")
  str = Replace(str,".","")
  If isNumeric(str) Then
    bs = Clng(str)*1024
  End If
  getbytes = Clng(bs)
End Function

Function getbitrate(str)
  bps = Clng(0)
  pos = InStr(str,"k")
  str = Left(str,pos-1)
  If isNumeric(str) Then
    bps = Clng(str)*1000
  End If
  getbitrate = Clng(bps)
End Function

Sub Install()
  Dim inip : inip = SDB.ApplicationPath&"Scripts\Scripts.ini"
  Dim inif : Set inif = SDB.Tools.IniFileByPath(inip)
  If Not (inif Is Nothing) Then
    inif.StringValue("ImportMPCasTXT","Filename") = "ImportMPCasTXT.vbs"
    inif.StringValue("ImportMPCasTXT","Procname") = "ImportMPCasTXT"
    inif.StringValue("ImportMPCasTXT","Order") = "16"
    inif.StringValue("ImportMPCasTXT","DisplayName") = "ImportMPCasTXT"
    inif.StringValue("ImportMPCasTXT","Description") = "Import MPC library as text"
    inif.StringValue("ImportMPCasTXT","Language") = "VBScript"
    inif.StringValue("ImportMPCasTXT","ScriptType") = "0"
    SDB.RefreshScriptItems
  End If
End Sub

Code: Select all

See first post