[b]Please read notes at beginning of this post! [/b]
Go there: [url]http://www.songs-db.com/forum/viewtopic.php?p=2390#2390[/url]
Theme: Black & White
This script has all the possible things you can display in a HTML export file included, as well as entry numbering and a total track count. This file misses some formatting, which results in not all table borders are displayed correctly. But the purpose of this script is to help everyone with creating theirs and as such I didn't bother to add all the formatting code that was needed.
I hope that this script helps many on their way, good luck!
[quote]
Sub ExportHTML
' initialize export
Call InitExport( ".htm", "HTML (*.htm)|*.htm|All files (*.*)|*.*", _
"LastExportHTMLDir")
if fullfile="" then
Exit Sub
end if
' Create the output file
Dim fout
Set fout = fso.CreateTextFile( fullfile, True)
' Write header line
fout.WriteLine "<html>"
fout.WriteLine "<head><title>MediaMonkey Exported Songs</title>"
' Code to format the document
fout.WriteLine "<STYLE TYPE=text/css>"
fout.WriteLine "body{font-family:'Verdana',sans-serif; background-color:#FFFFFF; font-size:9pt; color:#000000;}"
fout.WriteLine "H1{font-family:'Verdana',sans-serif; font-size:13pt; font-weight:bold; color:#AAAAAA; text-aligh:left}"
fout.WriteLine "P{font-family:'Verdana',sans-serif; font-size:9pt; color:#000000;}"
fout.WriteLine "TH{font-family:'Verdana',sans-serif; font-size:10pt; font-weight:bold; color:#000000; border-color:#000000; border-style: solid; border-left-width:0px; border-right-width:0px; border-top-width:0px; border-bottom-width:3px;}"
fout.WriteLine "TD{font-family:'Verdana',sans-serif; font-size:9pt; color:#000000; border-color:#000000; border-style: solid; border-left-width:0px; border-right-width:0px; border-top-width:0px; border-bottom-width:1px;}"
fout.Writeline "#dark{background-color:#EEEEEE}"
fout.WriteLine "</STYLE>"
fout.WriteLine "</head><body>"
fout.WriteLine "<H1>MediaMonkey Exported Songs</H1>"
' Headers of table
fout.WriteLine "<TABLE CELLPADDING=4 CELLSPACING=0>"
fout.WriteLine "<tr>"
fout.WriteLine " <th>i+1</th>"
fout.WriteLine " <th>itm.ArtistName</th>"
fout.WriteLine " <th ID=dark>itm.title</th>"
fout.WriteLine " <th>itm.SongLengthString</th>"
fout.WriteLine " <th ID=dark>itm.AlbumName</th>"
fout.WriteLine " <th>itm.TrackOrder</th>"
fout.WriteLine " <th ID=dark>itm.year</th>"
fout.WriteLine " <th>itm.Genre</th>"
fout.WriteLine " <th ID=dark>itm.bitrate</th>"
fout.WriteLine " <th>itm.Path</th>"
fout.WriteLine " <th ID=dark>itm.FileLength</th>"
fout.WriteLine " <th>itm.Cached</th>"
fout.WriteLine " <th ID=dark>itm.SampleRate</th>"
fout.WriteLine " <th>itm.Channels</th>"
fout.WriteLine " <th ID=dark>itm.SongID</th>"
fout.WriteLine " <th>itm.UpdateDB</th>"
fout.WriteLine " <th ID=dark>itm.MediaLabel</th>"
fout.WriteLine " <th>itm.BPM</th>"
fout.WriteLine " <th ID=dark>itm.VBR</th>"
fout.WriteLine " <th>itm.Author</th>"
fout.WriteLine " <th ID=dark>itm.PlayCounter</th>"
fout.WriteLine " <th>itm.Rating</th>"
fout.WriteLine " <th ID=dark>itm.FileModified</th>"
fout.WriteLine " <th>itm.Lyricist</th>"
fout.WriteLine " <th ID=dark>itm.MusicComposer</th>"
fout.WriteLine " <th>itm.Band</th>"
fout.WriteLine " <th ID=dark>itm.Conductor</th>"
fout.WriteLine " <th>itm.InvolvedPeople</th>"
fout.WriteLine " <th ID=dark>itm.OriginalArtist</th>"
fout.WriteLine " <th>itm.OriginalLyricist</th>"
fout.WriteLine " <th ID=dark>itm.OriginalTitle</th>"
fout.WriteLine " <th>itm.Year</th>"
fout.WriteLine " <th ID=dark>itm.ISRC</th>"
fout.WriteLine " <th>itm.Lyrics</th>"
fout.WriteLine " <th ID=dark>itm.Comment</th>"
fout.WriteLine " <th>itm.Custom1</th>"
fout.WriteLine " <th ID=dark>itm.Custom2</th>"
fout.WriteLine " <th>itm.Custom3</th>"
fout.WriteLine "</tr>"
' Use progress to notify user about the current action
Dim Progress
Set Progress = SDB.Progress
Progress.Text = "Exporting to a HTML file..."
' Iterate through the list and export all songs
Progress.MaxValue = list.count
Dim i, itm
for i=0 to list.count-1
Set itm = list.Item(i)
Dim bitrate
bitrate = itm.bitrate
if bitrate>0 then
bitrate = CStr(Round( bitrate/1000))
else
bitrate = "[b][color=red]& n b s p ;[/color][/b]"
end if
Dim year
year = itm.year
if year<=0 then
year = "[b][color=red]& n b s p ;[/color][/b]"
else
year = CStr( year)
end if
' Add space to empty fields, so table is displayed correctly (Cell borders do not show up for empty cells)
Dim artistname
artistname = itm.ArtistName
if artistname="" then
artistname = "[b][color=red]& n b s p ;[/color][/b]"
end if
Dim songtitle
songtitle = itm.title
if songtitle="" then
songtitle = "[b][color=red]& n b s p ;[/color][/b]"
end if
Dim albumname
albumname = itm.AlbumName
if albumname="" then
albumname = "[b][color=red]& n b s p ;[/color][/b]"
end if
Dim songlength
songlength = itm.SongLengthString
if songlength="" then
songlength = "[b][color=red]& n b s p ;[/color][/b]"
end if
Dim songgenre
songgenre = itm.Genre
if songgenre="" then
songgenre = "[b][color=red]& n b s p ;[/color][/b]"
end if
Dim trackorder
trackorder = itm.TrackOrder
if trackorder="" then
trackorder = "[b][color=red]& n b s p ;[/color][/b]"
elseif trackorder = "0" then
trackorder = "[b][color=red]& n b s p ;[/color][/b]"
end if
' These are added to get some decent display, all the others haven't, this script is just to demonstrate all the available options
Dim BPM
BPM = itm.BPM
if BPM ="" then
BPM = "[b][color=red]& n b s p ;[/color][/b]"
elseif BPM = "-1" then
BPM = "[b][color=red]& n b s p ;[/color][/b]"
end if
Dim Rating
Rating = itm.Rating
if Rating ="" then
Rating = "[b][color=red]& n b s p ;[/color][/b]"
elseif Rating = "-1" then
Rating = "[b][color=red]& n b s p ;[/color][/b]"
end if
Dim originalyear
Rating = itm.OriginalYear
if originalyear ="" then
originalyear = "[b][color=red]& n b s p ;[/color][/b]"
elseif originalyear = "-1" then
originalyear = "[b][color=red]& n b s p ;[/color][/b]"
end if
' Body of the table
fout.WriteLine "<tr><td ID=dark>"&i+1&"</TD><TD>"&artistname&"</td><td ID=dark>"&songtitle _
&"</td><td align=right>"&songlength&"</td><td ID=dark>"&albumname _
&"</td><td align=right>"&trackorder&"</td><td align=right ID=dark>"&Year _
&"</td><td>"&songgenre&"</td><td align=right ID=dark>"&bitrate _
&"</td><td>"&itm.Path&"</td><td align=right ID=dark>"&itm.FileLength _
&"</td><td>"&itm.Cached&"</td><td align=right ID=dark>"&itm.SampleRate _
&"</td><td>"&itm.Channels&"</td><td align=right ID=dark>"&itm.SongID _
&"</td><td>"&itm.UpdateDB&"</td><td align=right ID=dark>"&itm.MediaLabel _
&"</td><td>"&BPM&"</td><td align=right ID=dark>"&itm.VBR _
&"</td><td>"&itm.Author&"</td><td align=right ID=dark>"&itm.PlayCounter _
&"</td><td>"&rating&"</td><td align=right ID=dark>"&itm.FileModified _
&"</td><td>"&itm.Lyricist&"</td><td align=right ID=dark>"&itm.MusicComposer _
&"</td><td>"&itm.Band&"</td><td align=right ID=dark>"&itm.Conductor _
&"</td><td>"&itm.InvolvedPeople&"</td><td align=right ID=dark>"&itm.OriginalArtist _
&"</td><td>"&itm.OriginalLyricist&"</td><td align=right ID=dark>"&itm.OriginalTitle _
&"</td><td>"&originalyear&"</td><td align=right ID=dark>"&itm.ISRC _
&"</td><td>"&itm.Lyrics&"</td><td align=right ID=dark>"&itm.Comment _
&"</td><td>"&itm.Custom1&"</td><td align=right ID=dark>"&itm.Custom2 _
&"</td><td>"&itm.Custom3&"</td></tr>"
Progress.Value = i+1
if Progress.Terminate then
Exit For
end if
next
' Write some code to finish html document
fout.WriteLine "</table>"
fout.WriteLine "<P><B>Total Songs: </B>"&i&"</P>"
fout.WriteLine "</body>"
fout.WriteLine "</html>"
' Close the output file and finish
fout.Close
' Was it successfull?
Dim ok
if Progress.Terminate then
ok = False
else
ok = True
end if
' hide progress
Set Progress = Nothing
FinishExport( ok)
End Sub
[/quote]
[i]PS. Using this script is on your own risk![/i]