--I write out from excel a comma delimited file and then open notepad and do 
--a search and replace for commas with spaces i then import that file.
-- a bit clugey but hey it works.
					
-- sample data  34 0.54 1 0   frame 34  xscale yscale z scale
--				40 -1.15 1 0
--				46 1.35 1 0

--myDummy.pos.controller = Noise_position frequency:1 noise_strength: [spin_x.value,spin_y.value,spin_z.value]()
-- found the above line on scriptspot  by Nik Clark maxVibrator.ms

utility motion "Input Keys Noise Position"
(
	pickbutton op "Pick Object" width:140
	button fl "Pick Data " width:140 enabled:false
	
	local applyObj
	local motionPath
	
	on op picked obj do 
	(
		applyObj = obj
		fl.enabled = true
	)
	
	on fl pressed do
	(
		local ValArray = #()
		local strStore = "" as string

		-- choose a file and open it
		motionPath = (getOpenFileName "Choose Motion Data File") as string
		files = openFile motionPath

--------------- MOVED here -- add Noise_position controller ONCE(!) out of while-loop:
		applyObj.pos.controller = Noise_position frequency: 0.1 noise_strength: [1,1,1]
		
		-- do until we hit the end of the file
		while (eof files==false) do 
		(
			-- read in a line from the file
			local Search = (readline files) as string
			for x=1 to Search.count do
			(
				o = Search[x] as string
				
				-- if we hit a break... store the completed string
				if o==" " do
				(
					append ValArray strStore
					strStore = ""
					o = ""
				)
				strStore += o as string
			)
			-- add that last string
			append ValArray strStore

			-- cast our values to relevent types			
			local t = (ValArray[1] as integer) as time

    		local sx = ValArray[2] as float				
			local sy = ValArray[3] as float
			local sz = ValArray[4] as float	

------------------------ NOT add new Noise_position controller on each while-loop iteration:
			--applyObj.pos.controller = Noise_position frequency: 0.1 noise_strength: [1,1,1]()

			-- set the object position
			animate on at time t --------------------
				(
--				--applyObj.position = [x,y,z] --?..
--				applyObj.scale = [sx,sy,sz]
				applyObj.pos.controller.noise_strength = [sx,sy,sz]

				)
			
			
	
			-- print the result
			format "Frame: %, noise: [%,%,%]\n" t sx sy sz
 
			-- nullify the worker variables
			ValArray=#()
			strStore = "" as string
		)	

		
	)
)