autoIT，不依赖正则表达式，添加千位（千分位）分隔符

#Include <date.au3>
#include <String.au3>

Local $data="123456789.12元"

local $len =StringInStr($data,".")
local    $shortlen1=$len-1
local    $shortlen2=$len-1
   
   while($shortlen1>0 and $len>0) 
    if mod($shortlen2-$shortlen1,3)=0 and $shortlen2-$shortlen1>0 then
       $data=_StringInsert($data,",",$len-1-($shortlen2-$shortlen1))   
       EndIf
    $shortlen1=$shortlen1-1
   WEnd

MsgBox(1,"",$data)