SET TALK OFF
REPLACE ALL xm WITH ALLTRIM(xm)
RECALL all
BROWSE FOR DELETED()
SCAN
FOR i=1 TO LEN(ALLTRIM(xm))
str1=SUBSTR(xm,i,1)
IF ASC(str1)<128
DELETE
ENDIF
ENDFOR
ENDSCAN
BROWSE FOR DELETED()
理论上这段程序应该是可以,但是有些生僻字好象不行,比如说"玥"这个字,半个字的ASC码就小于128,不知道是什么原因。