Code: Select all
Function FixCommonWords(Tag)
Tag = ReplaceBadTagPortion(Tag, " ", " ") 'Too many spaces
Tag = ReplaceBadTagPortion(Tag, " :", ":")
Tag = ReplaceBadTagPortion(Tag, "$Hort", "Short")
Tag = ReplaceBadTagPortion(Tag, "$Hort,", "Short,")
Tag = ReplaceBadTagPortion(Tag, "&Amp", "&")
Tag = ReplaceBadTagPortion(Tag, "(#)", "(Unreleased)")
Tag = ReplaceBadTagPortion(Tag, "(*)", "(Bonus)")
Tag = ReplaceBadTagPortion(Tag, "(+DVD)", "")
Tag = ReplaceBadTagPortion(Tag, "(Acapella)", "(A Cappella)")
Tag = ReplaceBadTagPortion(Tag, "(Acappella)", "(A Cappella)")
Tag = ReplaceBadTagPortion(Tag, "(Accapella)", "(A Cappella)")
Tag = ReplaceBadTagPortion(Tag, "(Advance)", "")
Tag = ReplaceBadTagPortion(Tag, "(European EP)", "(EP)")
Tag = ReplaceBadTagPortion(Tag, "(Promo)", "")
Tag = ReplaceBadTagPortion(Tag, "(RMX)", "(Remix)")
Tag = ReplaceBadTagPortion(Tag, "2pac", "2Pac")
Tag = ReplaceBadTagPortion(Tag, "2pac,", "2Pac,")
Tag = ReplaceBadTagPortion(Tag, "3Lw", "3LW")
Tag = ReplaceBadTagPortion(Tag, "3Lw,", "3LW,")
Tag = ReplaceBadTagPortion(Tag, ": ", ": ")
Tag = ReplaceBadTagPortion(Tag, ":", ": ")
Tag = ReplaceBadTagPortion(Tag, "Acapella", "A Cappella")
Tag = ReplaceBadTagPortion(Tag, "Acapella", "A Cappella")
Tag = ReplaceBadTagPortion(Tag, "Acapellas", "A Cappellas")
Tag = ReplaceBadTagPortion(Tag, "Acappella", "A Cappella")
Tag = ReplaceBadTagPortion(Tag, "Accapella", "A Cappella")
Tag = ReplaceBadTagPortion(Tag, "Aint", "Ain't")
Tag = ReplaceBadTagPortion(Tag, "aint", "ain't")
Tag = ReplaceBadTagPortion(Tag, "And", "&")
Tag = ReplaceBadTagPortion(Tag, "Arent", "Aren't")
Tag = ReplaceBadTagPortion(Tag, "B'day", "B'Day")
Tag = ReplaceBadTagPortion(Tag, "Ballin", "Ballin'")
Tag = ReplaceBadTagPortion(Tag, "Blazin", "Blazin'")
Tag = ReplaceBadTagPortion(Tag, "blink 182", "Blink-182")
Tag = ReplaceBadTagPortion(Tag, "blink182", "Blink-182")
Tag = ReplaceBadTagPortion(Tag, "Breakin", "Breakin'")
Tag = ReplaceBadTagPortion(Tag, "Breezin", "Breezin'")
Tag = ReplaceBadTagPortion(Tag, "Bumpin", "Bumpin'")
Tag = ReplaceBadTagPortion(Tag, "Callin", "Callin'")
Tag = ReplaceBadTagPortion(Tag, "cant", "can't")
Tag = ReplaceBadTagPortion(Tag, "Cant", "Can't")
Tag = ReplaceBadTagPortion(Tag, "Catchin", "Catchin'")
Tag = ReplaceBadTagPortion(Tag, "CD ", "Disc ")
Tag = ReplaceBadTagPortion(Tag, "Chante", "Chanté")
Tag = ReplaceBadTagPortion(Tag, "Chante,", "Chanté,")
Tag = ReplaceBadTagPortion(Tag, "Chillin", "Chillin'")
Tag = ReplaceBadTagPortion(Tag, "Clubbin", "Clubbin'")
Tag = ReplaceBadTagPortion(Tag, "Couldnt", "Couldn't")
Tag = ReplaceBadTagPortion(Tag, "Cryin", "Cryin'")
Tag = ReplaceBadTagPortion(Tag, "Dancin", "Dancin'")
Tag = ReplaceBadTagPortion(Tag, "Disk ", "Disc ")
Tag = ReplaceBadTagPortion(Tag, "dj", "DJ")
Tag = ReplaceBadTagPortion(Tag, "Doesnt", "Doesn't")
Tag = ReplaceBadTagPortion(Tag, "Doin", "Doin'")
Tag = ReplaceBadTagPortion(Tag, "dont", "don't")
Tag = ReplaceBadTagPortion(Tag, "Dont", "Don't")
Tag = ReplaceBadTagPortion(Tag, "DR", "Dr.")
Tag = ReplaceBadTagPortion(Tag, "DR.", "Dr.")
Tag = ReplaceBadTagPortion(Tag, "Drankin", "Drankin'")
Tag = ReplaceBadTagPortion(Tag, "Dreamin", "Dreamin'")
Tag = ReplaceBadTagPortion(Tag, "Drinkin", "Drinkin'")
Tag = ReplaceBadTagPortion(Tag, "Duckin", "Duckin'")
Tag = ReplaceBadTagPortion(Tag, "feat", "ft.")
Tag = ReplaceBadTagPortion(Tag, "Feat", "ft.")
Tag = ReplaceBadTagPortion(Tag, "Feat.", "ft.")
Tag = ReplaceBadTagPortion(Tag, "feat.", "ft.")
Tag = ReplaceBadTagPortion(Tag, "features", "ft.")
Tag = ReplaceBadTagPortion(Tag, "Features", "ft.")
Tag = ReplaceBadTagPortion(Tag, "Featuring", "ft.")
Tag = ReplaceBadTagPortion(Tag, "featuring", "ft.")
Tag = ReplaceBadTagPortion(Tag, "Feelin", "Feelin'")
Tag = ReplaceBadTagPortion(Tag, "Findin", "Findin'")
Tag = ReplaceBadTagPortion(Tag, "For ", "for ")
Tag = ReplaceBadTagPortion(Tag, "ft", "ft.")
Tag = ReplaceBadTagPortion(Tag, "Ft", "ft.")
Tag = ReplaceBadTagPortion(Tag, "ft. ft.", "ft.")
Tag = ReplaceBadTagPortion(Tag, "Ft.", "ft.")
Tag = ReplaceBadTagPortion(Tag, "ft.", "ft.")
Tag = ReplaceBadTagPortion(Tag, "Fuckin", "Fuckin'")
Tag = ReplaceBadTagPortion(Tag, "Gettin", "Gettin'")
Tag = ReplaceBadTagPortion(Tag, "Givin", "Givin'")
Tag = ReplaceBadTagPortion(Tag, "Goin", "Goin'")
Tag = ReplaceBadTagPortion(Tag, "Grindin", "Grindin'")
Tag = ReplaceBadTagPortion(Tag, "Grippin", "Grippin'")
Tag = ReplaceBadTagPortion(Tag, "Groovin", "Groovin'")
Tag = ReplaceBadTagPortion(Tag, "Growin", "Growin'")
Tag = ReplaceBadTagPortion(Tag, "Gunnin", "Gunnin'")
Tag = ReplaceBadTagPortion(Tag, "Hadnt", "Hadn't")
Tag = ReplaceBadTagPortion(Tag, "Hangin", "Hangin'")
Tag = ReplaceBadTagPortion(Tag, "Havent", "Haven't")
Tag = ReplaceBadTagPortion(Tag, "Havin", "Havin'")
Tag = ReplaceBadTagPortion(Tag, "Hes", "He's")
Tag = ReplaceBadTagPortion(Tag, "Hip Hop", "Hip-Hop")
Tag = ReplaceBadTagPortion(Tag, "Hip hop", "Hip-Hop")
Tag = ReplaceBadTagPortion(Tag, "HipHop", "Hip-Hop")
Tag = ReplaceBadTagPortion(Tag, "Hiphop", "Hip-Hop")
Tag = ReplaceBadTagPortion(Tag, "Hittin", "Hittin'")
Tag = ReplaceBadTagPortion(Tag, "Hustlin", "Hustlin'")
Tag = ReplaceBadTagPortion(Tag, "ill", "i'll") 'Good changes outweigh the bad ones (real "ill")
Tag = ReplaceBadTagPortion(Tag, "Illin", "Illin'")
Tag = ReplaceBadTagPortion(Tag, "Im", "I'm")
Tag = ReplaceBadTagPortion(Tag, "Isnt", "Isn't")
Tag = ReplaceBadTagPortion(Tag, "isnt", "isn't")
Tag = ReplaceBadTagPortion(Tag, "Itd", "It'd")
Tag = ReplaceBadTagPortion(Tag, "Itll", "It'll")
Tag = ReplaceBadTagPortion(Tag, "Its", "It's")
Tag = ReplaceBadTagPortion(Tag, "Its", "It's")
Tag = ReplaceBadTagPortion(Tag, "Jammin", "Jammin'")
Tag = ReplaceBadTagPortion(Tag, "JR", "Jr.")
Tag = ReplaceBadTagPortion(Tag, "JR.", "Jr.")
Tag = ReplaceBadTagPortion(Tag, "K-CI", "K-Ci")
Tag = ReplaceBadTagPortion(Tag, "K-CI,", "K-Ci,")
Tag = ReplaceBadTagPortion(Tag, "Keepin", "Keepin'")
Tag = ReplaceBadTagPortion(Tag, "Killin", "Killin'")
Tag = ReplaceBadTagPortion(Tag, "Knockin", "Knockin'")
Tag = ReplaceBadTagPortion(Tag, "Lets", "Let's")
Tag = ReplaceBadTagPortion(Tag, "Lil", "Lil'")
Tag = ReplaceBadTagPortion(Tag, "Livin", "Livin'")
Tag = ReplaceBadTagPortion(Tag, "Ll", "LL")
Tag = ReplaceBadTagPortion(Tag, "Lookin", "Lookin'")
Tag = ReplaceBadTagPortion(Tag, "Losin", "Losin'")
Tag = ReplaceBadTagPortion(Tag, "Lovin", "Lovin'")
Tag = ReplaceBadTagPortion(Tag, "Lp", "LP")
Tag = ReplaceBadTagPortion(Tag, "Lp", "LP")
Tag = ReplaceBadTagPortion(Tag, "Makin", "Makin'")
Tag = ReplaceBadTagPortion(Tag, "Mashin", "Mashin'")
Tag = ReplaceBadTagPortion(Tag, "Messin", "Messin'")
Tag = ReplaceBadTagPortion(Tag, "Missin", "Missin'")
Tag = ReplaceBadTagPortion(Tag, "Mornin", "Mornin'")
Tag = ReplaceBadTagPortion(Tag, "Movin", "Movin'")
Tag = ReplaceBadTagPortion(Tag, "Mr", "Mr.")
Tag = ReplaceBadTagPortion(Tag, "MR", "Mr.")
Tag = ReplaceBadTagPortion(Tag, "MR.", "Mr.")
Tag = ReplaceBadTagPortion(Tag, "Mrs", "Mrs.")
Tag = ReplaceBadTagPortion(Tag, "Mrs.", "Mrs.")
Tag = ReplaceBadTagPortion(Tag, "MS", "Ms.")
Tag = ReplaceBadTagPortion(Tag, "MS.", "Ms.")
Tag = ReplaceBadTagPortion(Tag, "Muthafukin", "Muthafukin'")
Tag = ReplaceBadTagPortion(Tag, "Non Album", "Singles")
Tag = ReplaceBadTagPortion(Tag, "Nothin", "Nothin'")
Tag = ReplaceBadTagPortion(Tag, "Nuthin", "Nuthin'")
Tag = ReplaceBadTagPortion(Tag, "Of ", "of ")
Tag = ReplaceBadTagPortion(Tag, "ost", "OST")
Tag = ReplaceBadTagPortion(Tag, "Ost", "OST")
Tag = ReplaceBadTagPortion(Tag, "P!", "Panic!")
Tag = ReplaceBadTagPortion(Tag, "Panic at", "Panic! At")
Tag = ReplaceBadTagPortion(Tag, "Peepin", "Peepin'")
Tag = ReplaceBadTagPortion(Tag, "Pimpin", "Pimpin'")
Tag = ReplaceBadTagPortion(Tag, "Playin", "Playin'")
Tag = ReplaceBadTagPortion(Tag, "Poppin", "Poppin'")
Tag = ReplaceBadTagPortion(Tag, "pres", "pres.")
Tag = ReplaceBadTagPortion(Tag, "Pres.", "pres.")
Tag = ReplaceBadTagPortion(Tag, "presenting", "pres.")
Tag = ReplaceBadTagPortion(Tag, "presents", "pres.")
Tag = ReplaceBadTagPortion(Tag, "Pushin", "Pushin'")
Tag = ReplaceBadTagPortion(Tag, "Rappin", "Rappin'")
Tag = ReplaceBadTagPortion(Tag, "Ridin", "Ridin'")
Tag = ReplaceBadTagPortion(Tag, "RMX", "Remix")
Tag = ReplaceBadTagPortion(Tag, "Rockin", "Rockin'")
Tag = ReplaceBadTagPortion(Tag, "Rollin", "Rollin'")
Tag = ReplaceBadTagPortion(Tag, "Runnin", "Runnin'")
Tag = ReplaceBadTagPortion(Tag, "Sailin", "Sailin'")
Tag = ReplaceBadTagPortion(Tag, "Sayin", "Sayin'")
Tag = ReplaceBadTagPortion(Tag, "Searchin", "Searchin'")
Tag = ReplaceBadTagPortion(Tag, "Sexin", "Sexin'")
Tag = ReplaceBadTagPortion(Tag, "Shes", "She's")
Tag = ReplaceBadTagPortion(Tag, "Shouldnt", "Shouldn't")
Tag = ReplaceBadTagPortion(Tag, "shouldnt", "shouldn't")
Tag = ReplaceBadTagPortion(Tag, "Shouldve", "Should've")
Tag = ReplaceBadTagPortion(Tag, "shouldve", "should've")
Tag = ReplaceBadTagPortion(Tag, "Shovlin", "Shovlin'")
Tag = ReplaceBadTagPortion(Tag, "Sippin", "Sippin'")
Tag = ReplaceBadTagPortion(Tag, "Sittin", "Sittin'")
Tag = ReplaceBadTagPortion(Tag, "Slippin", "Slippin'")
Tag = ReplaceBadTagPortion(Tag, "Smilin", "Smilin'")
Tag = ReplaceBadTagPortion(Tag, "Smokin", "Smokin'")
Tag = ReplaceBadTagPortion(Tag, "Snoop Doggy Dogg", "Snoop Dogg")
Tag = ReplaceBadTagPortion(Tag, "Snoop Doggy Dogg,", "Snoop Dogg,")
Tag = ReplaceBadTagPortion(Tag, "Somethin", "Somethin'")
Tag = ReplaceBadTagPortion(Tag, "SoundTrack", "OST")
Tag = ReplaceBadTagPortion(Tag, "SR", "Sr.")
Tag = ReplaceBadTagPortion(Tag, "SR.", "Sr.")
Tag = ReplaceBadTagPortion(Tag, "Stayin", "Stayin'")
Tag = ReplaceBadTagPortion(Tag, "Stealin", "Stealin'")
Tag = ReplaceBadTagPortion(Tag, "Steppin", "Steppin'")
Tag = ReplaceBadTagPortion(Tag, "Storytellin", "Storytellin'")
Tag = ReplaceBadTagPortion(Tag, "Strugglin", "Strugglin'")
Tag = ReplaceBadTagPortion(Tag, "Survivin", "Survivin'")
Tag = ReplaceBadTagPortion(Tag, "Swingin", "Swingin'")
Tag = ReplaceBadTagPortion(Tag, "Talkin", "Talkin'")
Tag = ReplaceBadTagPortion(Tag, "Testin", "Testin'")
Tag = ReplaceBadTagPortion(Tag, "Thatd", "That'd")
Tag = ReplaceBadTagPortion(Tag, "Thatll", "That'll")
Tag = ReplaceBadTagPortion(Tag, "Thats", "That's")
Tag = ReplaceBadTagPortion(Tag, "The ", "the ")
Tag = ReplaceBadTagPortion(Tag, "Thered", "There'd")
Tag = ReplaceBadTagPortion(Tag, "Theres", "There's")
Tag = ReplaceBadTagPortion(Tag, "Theyre", "They're")
Tag = ReplaceBadTagPortion(Tag, "Thinkin", "Thinkin'")
Tag = ReplaceBadTagPortion(Tag, "Thuggin", "Thuggin'")
Tag = ReplaceBadTagPortion(Tag, "Til", "Till")
Tag = ReplaceBadTagPortion(Tag, "Timin", "Timin'")
Tag = ReplaceBadTagPortion(Tag, "To ", "to ")
Tag = ReplaceBadTagPortion(Tag, "Tradin", "Tradin'")
Tag = ReplaceBadTagPortion(Tag, "Travelin", "Travelin'")
Tag = ReplaceBadTagPortion(Tag, "Triflin", "Triflin'")
Tag = ReplaceBadTagPortion(Tag, "Trippin", "Trippin'")
Tag = ReplaceBadTagPortion(Tag, "Trodin", "Trodin'")
Tag = ReplaceBadTagPortion(Tag, "Truckin", "Truckin'")
Tag = ReplaceBadTagPortion(Tag, "Tryin", "Tryin'")
Tag = ReplaceBadTagPortion(Tag, "Tumblin", "Tumblin'")
Tag = ReplaceBadTagPortion(Tag, "Va", "VA")
Tag = ReplaceBadTagPortion(Tag, "versus", "vs.")
Tag = ReplaceBadTagPortion(Tag, "vol ", "Vol.")
Tag = ReplaceBadTagPortion(Tag, "vol.", "Vol.")
Tag = ReplaceBadTagPortion(Tag, "vs", "vs.")
Tag = ReplaceBadTagPortion(Tag, "Vs.", "vs.")
Tag = ReplaceBadTagPortion(Tag, "w/", "feat. ")
Tag = ReplaceBadTagPortion(Tag, "Waitin", "Waitin'")
Tag = ReplaceBadTagPortion(Tag, "werent", "Weren't")
Tag = ReplaceBadTagPortion(Tag, "Weve", "We've")
Tag = ReplaceBadTagPortion(Tag, "Whered", "Where'd")
Tag = ReplaceBadTagPortion(Tag, "Wheres", "Where's")
Tag = ReplaceBadTagPortion(Tag, "Wont", "Won't")
Tag = ReplaceBadTagPortion(Tag, "Workin", "Workin'")
Tag = ReplaceBadTagPortion(Tag, "wouldnt", "wouldn't")
Tag = ReplaceBadTagPortion(Tag, "Wouldnt", "Wouldn't")
Tag = ReplaceBadTagPortion(Tag, "Wouldve", "Would've")
Tag = ReplaceBadTagPortion(Tag, "wouldve", "would've")
Tag = ReplaceBadTagPortion(Tag, "Y'All", "Y'all")
Tag = ReplaceBadTagPortion(Tag, "Youd", "You'd")
Tag = ReplaceBadTagPortion(Tag, "Youll", "You'll")
Tag = ReplaceBadTagPortion(Tag, "Youre", "You're")
Tag = ReplaceBadTagPortion(Tag, "[", "(")
Tag = ReplaceBadTagPortion(Tag, "[#]", "(Unreleased)")
Tag = ReplaceBadTagPortion(Tag, "[*]", "(Bonus)")
Tag = ReplaceBadTagPortion(Tag, "[Bonus Tracks]", "(Bonus)")
Tag = ReplaceBadTagPortion(Tag, "[Bootleg]", "(Bonus)")
Tag = ReplaceBadTagPortion(Tag, "[Digipak]", "")
Tag = ReplaceBadTagPortion(Tag, "[ECD]", "")
Tag = ReplaceBadTagPortion(Tag, "[Ep]", "(EP)")
Tag = ReplaceBadTagPortion(Tag, "[LIVE]", "(Live)")
Tag = ReplaceBadTagPortion(Tag, "[LIVE]", "(Live)")
Tag = ReplaceBadTagPortion(Tag, "[Original Soundtrack]", "(OST)")
Tag = ReplaceBadTagPortion(Tag, "[Pa]", "")
Tag = ReplaceBadTagPortion(Tag, "[Special Edition]", "(Special Edition)")
Tag = ReplaceBadTagPortion(Tag, "[UK]", "")
Tag = ReplaceBadTagPortion(Tag, "]", ")")
Tag = ReplaceBadTagPortion(Tag, "{", "(")
Tag = ReplaceBadTagPortion(Tag, "}", ")")
FixCommonWords = Tag
End Function