怎么避免取半个中文呢？
1、用LENC()?SUBSTRC()?LEFTC()?是能实现，但有很多局限性，对中文数字混合的时候，难做到准确需要的长度，为什么，这里不谈了
2、还是用SUBSTR，但要判断1下？如下

a1="1你妈的B，死人1的就不知道a去死了9"
FOR I=1 TO LEN(A1)
IF ISLEADBYTE(SUBSTR(A1,I,1))=.T.
   ?SUBSTR(A1,I,2)
   I=I+1
ELSE
   ?SUBSTR(A1,I,1)
ENDIF
ENDFOR
怎么样？比如我要存的最大长度是20，我就把字段长度起为21，超过20时，查最后1位20，如果是半个字符，就取21位，否则，就取20位
为什么不用LENC()和SUBSTRC(),如果本字母混合，如
B1="12难难安南岸123啊啊啊啊"
C1=SUBSTRC(B1,1,10)
?LEN(C1)
取的是15，但不是20，所以不能用这个LENC()+SUBSTRC()

如果处理的字符串是由键盘或其他输入设备输入的应该没问题。
如果是从任意文件或内存数据截取的字符串数据就有点麻烦，可能要逐个字节去判断处理。

"1你妈的B，死人1的就不知道a去死了9" 这串可由键盘输入的，直接用LENC()和SUBSTRC()没问题.

a1="1你妈的B，死人1的就不知道a去死了9"
FOR i = 1 TO LENC(a1)
    ? SUBSTRC(a1, i, 1)
ENDFOR

看看这样，比较一下看看怎样处理
a1=""+0h31C4E3C2E8
FOR I=1 TO LEN(A1)
    IF ISLEADBYTE(SUBSTR(A1,I,1))=.T.
       ?SUBSTR(A1,I,2)
       I=I+1
    ELSE
       ?SUBSTR(A1,I,1)
    ENDIF
ENDFOR

a1=""+0h31C43EC2E8
FOR I=1 TO LEN(A1)
    IF ISLEADBYTE(SUBSTR(A1,I,1))=.T.
       ?SUBSTR(A1,I,2)
       I=I+1
    ELSE
       ?SUBSTR(A1,I,1)
    ENDIF
ENDFOR

试一下看看 用半个时很少

a1=""+0h31C4E3C2E8
?A1=1你妈
a1=""+0h31C43EC2E8
?A1=1?妈

是，这里就有所谓的“半个汉字”，原来的方法处理不了？

我想，大家还没明白真正的意图
我是想表达，比如，字段最大是254个字符？万一输入了260个，我只保留254个？如果用LENC()是可以避免半个中文，但要是中英文数字混在一起，你根本就不知道，你用LENC()取多少个才刚好是254或者253个
因为用LENC()是，1个中文是长度是1，1个英文或者数字，长度也是1，也就是说
LENC("123你好")=5,LENC("12345")=5，但2者的长度，前者是7，后者是5，也就是260个中，如果用LENC()也可能是=260，也可能是=130，此时的，你怎么知道你取多少个才是最接近254的？用LENC()来取长度的方法在这里是不可取的？但如果我判断253位，如果是半个中文，就取254，否则，就取253。

IF ISLEADBYTE(SUBSTR(A1,253,1))=.T.
   A1=SUBSTR(A1,1,254)
ELSE
   A1=SUBSTR(A1,1,253)
ENDIF

再看看这个，后半个汉字问题：
a1=""+0h314CE3C2E8
FOR I=1 TO LEN(A1)
    IF ISLEADBYTE(SUBSTR(A1,I,1))=.T.
       ?SUBSTR(A1,I,2)
       I=I+1
    ELSE
       ?SUBSTR(A1,I,1)
    ENDIF
ENDFOR

你这个a1=""+0h31C43EC2E8
本来就是=1?妈
取出来的肯定也是
1
?
妈