( XD::String:Alpha+) 大写字母字符串递增+1

newer

1. (defun XD::String:Alpha++ ( a )
   
2.     (   (lambda ( f ) (vl-list->string (reverse (f (reverse (vl-string->list (strcase a)))))))
   
3.         (lambda ( l )
   
4.             (if l
   
5.                 (if (= 90 (car l))
   
6.                     (cons 65 (f (cdr l)))
   
7.                     (cons (1+ (car l)) (cdr l))
   
8.                 )
   
9.                '(65)
   
10.             )
    
11.         )
    
12.     )
    
13. )
    

(defun XD::String:Alpha++ ( a )<br />     (   (lambda ( f ) (vl-list->string (reverse (f (reverse (vl-string->list (strcase a)))))))<br />         (lambda ( l )<br />             (if l<br />                 (if (= 90 (car l))<br />                     (cons 65 (f (cdr l)))<br />                     (cons (1+ (car l)) (cdr l))<br />                 )<br />                '(65)<br />             )<br />         )<br />     )<br /> )<br />

命令: (XD::STRING:ALPHA+ "a")
"B"

命令: (XD::STRING:ALPHA+ "Z")
"AA"

命令: (XD::STRING:ALPHA+ "AZ")
"BA"