[求助]：如何给字符串加"00"?

JQKA

如何一次性给所有字符串均加"0"?
例如：将24*45改为240*450,30*40 改为300*400等

eachy

最初由 JQKA 发布
[B]如何一次性给所有字符串均加"0"?
例如：将24*45改为240*450,30*40 改为300*400等 [/B]

用这个函数

2. 
   
3. (defun strParse        (Str Delimiter / SearchStr StringLen return n char)
   
4.   (setq SearchStr Str)
   
5.   (setq StringLen (strlen SearchStr))
   
6.   (setq return '())
   
7.   (while (> StringLen 0)
   
8.     (setq n 1)
   
9.     (setq char (substr SearchStr 1 1))
   
10.     (while (and (/= char Delimiter) (/= char ""))
    
11.       (setq n (1+ n))
    
12.       (setq char (substr SearchStr n 1))
    
13.     ) ;_ end of while
    
14.     (setq return (cons (substr SearchStr 1 (1- n)) return))
    
15.     (setq SearchStr (substr SearchStr (1+ n) StringLen))
    
16.     (setq StringLen (strlen SearchStr))
    
17.   ) ;_ end of while
    
18.   (reverse return)
    
19. ) ;_ end of defun
    

<br /> (defun strParse        (Str Delimiter / SearchStr StringLen return n char)<br />   (setq SearchStr Str)<br />   (setq StringLen (strlen SearchStr))<br />   (setq return '())<br />   (while (> StringLen 0)<br />     (setq n 1)<br />     (setq char (substr SearchStr 1 1))<br />     (while (and (/= char Delimiter) (/= char ""))<br />       (setq n (1+ n))<br />       (setq char (substr SearchStr n 1))<br />     ) ;_ end of while<br />     (setq return (cons (substr SearchStr 1 (1- n)) return))<br />     (setq SearchStr (substr SearchStr (1+ n) StringLen))<br />     (setq StringLen (strlen SearchStr))<br />   ) ;_ end of while<br />   (reverse return)<br /> ) ;_ end of defun <br />

功能  
将具有分隔符的字符串解析为列表  
语法  
(StrParse Str Delimiter)  
参数  
Str:要解析的字符串
Delimiter :要搜索的分隔符  
返回值  
一个字符串列表  
样例  
(setq a "Harp,Guiness,Black and Tan")
(StrParse a ",")
返回:
("Harp" "Guiness" "Black and Tan")  

1. 
   
2. $ (mapcar '(lambda (x) (strcat x "0")) (strParse "20*30" "*"))
   
3. ("200" "300")

复制代码

再合并就可以了。

JQKA

谢谢eachy

XDSoft

最初由 JQKA 发布
[B]如何一次性给所有字符串均加"0"?
例如：将24*45改为240*450,30*40 改为300*400等 [/B]

再写一个用XDRX_API写的

2. <normalfont>
   
3. (defun StrParse (str Parse str1 / str2 str3)
   
4.   (setq str2 (xdrx_string_tok str Parse))
   
5.   (if (> (length str2) 1)
   
6.     (progn
   
7.       (setq str3 (xdrx_string_join (mapcar
   
8.                                      '(lambda (x)
   
9.                                         (strcat x str1)
   
10.                                       )
    
11.                                      str2
    
12.                                    ) parse
    
13.                  )
    
14.       )
    
15.     )
    
16.   )
    
17.   str3
    
18. )
    
19. </normalfont>
    

<normalfont><br /> (defun StrParse (str Parse str1 / str2 str3)<br />   (setq str2 (xdrx_string_tok str Parse))<br />   (if (> (length str2) 1)<br />     (progn<br />       (setq str3 (xdrx_string_join (mapcar<br />                                      '(lambda (x)<br />                                         (strcat x str1)<br />                                       )<br />                                      str2<br />                                    ) parse<br />                  )<br />       )<br />     )<br />   )<br />   str3<br /> )<br /> </normalfont><br />

例子:

2. <normalfont>
   
3. 命令: (setq a "24*35")
   
4. "24*35"
   
5. 
   
6. 命令: (StrParse a "*" "0")
   
7. "240*350"
   
8. 
   
9. 命令: (StrParse a "*" "a")
   
10. "24a*35a"
    
11. </normalfont>
    

<normalfont><br /> 命令: (setq a "24*35")<br /> "24*35"<br /> <br /> 命令: (StrParse a "*" "0")<br /> "240*350"<br /> <br /> 命令: (StrParse a "*" "a")<br /> "24a*35a"<br /> </normalfont><br />