SetAttr META tags: pasted tags cut off

Help & Support
10

Hi abr,
I saw your question about combining scripts with raw commands in this thread. I think what you want to do is editing one item after the other with the script command I provided. Here's a version that will do that in an endless loop until you click the additional Stop button. Hope you enjoy it:

Edit: Don't use this code. It's not working correctly. Get the working version here: Tagger.

[code]Function OnClick(ClickData)
Call Edit(ClickData)
End Function

Sub Edit(ClickData)
Set dlg = ClickData.Func.Dlg
dlg.message = "Choose to edit tags and/or comment and insert your new content:"
dlg.title = "Edit Metadata"
dlg.buttons = "OK|Clear|Stop|Cancel"
dlg.options(0).label = "Edit Tags"
dlg.options(1).label = "Edit Comment"
dlg.max = 512
dlg.options(0).state = True
dlg.options(1).state = False
dlg.default = "+"
i = dlg.show

If dlg.options(0).state = True Then
	If i = 1 Then
		If Not (dlg.input  = "" Or dlg.input = "+") Then
			ClickData.Func.Command.RunCommand("SetAttr META ""tags:" & dlg.Input & """")
		End If
	End If
	If i = 2 Then
		ClickData.Func.Command.RunCommand("SetAttr META ""tags:")
	End If
End If
If dlg.options(1).state = True Then
	If i = 1 Then
		If Not (dlg.input  = "" Or dlg.input = "+") Then
			ClickData.Func.Command.RunCommand("SetAttr META ""comment:" & dlg.Input & """")
		End If
	End If
	If i = 2 Then
		ClickData.Func.Command.RunCommand("SetAttr META ""comment:")
	End If
End If
If Not i = 3 Then
	ClickData.Func.Command.RunCommand("Select Next")
	Call EditNext(ClickData)
End If
 End Sub

Sub EditNext(ClickData)
Call Edit(ClickData)
End Sub
[/code]