Lisp关于excel标尺id转换

admin1

(Defun vlxls-rangeid (id      /          list->str      list->str1
              Rtn      str->list   str->list1  xid->str
             )
  (Defun str->list1 (str / ii xk xv rr pos x y)
    (setq rr (strlen str))
    (foreach ii    '("0" "1" "2" "3" "4" "5" "6" "7" "8" "9")
      (if (setq pos (vl-string-search ii str))
    (setq rr (min pos rr))
      )
    )
    (setq x (substr str 1 rr)
      y (substr str (1+ rr))
    )
    (if    (= (strlen x) 2)
      (setq xk (- (ascii (substr x 1 1)) 64)
        xv (- (ascii (substr x 2)) 64)
      )
      (setq xk 0
        xv (- (ascii x) 64)
      )
    )
    (list (+ (* xk 26) xv) (read y))
  )
  (Defun xid->str (IntNum / PosNum Nm-One)
    (if    IntNum
      (progn
    (setq Nm-One (1- IntNum))
    (setq PosNum (/ Nm-One 26))
    (if (= PosNum 0)
      (chr (+ 65 (rem Nm-One 26)))
      (strcat (chr (+ 64 PosNum))
          (chr (+ 65 (rem Nm-One 26)))
      )
    )
      )
    )
  )
  (Defun list->str1 (idr / x y)
    (if    idr
      (progn (setq x (car idr))
         (setq y (cadr idr))
         (setq x (xid->str x))
         (setq y (itoa y))
         (strcat x y)
      )
    )
  )
  (if id
    (cond ((= (type id) 'str) (setq Rtn (str->list1 id)))
      ((= (type id) 'list) (setq Rtn (list->str1 id)))
    )
  )
  Rtn
)
(Defun vlxls-cellid-calc (id x y / idx)
  (if (and id x y)
    (progn (setq id (car (vlxls-cellid id)))
       (setq idx (vlxls-rangeid id))
       (setq x (+ x (car idx)))
       (if (< x 1)
         (setq x 1)
       )
       (AND (cadr idx)(setq y (+ y (cadr idx))))
       (if (< y 1)
         (setq y 1)
       )
       (setq idx (vlxls-rangeid (list x y)))
       (setq id (vlxls-cellid (strcat id ":" idx)))
       (setq id (strcat (car id) ":" (cadr id)))
    )
  )
  id
)