"
sayuntil "- "
# Album
outputto "album"
findline "- "
findinline "- "
sayuntil "<"
# Coverurl
outputto "coverurl"
findline ""
findinline " | Label: | "
joinuntil " | "
killtag "*"
regexpreplace "^\s+Label:\s+" ""
regexpreplace "\s,\s{2,}" ", "
sayrest
# Catalog Number
outputto "catalog"
gotoline 2
findline "Catalog#: | "
joinuntil " |
"
killtag "*"
regexpreplace "^\s+Catalog\#:\s+" ""
sayrest
# Mediatype
outputto "Mediatype"
findline "Format: | "
joinuntil " |
"
regexpreplace "<[^>]+>" ""
regexpreplace "^\s{0,}Format:\s+" ""
sayrest
# Country:
outputto "country"
gotoline 2
findline "Country:"
killtag "*"
findinline ":"
movechar 2
sayrest
# year
outputto "year"
findline "Released:"
findinline " | "
# This trick makes sure, that we get the year for both "27 Feb 2004" and "2004" formats
findinline "<"
movechar -5
sayuntil "<"
# Genre (only 1)
outputto "genre"
findline "Genre:"
joinuntil " |
"
killtag "*"
regexpreplace "\s+" " "
regexpreplace "\s+$" ""
regexpreplace ",\s[ \w/]+$" ""
findinline "Genre:"
sayrest
# Styles
outputto "Style"
findline "Style:"
joinuntil ""
killtag "*"
regexpreplace "\s+" " "
findinline "Style:"
sayrest
# Credits
outputto "Credits"
findline "Credits:" 1 1
if " |
Credits:"
joinuntil " |
"
regexpreplace "
" "; "
killtag "*"
regexpreplace "\|+" " "
regexpreplace "<[^>]+>" ""
regexpreplace "\s+" " "
regexpreplace "^\s" ""
regexpreplace " ; " ";"
regexpreplace ";+" ";"
regexpreplace "\s*\s*$" ""
regexpreplace "\s*$" ""
regexpreplace ";$" ""
regexpreplace "\s+(.)$" "$1"
regexpreplace " , " ", "
findinline ":"
sayrest
endif
# Notes
outputto "Notes"
gotoline 2
findline "Notes:" 1 1
if " |
Notes:"
joinuntil " |
"
regexpreplace "
" "; "
killtag "*"
regexpreplace "\|+" " "
regexpreplace "<[^>]+>" ""
regexpreplace "\s+" " "
regexpreplace "^\s" ""
regexpreplace " ; " ";"
regexpreplace ";+" ";"
regexpreplace "\s*\s*$" ""
regexpreplace "\s*$" ""
regexpreplace ";$" ""
regexpreplace "\s+(.)$" "$1"
findinline ":"
sayrest
endif
# Artist & Tracks
gotoline 2
findline "Tracklisting:"
findline ""
do
outputto "VinylNo."
killtag "*"
regexpreplace "^\s+\d+" ""
sayrest
say "|"
moveline 5
# Artist
outputto "Artist"
joinuntil " | "
killtag "*"
regexpreplace "\s{2,}" " "
sayrest
say "|"
findline ""
# Title
outputto "Tracks"
unspace
killtag "*"
regexpreplace "\s\(\d?\d:\d\d\)" ""
sayuntil " | "
say "|"
findline "" 1 1
while " | "
# End of VA
# ###############################################################
else
gotoline 2
#WWWAUDIOFILE
outputto "wwwaudiofile"
findline ""
findinline ""
# Artist
outputto "artist"
joinuntil ""
regexpreplace "\s{2,}" " "
regexpreplace " \(\d\)" ""
findinline ""
sayuntil " - "
# Album
outputto "album"
findline "- "
findinline "- "
sayuntil "<"
# Cover url
outputto "coverurl"
findline ""
findinline " | Label: | "
joinuntil " | "
killtag "*"
regexpreplace "^\s+Label:\s+" ""
regexpreplace "\s,\s{2,}" ", "
sayrest
# Catalog Number
outputto "catalog"
gotoline 2
findline "Catalog#: | "
joinuntil " | "
killtag "*"
regexpreplace "^\s+Catalog\#:\s+" ""
sayrest
# Catalog Number
outputto "Comment catalog number"
gotoline 2
findline "Catalog#: | "
joinuntil " | "
killtag "*"
regexpreplace "^\s+Catalog\#:\s+" ""
sayrest
# Mediatype
outputto "Mediatype"
findline "Format: | "
joinuntil " | "
regexpreplace "<[^>]+>" ""
regexpreplace "^\s{0,}Format:\s+" ""
sayrest
# Country:
outputto "country"
gotoline 2
findline "Country:"
killtag "*"
findinline ":"
movechar 2
sayrest
# Year
outputto "year"
findline "Released:"
findinline " | "
# This trick makes sure, that we get the year for both "27 Feb 2004"
# and "2004" formats
findinline "<"
movechar -5
sayuntil "<"
# Genre (only 1)
outputto "genre"
findline "Genre:"
joinuntil " | "
killtag "*"
regexpreplace "\s+" " "
regexpreplace "\s+$" ""
regexpreplace ",\s\w+$" ""
findinline "Genre:"
sayrest
# Styles (all)
outputto "styles"
findline "Style:"
joinuntil ""
killtag "*"
regexpreplace "\s+" " "
findinline "Style:"
sayrest
# Credits
outputto "Credits"
findline "Credits:" 1 1
if " | Credits:"
joinuntil " | "
regexpreplace " " "; "
killtag "*"
regexpreplace "\|+" " "
regexpreplace "<[^>]+>" ""
regexpreplace "\s+" " "
regexpreplace "^\s" ""
regexpreplace " ; " ";"
regexpreplace ";+" ";"
regexpreplace "\s*\s*$" ""
regexpreplace "\s*$" ""
regexpreplace ";$" ""
regexpreplace "\s+(.)$" "$1"
regexpreplace " , " ", "
findinline ":"
sayrest
endif
# Notes
outputto "Notes"
gotoline 2
findline "Notes:" 1 1
if " | Notes:"
joinuntil " | "
regexpreplace " " "; "
killtag "*"
regexpreplace "\|+" " "
regexpreplace "<[^>]+>" ""
regexpreplace "\s+" " "
regexpreplace "^\s" ""
regexpreplace " ; " ";"
regexpreplace ";+" ";"
regexpreplace "\s*\s*$" ""
regexpreplace "\s*$" ""
regexpreplace ";$" ""
regexpreplace "\s+(.)$" "$1"
findinline ":"
sayrest
endif
# Tracks
findline "Tracklisting:"
findline ""
do
outputto "VinylNo."
killtag "*"
regexpreplace "^\s+\d+" ""
sayrest
say "|"
moveline 6
unspace
if " | | " # emtpy table row WTF!!
exit
else
killtag "*"
regexpreplace "\s\(\d?\d:\d\d\)" ""
# Titles
outputto "tracks"
sayuntil " | "
say "|"
# Mixartist
outputto "mixartist"
moveline 4 1
if " "
joinuntil " | "
regexpreplace "
" ";
"
killtag "*"
regexpreplace "\s{2,}" " "
regexpreplace "\s," ","
regexpreplace "\s;" ";"
sayrest
endif
say "|"
findline " " 1 1
endif
while " | "
endif
|