
Sub OnStartUp
Dim MenuItem
Set MenuItem = SDB.UI.AddMenuItem(SDB.UI.Menu_Tools, 1, -3)
MenuItem.Caption = "Auto-Tag from Tag-List..."
MenuItem.IconIndex = 26
MenuItem.UseScript = Script.ScriptPath
MenuItem.OnClickFunc = "TagFromTagList"
Set MenuItem = Nothing
End Sub
mjmesiti wrote:So I changed the following line:
TagListLines = Count(TagListContent, Chr(13))
to:
TagListLines = Count(TagListContent, Chr(13)) - 1
Music_Cat wrote:In Excel it still gives the 'lines don't match' error?

MattTown wrote:As an update to my previous, I was using Excel to save a file as "Text File (MSDOS)(.txt)". It appears that when saving from Excel as "Unicode text (.txt)", Excel does not embed stray double quotes.
Users browsing this forum: No registered users and 13 guests