（XD::List:TableStrFormat）表格型字符串表字符格式化（长度保证相等）

Lispboy · 发表于 2016-10-28 13:10:56

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun XD::List:TableStrFormat (lst gap / i lst1 x y)
  (setq lst (xd::list:tablefillgap lst ""))
  (setq lst1 (xd::list:tablecolMaxStrlen lst))
  (setq lst (mapcar
              '(lambda (x)
                 (setq i -1)
                 (mapcar
                   '(lambda (y)
                      (xd::string:TailFill y gap (nth (setq i (1+ i))
                                                      lst1
                                                 )
                      )
                    )
                   x
                 )
               )
              lst
            )
  )
)

命令: (setq a (list (list "ab" "fafafaf")(list "fafafa" "fa")))
(("ab" "fafafaf") ("fafafa" "fa"))

命令: (XD::LIST:TABLESTRFORMAT a " ")
(("ab " "fafafaf") ("fafafa" "fa "))

命令: (XD::LIST:TABLESTRFORMAT a "#")
(("ab####" "fafafaf") ("fafafa" "fa#####"))

sh_h · 发表于 2016-12-26 19:54:31

回的人少，我来小顶一下

wm_chen · 发表于 2016-12-30 00:36:43

啥也不说了，感谢楼主分享哇！

xpyjc · 发表于 2017-1-10 08:33:25

2017好好学习天天向上

账号		自动登录	找回密码
密码			立即注册

[表] （XD::List:TableStrFormat）表格型字符串表字符格式化（长度保证相等）

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。