[求助]：很想知道小东工具箱中的"清除空格"txt-rspace能不能用LISP实现?

nuance

如题

eachy

最初由 nuance 发布
[B]如题 [/B]

可以

aeo

2. 
   
3. ;;;去除空格和tab
   
4. (defun rspace (string)
   
5.   (vl-list->string
   
6.     (apply 'append
   
7.            (mapcar '(lambda (x)
   
8.                       (if (member x '(8 32))
   
9.                         nil
   
10.                         (list x)
    
11.                       )
    
12.                     )
    
13.                    (vl-string->list string)
    
14.            )
    
15.     )
    
16.   )
    
17. )
    

<br /> ;;;去除空格和tab<br /> (defun rspace (string)<br />   (vl-list->string<br />     (apply 'append<br />            (mapcar '(lambda (x)<br />                       (if (member x '(8 32))<br />                         nil<br />                         (list x)<br />                       )<br />                     )<br />                    (vl-string->list string)<br />            )<br />     )<br />   )<br /> )<br />

命令: (RSPACE "34  45  dfer")
"3445dfer"

eachy

2.   (vl-list->string
   
3.     (vl-remove 32 (vl-string->list string))
   
4.   )

  (vl-list->string<br />     (vl-remove 32 (vl-string->list string))<br />   )

aeo

2. (vl-list->string
   
3.     (vl-remove 8(vl-remove 32 (vl-string->list string)))
   
4.   )

(vl-list->string<br />     (vl-remove 8(vl-remove 32 (vl-string->list string)))<br />   )

nuance

用Lisp去除空格是可以的,
小东的工具txt-rspace，除了可去除空格外，处理后的TXT可能被分为几段，
但在屏幕上的位置没变。这如何实现？

e2002

完全可以,实际处理这些也是VL的强项

nuance

楼上请具体明示

eachy

最初由 nuance 发布
[B]楼上请具体明示 [/B]

文字处理的都有Lisp明码，如果只是在2002下应用不研究也罢。

nuance

没明白EACHY的意思,"文字处理的都有明码"指哪里?

eachy

最初由 nuance 发布
[B]没明白EACHY的意思,"文字处理的都有明码"指哪里? [/B]

名字可能有出入,我这个机器没有工具箱
xdlsp.lsp obj_txt.lsp txt_tool.lsp .....