任意字母升位

dcl1214

传入任意字母，程序将最后一位升位

1. (DEFUN $sheng-wei$ (sTR LST / a as s s-new str-new to zz)
   
2.                                         ;升位
   
3.   ;示例($sheng-wei$ "ZzZ" nil)
   
4.   (SETQ        ZZ (list "A"   "B"   "C"   "D"         "E"   "F"   "G"   "H"         "I"
   
5.                  "J"   "K"   "L"   "M"         "N"   "O"   "P"   "Q"         "R"
   
6.                  "S"   "T"   "U"   "V"         "W"   "X"   "Y"   "Z"         "A"
   
7.                  "a"   "b"   "c"   "d"         "e"   "f"   "g"   "h"         "i"
   
8.                  "j"   "k"   "l"   "m"         "n"   "o"   "p"   "q"         "r"
   
9.                  "s"   "t"   "u"   "v"         "w"   "x"   "y"   "z"         "a"
   
10.                 )
    
11.   )
    
12.   (if (AND STR
    
13.            (= (TYPE STR) 'STR)
    
14.            (SETQ S (MAPCAR 'CHR (vl-string->list STR)))
    
15.            (SETQ S (MAPCAR (FUNCTION (LAMBDA (A) (CAR (MEMBER A ZZ)))) S))
    
16.            (SETQ S (VL-REMOVE NIL S))
    
17.       )
    
18.     (progn
    
19.       (setq As nil)
    
20.       (SETQ S (REVERSE S))
    
21.       (setq to t)
    
22.       (while (and to s)
    
23.         (setq a (car s))
    
24.         (if (member a (list "Z" "z"))
    
25.           ()
    
26.           (setq to nil)
    
27.         )
    
28.         (setq a (CADR (member a ZZ)))
    
29.         (setq As (cons a As))
    
30.         (setq s (cdr s))
    
31.       )
    
32.       (setq As (reverse As))
    
33.       (setq s-new (reverse (append As s)))
    
34.       (setq str-new (APPLY 'STRCAT s-new))
    
35.     )
    
36.   )
    
37.   str-new
    
38. )

(DEFUN $sheng-wei$ (sTR LST / a as s s-new str-new to zz)<br />                                         ;升位<br />   ;示例($sheng-wei$ "ZzZ" nil)<br />   (SETQ        ZZ (list "A"   "B"   "C"   "D"         "E"   "F"   "G"   "H"         "I"<br />                  "J"   "K"   "L"   "M"         "N"   "O"   "P"   "Q"         "R"<br />                  "S"   "T"   "U"   "V"         "W"   "X"   "Y"   "Z"         "A"<br />                  "a"   "b"   "c"   "d"         "e"   "f"   "g"   "h"         "i"<br />                  "j"   "k"   "l"   "m"         "n"   "o"   "p"   "q"         "r"<br />                  "s"   "t"   "u"   "v"         "w"   "x"   "y"   "z"         "a"<br />                 )<br />   )<br />   (if (AND STR<br />            (= (TYPE STR) 'STR)<br />            (SETQ S (MAPCAR 'CHR (vl-string->list STR)))<br />            (SETQ S (MAPCAR (FUNCTION (LAMBDA (A) (CAR (MEMBER A ZZ)))) S))<br />            (SETQ S (VL-REMOVE NIL S))<br />       )<br />     (progn<br />       (setq As nil)<br />       (SETQ S (REVERSE S))<br />       (setq to t)<br />       (while (and to s)<br />         (setq a (car s))<br />         (if (member a (list "Z" "z"))<br />           ()<br />           (setq to nil)<br />         )<br />         (setq a (CADR (member a ZZ)))<br />         (setq As (cons a As))<br />         (setq s (cdr s))<br />       )<br />       (setq As (reverse As))<br />       (setq s-new (reverse (append As s)))<br />       (setq str-new (APPLY 'STRCAT s-new))<br />     )<br />   )<br />   str-new<br /> )

guosheyang

Bao_lai 发表于 2024-4-19 08:49
数字列转Excel列有木有？

;将数字转为Excel表的字母列号（数字转字母）
;; Number to Column  -  Lee Mac           
;; n - [int] positive non-zero integer   
;(LM:num->col 800) "ABC"
(defun LM:num->col( n )
    (if (< n 27)
        (chr (+ 64 n))
        (strcat (LM:num->col(/ (1- n) 26)) (LM:num->col (1+ (rem (1- n) 26))))
    )
)

自贡黄明儒

楼主不是要推广汉语吗，那就加上汉字的“一” “壹”呀

edsion24

sTR LST 这两个代表什么呢

Bao_lai

数字列转Excel列有木有？

guosheyang

感谢杜总的分享！

magicheno

感谢大佬分享