求指示------字符串操作

wgq2808 · 发表于 2010-9-14 21:09:00

已知字符串（setq aa "70\t柱轭片宽\t65\t60\t50\t40\t30\t20\t\t\t\t\t\t\t")

要求将字符串 aa转化为去掉制表符、汉字、以及空子字符串的实数表

请明示代码，万分感谢！！！！

xshrimp · 发表于 2010-9-14 22:47:00

(setq aa "70\t柱轭片宽\t65\t60\t50\t40\t30\t20\t\t\t\t\t\t\t")

(apply 'strcat (mapcar '(lambda(x) (if (= 'SYM (type x)) "" (itoa x))) (read (strcat "(" aa ")") )))

-->"70656050403020"

wgq2808 · 发表于 2010-9-15 06:32:00

应该是这样的结果才对啊

（70 65 60 50 40 30 20）这样子我就可以直接使用数据列表绘图了，请进一步明示，谢谢！！

xshrimp · 发表于 2010-9-15 09:07:00

更简单啊.

(setq aa "70\t柱轭片宽\t65\t60\t50\t40\t30\t20\t\t\t\t\t\t\t")

(vl-remove-if '(lambda(x) (= 'SYM (type x)))(read (strcat "(" aa ")") ))

--> (70 65 60 50 40 30 20)

wgq2808 · 发表于 2010-9-15 18:18:00

多谢！！！

wgq2808 · 发表于 2010-9-15 19:18:00

括号用的真妙啊，呵呵

还请教汉字是做字符串处理还是符号处理的

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

进一步指示