read函数返回的是大写的，怎么办？

sccat · 发表于 2005-4-3 23:31:00

(setq x "hello 123")
(setq y (read x))

y变成了HELLO

我想读第一个词，但是不想变成大写，该怎么办，请大虾们指点一下。

Gu_xl · 发表于 2005-4-4 15:32:00

Y得到的为符号，不识字串！strcase可以控制字串的大小写！以下是得到第一个词的程序 (setq x "hello 123") (setq k 1 ) (while (not (= zf1 "")) (progn (setq zf1 (substr x k 1) k (1+ k)) ) ) (setq y (substr x 1 (1- k)))

账号		自动登录	找回密码
密码			注册