🚀 go-pugleaf

Whoops. priceLength meant two different things. Try this version:



 
tell application "InDesign 2.0.2" 
	tell document 1 
		repeat with i from 1 to count of stories -- loop through stories 
			tell story i 
				set thePrices to (every word whose contents begins with "�") -- excludes decimal 
				set thePrices to reverse of thePrices -- we want to work from last to first 
				set thePricesIndex to index of (every word whose contents begins with "�") 
				if class of thePricesIndex is not list then 
					set thePricesIndex to {thePricesIndex} 
				end if 
				set thePricesIndex to reverse of thePricesIndex 
				repeat with j from 1 to count of thePrices 
					set decimalLength to 3 -- characters in decimal 
					set priceLength to length of (item j of thePrices) -- characters in price 
					try 
						-- get decimal 
						set theDecimal to (characters ((item j of thePricesIndex) + priceLength) thru ((item j of thePricesIndex) + priceLength + 2)) as real 
					on error -- chars weren't a number, so no decimal 
						set theDecimal to 0 
						set decimalLength to 0 
					end try 
					-- add decimal to price 
					set thePrice to ((text 2 thru -1 of (item j of thePrices)) as real) + theDecimal 
					-- convert price 
					set newPrice to (thePrice * 1.5) as real as text -- whatever factor is 		relevant		 
					-- trim to two decimal places 
					if character -2 of newPrice = "." then 
						set newPrice to newPrice & "0" 
					else 
						set pointOffset to offset of "." in newPrice 
						set newPrice to text 1 thru (pointOffset + 2) of newPrice 
					end if 
					-- insert new price 
					set contents of characters (get item j of thePricesIndex) thru ((item j of thePricesIndex) + priceLength + decimalLength - 1) to "$" & newPrice 
				end repeat 
			end tell 
		end repeat 
	end tell 
end tell 




Shane