如何返回空格之前的字符

solidbullet

我想写一个自动梁编号的程序 比如( " KL-1(3) 300X500"）变成    （"KL-2(3) ”）， ( " KL-4(3) 300X500"） 变成 ( " KL-4(3) "）

ZZXXQQ

(defun fstword (sstr / l i)
 (setq l (strlen sstr)
       i 0)
 (while (< i l)
  (if (/= (substr sstr i 1) " ")
   (setq i (1+ i))
   (setq l i)
  )
 )
 (substr sstr 0 (1+ i))
)