🚀 go-pugleaf

I remember this: A long time ago - in days of InDesign CS - I needed a script like this. And within my first steps in scripting, I have made a construction (while I see it again, I cannot call it a code but a construction) that worked very well for my requirements.
This is the AppleScript to do the job (up to 3-digit numberes applied with character style "footnote reference):



 
tell application "InDesign CS" 
	-- the step to count high ("-" = down) 
	set myAdd to text returned of (display dialog "Counter: " default answer "1" buttons {"OK"} default button 1) 
	-- temp  footnote character style 
	tell active document 
		set myFootNoteStyle to character style "footnote reference" 
		try 
			set myFootNoteTmpStyle to character style "FootnoteTemp" 
		on error 
			set myFootNoteTmpStyle to make character style � 
				with properties {position:superscript, name:"FootnoteTemp"} 
		end try 
	end tell

	-- reset find/change preferences 
	set change preferences to nothing 
	set find preferences to nothing

	set mySearch to {} 
	set myNumbers to {"^9^9^9", "^9^9", "^9"}

	set mySelection to selection

	-- repeat for e.g. 111, 11, 1 
	repeat with myDecimal from 1 to length of myNumbers 
		-- get the numbers  
		tell selection 
			set mySearch to search for item myDecimal of myNumbers � 
				with find attributes {applied character style:myFootNoteStyle} 
		end tell



		set myQuantity to length of mySearch as string 
		repeat with myCounter from 1 to myQuantity 
			set myFNumber to contents of ((item myCounter of mySearch) + myAdd) as string 
			set contents of item myCounter of mySearch to myFNumber 
			-- 111 should not be treated twice with "^9^9" of a third time with "^9" 
			-- so the applied character style is changed  
			set applied character style of item myCounter of mySearch to myFootNoteTmpStyle 
		end repeat 
	end repeat 
	tell selection 
		search for "^9" with find attributes {applied character style:myFootNoteTmpStyle} � 
			with change attributes {applied character style:myFootNoteStyle} 
	end tell 
	-- delete temp  footnote character style 
	tell active document 
		delete myFootNoteTmpStyle 
	end tell 
end tell 




I don't understand, why I have made the construction so complicated in those days and I don't know why it works. But it seems to work yet. ;-)

Martin