如何提取含文字字符串的第一位？比如：“房间1”，将 房 字单独取出来

Daihy

如何提取含文字字符串的第一位？比如：“房间1”，将 房 字单独取出来

永不言弃

(substr "房间1" 1 2)

llsheng_73

1. (defun carstr(str)
   
2.   (vl-list->string(if(>(car(setq str(vl-string->list str)))128)(list(car str)(cadr str))(list(car str)))))
   

(defun carstr(str)<br />   (vl-list->string(if(>(car(setq str(vl-string->list str)))128)(list(car str)(cadr str))(list(car str)))))<br />

(CARSTR "123")
"1"
(CARSTR "房间1")
"房"

Daihy

永不言弃 发表于 2020-2-14 00:17
(substr "房间1" 1 2)

谢谢啦，后面才晓得一个汉字占两个字符，不能用(substr "房间1" 1 1)