【文本】文本去空格程序

ynhh

去空行
去空格
去重复
统计重复行内容的次数
加前缀
加后缀
改变号
这些文本处理
要能加上这些功能就强了

enn09

赞一个

zyceder

赶紧去试试

cabinsummer

1. (defun RemoveSpace (str)
   
2.   (apply 'strcat (mapcar 'vl-prin1-to-string (read (strcat "(" str ")"))))
   
3. )
   
4. ;;;示例
   
5. (RemoveSpace "ABC DEF GHI")
   
6. ;;;返回"ABCDEFGHI"

(defun RemoveSpace (str)<br />   (apply 'strcat (mapcar 'vl-prin1-to-string (read (strcat "(" str ")"))))<br /> )<br /> ;;;示例<br /> (RemoveSpace "ABC DEF GHI")<br /> ;;;返回"ABCDEFGHI"

1028882406@qq.c

谢谢楼主，支持下

tender138

cabinsummer 发表于 2017-11-20 10:37

删除全部空格，好东西！

730527

谢谢楼主的分享

tianbob

楼主乃高人，学习了

edsion24

请问ET是什么

20060510412

谢谢楼主分享，楼主是个热心人！