for those interested, here's something much faster :
on mouseUp
set cursor to watch
lock screen
put fld 1 into myST
put number of chars of myST into n
put "" into myL
set the casesensitive to true
put 1 into k
repeat while k<=1000
repeat with i=100 down to 6
put k+i-1 into b
get char k to b of myST
put myST into a
replace it with "" in a
put ((n - number of chars of a) / b) into c
if c>=2 then
put it & tab & c & cr after myL
add b-1 to k
exit repeat
end if
end repeat
add 1 to k
end repeat
put myL
end mouseUp
_______________________________________________
use-revolution mailing list
use-revolution@lists.runrev.com
Please visit this url to subscribe, unsubscribe and manage your subscription
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution
