strlen新版本值不一样

masterlong

只考虑个人应用，改系统参数就行了

llsheng_73

新版下使用(length(vl-string->list"中等线体"))和旧版下(strlen"中等线体")会是相同结果;
如果要在旧版下得到新版strlen的结果要复杂些，相当于需要按字分解字符串，也是通过vl-string->list转成表来处理，碰到大于128的，后跳2个，不同后跳1个，计数加1，表循环处理完了，结果也就出来了。
综合起来可以象下边这样，不过不管怎么样都得面对修改已有代码的问题

1. (defun Mstrlen(str NewOrOLD / l i)
   
2.   (setq l(vl-string->list"中等线体")i 0)
   
3.   (if NewOrOLD
   
4.     (while l
   
5.     (setq l((if(>(car l)128)cddr cdr)l)
   
6.           i(1+ i)))
   
7.     (length l)))

(defun Mstrlen(str NewOrOLD / l i)<br />   (setq l(vl-string->list"中等线体")i 0)<br />   (if NewOrOLD<br />     (while l<br />     (setq l((if(>(car l)128)cddr cdr)l)<br />           i(1+ i)))<br />     (length l)))

_$ (MSTRLEN "中等线体"t)
4
_$ (MSTRLEN "中等线体"nil)
8
_$

mice6672

学习了，谢谢楼上各位