求助各位大侠！！
比如：冒号，分号，破折号和问号

：:
，,
；;
。.
—－
？?
用strtran()函数替换

* strtran()替换示例
clear
local la[5,2]
la[1,1]="？"
la[1,2]="?"
la[2,1]="；"
la[2,2]=";"
la[3,1]="，"
la[3,2]=","
la[4,1]="—"
la[4,2]="-"
la[5,1]="："
la[5,2]=":"
lcstr="你？是；谁，我—是:"
?lcstr
for i=1 to alen(la,1)
    lcstr=strtran(lcstr,la[i,1],la[i,2])
endfor
?lcstr