＋设为首页 ＋添加到收藏夹
A字段值 返回结果
JUK8817981 JUK8.817.981
JU8048032 JU8.048.032
JUGK86001311 JUGK8.600.1311
即:遇到第一个数字和第四个数字后加点
FUNCTION add_point("i_num")
o_num=""
c_order=0
for i=1 to LEN(i_num)
o_num=o_num+SUBSTR(i_num,i,1)
if ISDIGIT(SUBSTR(i_num,i,1))=.t.
c_order=c_order+1
if c_order=1 or c_order=4
o_num=o_num+.
endif
endif
ENDFOR
return o_num
先把数字换成统一的一个字符，再找它就好办了：
LPARAMETERS x
n=AT("*",chrTRAN(x,[1234567890],[*********]))
RETURN LEFT(x,n-1)+[.]+SUBSTR(x,n,3)+[.]+SUBSTR(x,n+3)
修改一下aabiao的：
?add_point(JUK8817981) &&结果JUK8.817.981
?add_point(JU8048032) &&结果JU8.048.032
?add_point(JUGK86001311) &&结果JUGK8.600.1311
FUNCTION add_point
LPARAMETERS x
N=AT("*",CHRTRAN(x,[1234567890],[*********]))
RETURN LEFT(x,N)+[.]+SUBSTR(x,N+1,3)+[.]+SUBSTR(x,N+4)
ENDFUNC
