[Name]=Discogs XML [BasedOn]=http://www.discogs.com [AlbumUrl]=http://www.discogs.com/release/%s?f=xml&api_key=1e48c7f4e4 [SearchBy]=%discogsid% [Encoding]=utf-8 [ParserScriptAlbum]=... # ################################################################### # A L B U M # ################################################################### #debug "on" "C:\Documents and Settings\Administrator\Application Data\Mp3tag\data\sources\debug.txt" 100 replace "|" ":vrln:" replace "&" "&" replace "'" "'" replace " " " " #fixes missing fields findinline "" ifnot "" gotochar 1 RegexpReplace "" "" endif findinline "" ifnot "" gotochar 1 RegexpReplace "" "" endif findinline "" ifnot "" gotochar 1 RegexpReplace "" "" endif # NOTES outputto "NOTES" gotochar 1 findinline "" if "" gotochar 1 findinline "" sayuntilml "" endif gotoline 1 joinuntil "" replace "|" ":vrln:" replace "&" "&" replace "'" "'" replace " " " " #fixes missing fields (again) findinline "" ifnot "" gotochar 1 RegexpReplace "" "" endif findinline "" ifnot "" gotochar 1 RegexpReplace "" "" endif findinline "" ifnot "" gotochar 1 RegexpReplace "" "" endif #fixes ARTIST RegexpReplace "([^<]*?) \(\d+\)" "\1" RegexpReplace "([^<]*?), ([Tt][Hh][Ee])" "\2 \1" RegexpReplace "" outputto "RELEASEDATE" gotochar 1 regexpreplace "(\d{4,})-(\d\d)-(\d\d)" "\2 \3, \1" regexpreplace "(\d\d) 00, " "\1, " regexpreplace "(\d\d) 0(\d), " "\1 \2, " replace "01" "January" replace "02" "February" replace "03" "March" replace "04" "April" replace "05" "May" replace "06" "June" replace "07" "July" replace "08" "August" replace "09" "September" replace "10" "October" replace "11" "November" replace "12" "December" findinline "" sayuntil "" endif endif endif # DISCNUMBER regexpreplace "(\d+?)-(\d+?)" "-\1-\2" outputto "DISCNUMBER" findinline "" if "-" gotochar 1 do findinline "-" sayuntil "-" say "|" findinline "" while "" else regexpreplace "(\d+?)" "-\1" findinline "" if "-" say "1" endif endif replace "-" "" regexpreplace "(\d+?)-(\d+?)" "\2" gotochar 1 # TRACK fix regexpreplace "0(\d+?)" "\1" regexpreplace "AA(\d*?)" "B\1" regexpreplace "AAA(\d*?)" "C\1" regexpreplace "AAAA(\d*?)" "D\1" regexpreplace "X(\d*?)" "A\1" regexpreplace "Y(\d*?)" "B\1" regexpreplace "([ABCDEFGH])1(.*?)\12" "-\11\2\12" regexpreplace "([ABCDEFGH])1" "\1" replace "-" "" # VINYLTRACK outputto "VINYLTRACK" findinline "" do findinline "" sayuntil "" say "|" findinline "" while "" gotochar 1 # ARTIST findinline "" do findinline "" if "" outputto "ARTIST" findinline "" sayuntil "" outputto "COMPILATION" set "COMPILATION" "" say "Yes" outputto "ARTIST" else outputto "ARTIST" sayoutput "BAND" endif say "|" findinline "" while "" gotochar 1 # TITLE outputto "TRACKS" findinline "" do findinline "" sayuntil "" say "|" findinline "" while "" gotochar 1 # CREDITS regexpreplace "[^<]*?" "" regexpreplace "([^<]*)([^<]*)" "\2\1" regexpreplace "" "" regexpreplace "[^<]*" "" regexpreplace ".*" "" regexpreplace "[^<]*" "" replace "" "" replace ", " "" regexpreplace "Written[ -][Bb]y" "Written By" regexpreplace "Written[ -][Bb]y" "Written By" replace "" "" replace "" "" replace "" "" replace "" "" regexpreplace "\[.*?\]" "" findinline "" if "" # DJMIX regexpreplace "[^>]*?DJ Mix[^<]*?" "DJ Mix" outputto "DJMIX" say " " do findinline "" if "DJ Mix" outputto "DJMIX" findinline "" sayuntil "" findinline "" say ", " outputto "TMP" else findinline "" if "" findinline "" endif endif while "" gotochar 1 # COMPILED outputto "COMPILED" regexpreplace "[^>]*?Compiled By[^<]*?" "Compiled By" say " " do findinline "" if "Compiled By" outputto "COMPILED" findinline "" sayuntil "" findinline "" say ", " outputto "TMP" else findinline "" if "" findinline "" endif endif while "" gotochar 1 # AUTHOR outputto "AUTHOR" regexpreplace "[^>]*?Written By[^<]*?" "Written By" say " " do findinline "" if "Written By" outputto "AUTHOR" findinline "" sayuntil "" findinline "" say ", " outputto "TMP" else findinline "" if "" findinline "" endif endif while "" gotochar 1 # PRODUCER regexpreplace "[^>]*?Producer[^<]*?" "Producer" outputto "PRODUCER" say " " do findinline "" if "Producer" outputto "PRODUCER" findinline "" sayuntil "" findinline "" say ", " outputto "TMP" else findinline "" if "" findinline "" endif endif while "" gotochar 1 # COPRODUCER regexpreplace "[^>]*?Co-producer[^<]*?" "Co-producer" outputto "COPRODUCER" say " " do findinline "" if "Co-producer" outputto "COPRODUCER" findinline "" sayuntil "" findinline "" say ", " outputto "TMP" else findinline "" if "" findinline "" endif endif while "" gotochar 1 # VOCALS regexpreplace "[^>]*?Vocals[^<]*?" "Vocals" outputto "VOCALS" say " " do findinline "" if "Vocals" outputto "VOCALS" findinline "" sayuntil "" findinline "" say ", " outputto "TMP" else findinline "" if "" findinline "" endif endif while "" gotochar 1 # COMPOSER regexpreplace "[^>]*?Composed By[^<]*?" "Composed By" outputto "COMPOSER" say " " do findinline "" if "Composed By" outputto "COMPOSER" findinline "" sayuntil "" findinline "" say ", " outputto "TMP" else findinline "" if "" findinline "" endif endif while "" gotochar 1 # FEATURING regexpreplace "[^>]*?Featuring[^<]*?" "Featuring" outputto "FEATURING" say " " do findinline "" if "Featuring" outputto "FEATURING" findinline "" sayuntil "" findinline "" say ", " outputto "TMP" else findinline "" if "" findinline "" endif endif while "" gotochar 1 # PRESENTER regexpreplace "[^>]*?Presenter[^<]*?" "Presenter" outputto "PRESENTER" say " " do findinline "" if "Presenter" outputto "PRESENTER" findinline "" sayuntil "" findinline "" say ", " outputto "TMP" else findinline "" if "" findinline "" endif endif while "" gotochar 1 # MASTERED regexpreplace "[^>]*?Mastered By[^<]*?" "Mastered By" outputto "MASTERED" say " " do findinline "" if "Mastered By" outputto "MASTERED" findinline "" sayuntil "" findinline "" say ", " outputto "TMP" else findinline "" if "" findinline "" endif endif while "" gotochar 1 # MIX regexpreplace "[^>]*?Mixed By[^<]*?" "Mixed By" outputto "MIX" say " " do findinline "" if "Mixed By" outputto "MIX" findinline "" sayuntil "" findinline "" say ", " outputto "TMP" else findinline "" if "" findinline "" endif endif while "" gotochar 1 # EDIT regexpreplace "[^>]*?Edited By[^<]*?" "Edited By" outputto "EDIT" say " " do findinline "" if "Edited By" outputto "EDIT" findinline "" sayuntil "" findinline "" say ", " outputto "TMP" else findinline "" if "" findinline "" endif endif while "" gotochar 1 # ARRANGED regexpreplace "[^>]*?Arranged By[^<]*?" "Arranged By" outputto "ARRANGED" say " " do findinline "" if "Arranged By" outputto "ARRANGED" findinline "" sayuntil "" findinline "" say ", " outputto "TMP" else findinline "" if "" findinline "" endif endif while "" gotochar 1 # LYRICS regexpreplace "[^>]*?Lyrics By[^<]*?" "Lyrics By" outputto "LYRICS" say " " do findinline "" if "Lyrics By" outputto "LYRICS" findinline "" sayuntil "" findinline "" say ", " outputto "TMP" else findinline "" if "" findinline "" endif endif while "" gotochar 1 # PREFORMER regexpreplace "[^>]*?Performer[^<]*?" "Performer" outputto "PREFORMER" say " " do findinline "" if "Performer" outputto "PREFORMER" findinline "" sayuntil "" findinline "" say ", " outputto "TMP" else findinline "" if "" findinline "" endif endif while "" gotochar 1 # CONDUCTOR regexpreplace "[^>]*?Conductor[^<]*?" "Conductor" outputto "CONDUCTOR" say " " do findinline "" if "Conductor" outputto "CONDUCTOR" findinline "" sayuntil "" findinline "" say ", " outputto "TMP" else findinline "" if "" findinline "" endif endif while "" gotochar 1 # ENGINEER regexpreplace "[^>]*?Engineer[^<]*?" "Engineer" outputto "ENGINEER" say " " do findinline "" if "Engineer" outputto "ENGINEER" findinline "" sayuntil "" findinline "" say ", " outputto "TMP" else findinline "" if "" findinline "" endif endif while "" gotochar 1 # PROGRAMMED regexpreplace "[^>]*?Programmed By[^<]*?" "Programmed By" outputto "PROGRAMMED" say " " do findinline "" if "Programmed By" outputto "PROGRAMMED" findinline "" sayuntil "" findinline "" say ", " outputto "TMP" else findinline "" if "" findinline "" endif endif while "" gotochar 1 # RECORDED regexpreplace "[^>]*?Recorded By[^<]*?" "Recorded By" outputto "RECORDED" say " " do findinline "" if "Recorded By" outputto "RECORDED" findinline "" sayuntil "" findinline "" say ", " outputto "TMP" else findinline "" if "" findinline "" endif endif while "" gotochar 1 # REMIX regexpreplace "[^>]*?Remix[^<]*?" "Remix" outputto "REMIX" say " " do findinline "" if "Remix" outputto "REMIX" findinline "" sayuntil "" findinline "" say ", " outputto "TMP" else findinline "" if "" findinline "" endif endif while "" gotochar 1 # ARTWORK outputto "ARTWORK" say " " do findinline "" if "Art" outputto "ARTWORK" findinline "" sayuntil "" findinline "" say ", " outputto "TMP" else findinline "" if "" findinline "" endif endif while "" gotochar 1 # PHOTOGRAPHY outputto "PHOTOGRAPHY" say " " do findinline "" if "Photo" outputto "PHOTOGRAPHY" findinline "" sayuntil "" findinline "" say ", " outputto "TMP" else findinline "" if "" findinline "" endif endif while "" gotochar 1 # KEYBOARDS regexpreplace "[^>]*?Keyboards[^<]*?" "Keyboards" outputto "KEYBOARDS" say " " do findinline "" if "Keyboards" outputto "KEYBOARDS" findinline "" sayuntil "" findinline "" say ", " outputto "TMP" else findinline "" if "" findinline "" endif endif while "" gotochar 1 # CHOIR regexpreplace "[^>]*?Choir[^<]*?" "Choir" outputto "CHOIR" say " " do findinline "" if "Choir" outputto "CHOIR" findinline "" sayuntil "" findinline "" say ", " outputto "TMP" else findinline "" if "" findinline "" endif endif while "" gotochar 1 # DIRECTED regexpreplace "[^>]*?Directed By[^<]*?" "Directed By" outputto "DIRECTED" say " " do findinline "" if "Directed By" outputto "DIRECTED" findinline "" sayuntil "" findinline "" say ", " outputto "TMP" else findinline "" if "" findinline "" endif endif while "" gotochar 1 # BASS regexpreplace "[^>]*?Bass[^<]*?" "Bass" outputto "BASS" say " " do findinline "" if "Bass" outputto "BASS" findinline "" sayuntil "" findinline "" say ", " outputto "TMP" else findinline "" if "" findinline "" endif endif while "" gotochar 1 # CONCERTMASTER regexpreplace "[^>]*?Concertmaster[^<]*?" "Concertmaster" outputto "CONCERTMASTER" say " " do findinline "" if "Concertmaster" outputto "CONCERTMASTER" findinline "" sayuntil "" findinline "" say ", " outputto "TMP" else findinline "" if "" findinline "" endif endif while "" gotochar 1 # DRUMS regexpreplace "[^>]*?Drums[^<]*?" "Drums" outputto "DRUMS" say " " do findinline "" if "Drums" outputto "DRUMS" findinline "" sayuntil "" findinline "" say ", " outputto "TMP" else findinline "" if "" findinline "" endif endif while "" gotochar 1 # ACCORDION regexpreplace "[^>]*?Accordion[^<]*?" "Accordion" outputto "ACCORDION" say " " do findinline "" if "Accordion" outputto "ACCORDION" findinline "" sayuntil "" findinline "" say ", " outputto "TMP" else findinline "" if "" findinline "" endif endif while "" gotochar 1 # GUITAR regexpreplace "[^>]*?Guitar[^<]*?" "Guitar" outputto "GUITAR" say " " do findinline "" if "Guitar" outputto "GUITAR" findinline "" sayuntil "" findinline "" say ", " outputto "TMP" else findinline "" if "" findinline "" endif endif while "" gotochar 1 # PERCUSSION regexpreplace "[^>]*?Percussion[^<]*?" "Percussion" outputto "PERCUSSION" say " " do findinline "" if "Percussion" outputto "PERCUSSION" findinline "" sayuntil "" findinline "" say ", " outputto "TMP" else findinline "" if "" findinline "" endif endif while "" gotochar 1 # STRINGS regexpreplace "[^>]*?Strings[^<]*?" "Strings" outputto "STRINGS" say " " do findinline "" if "Strings" outputto "STRINGS" findinline "" sayuntil "" findinline "" say ", " outputto "TMP" else findinline "" if "" findinline "" endif endif while "" gotochar 1 # TRUMPET regexpreplace "[^>]*?Trumpet[^<]*?" "Trumpet" outputto "TRUMPET" say " " do findinline "" if "Trumpet" outputto "TRUMPET" findinline "" sayuntil "" findinline "" say ", " outputto "TMP" else findinline "" if "" findinline "" endif endif while "" gotochar 1 # FLUTE regexpreplace "[^>]*?Flute[^<]*?" "Flute" outputto "FLUTE" say " " do findinline "" if "Flute" outputto "FLUTE" findinline "" sayuntil "" findinline "" say ", " outputto "TMP" else findinline "" if "" findinline "" endif endif while "" gotochar 1 # ADAPTED regexpreplace "[^>]*?Adapted By[^<]*?" "Adapted By" outputto "ADAPTED" say " " do findinline "" if "Adapted By" outputto "ADAPTED" findinline "" sayuntil "" findinline "" say ", " outputto "TMP" else findinline "" if "" findinline "" endif endif while "" gotochar 1 # ENSEMBLE regexpreplace "[^>]*?Ensemble[^<]*?" "Ensemble" outputto "ENSEMBLE" say " " do findinline "" if "Ensemble" outputto "ENSEMBLE" findinline "" sayuntil "" findinline "" say ", " outputto "TMP" else findinline "" if "" findinline "" endif endif while "" gotochar 1 # PIANO regexpreplace "[^>]*?Piano[^<]*?" "Piano" outputto "PIANO" say " " do findinline "" if "Piano" outputto "PIANO" findinline "" sayuntil "" findinline "" say ", " outputto "TMP" else findinline "" if "" findinline "" endif endif while "" gotochar 1 # MUSIC regexpreplace "[^>]*?Music By[^<]*?" "Music By" outputto "MUSIC" say " " do findinline "" if "Music By" outputto "MUSIC" findinline "" sayuntil "" findinline "" say ", " outputto "TMP" else findinline "" if "" findinline "" endif endif while "" gotochar 1 # SYNTHESIZER regexpreplace "[^>]*?Synthesizer[^<]*?" "Synthesizer" outputto "SYNTHESIZER" say " " do findinline "" if "Synthesizer" outputto "SYNTHESIZER" findinline "" sayuntil "" findinline "" say ", " outputto "TMP" else findinline "" if "" findinline "" endif endif while "" gotochar 1 # THANKS regexpreplace "[^>]*?Thanks To[^<]*?" "Thanks To" outputto "THANKS" say " " do findinline "" if "Thanks To" outputto "THANKS" findinline "" sayuntil "" findinline "" say ", " outputto "TMP" else findinline "" if "" findinline "" endif endif while "" gotochar 1 endif # CREDITS per track outputto "TMPCR" findinline "" do findinline "" if "" sayuntil "" endif say "|" movechar -1 findinline "" while "" gotochar 1