[求助]：有关字符串的问题

lei_na521

我现在想提取字符串"600×200"中的600和200两个数,其中×是用软键盘输入的.请问有什么方法吗?
我用下面的程序来实现,可读到×时就不好用了,而用*这个乘号就好使,这是什么原因呀?
(setq i 2)
  (setq a (substr gh 1 1))
  (while (/= (substr gh i 1) "×")
    (setq a (strcat a (substr gh i 1)))
    (setq i (1+ i))
  )
  (setq b (substr gh i))

zxq0220

"×"是全角字符，用(substr gh i 1)取到的是半角字符当然不行了。
应该用(substr gh i 2)画取字符。即：
(setq i 1)
(setq a (substr gh 0 1)
(while (/= (substr gh i 2) "×")
  (setq a (strcat a (substr gh i 1)))
  (setq i (1+ i))
)
(setq b (substr gh (1+ i)))

xyp1964

[php];(test "6002×23200")
(defun test(gh)
  (setq i 1)
  (while (/= (substr gh i 2) "×")
    (setq a (substr gh 1 i)
          i (1+ i)
    )
  )
  (setq b (substr gh (+ i 2)))
  (princ "\n前 = ")(princ a)
  (princ "\n后 = ")(princ b)
  (princ)
)[/php]

lei_na521

谢谢大家

yshf

;Command: (zffl "600×200")
;(600 200)
(defun zffl(zfc)
  (read (strcat "(" (vl-string-subst " " "×" zfc) ")"))
)