* 字符串"A1 A2   A3    A4 A5  A6"转换成"A1,A2,A3,A4,A5,A6"
lcstr="A1 A2   A3    A4 A5  A6"
lcstr=chrtran(lcstr," ",",")
do while ",,"$lcstr
    lcstr=strtran(lcstr,",,",",")
enddo
messagebox(lcstr)