lisp+DCL 表格编辑使用说明。 ui:table

vitalgg

如果无法播放，请点击此处在新窗口打开

函数名  ui:table
说明：表格编辑,纯DCL方式实现,使用前先设置 ui:*table-title* 标题，赋值给 ui:*table-numbers-per-page* (整数)，可以设置每页的行数(默认为20)。ui:*table-widths* 用于定义每列的宽度，默认每列宽度为10。最大支持列数为26列。

用法：
(ui:table lst-data)
参数：1 lst-data : 列表;

返回值：修改后的数据

示例：

1. (require 'ui:*)
   
2. (setq ui:*table-numbers-per-page* 15)
   
3. (setq ui:*table-widths* '(10 20 5 3 30))
   
4. (ui:table
   
5. (cons '("a""b""C""D""E")
   
6.        (progn
   
7.          (setq lst '())(setq i% 0)
   
8.          (reverse
   
9.           (repeat 1006
   
10.                   (setq lst
    
11.                         (cons
    
12.                          (list (strcat "A" (itoa (setq i% (1+ i%))))
    
13.                                (strcat "B" (itoa i%))
    
14.                                (strcat "C" (itoa i%))
    
15.                                (strcat "D" (itoa i%))
    
16.                                (strcat "E" (itoa i%)))
    
17.                          lst)))))))
    

(require 'ui:*)<br /> (setq ui:*table-numbers-per-page* 15)<br /> (setq ui:*table-widths* '(10 20 5 3 30))<br /> (ui:table<br /> (cons '("a""b""C""D""E")<br />        (progn<br />          (setq lst '())(setq i% 0)<br />          (reverse<br />           (repeat 1006<br />                   (setq lst<br />                         (cons <br />                          (list (strcat "A" (itoa (setq i% (1+ i%))))<br />                                (strcat "B" (itoa i%))<br />                                (strcat "C" (itoa i%))<br />                                (strcat "D" (itoa i%))<br />                                (strcat "E" (itoa i%)))<br />                          lst)))))))<br />

1. (setq lst-data '(("姓名" "性别" "年龄" "身高")("张三" "男" 18 180)("李四" "女" 18 170)("王五" "男" 18 180)))
   
2. (setq ui:*table-title* "人员信息")
   
3. (setq ui:*table-widths* (ui:table-widths lst-data))
   
4. (ui:table lst-data)))

(setq lst-data '(("姓名" "性别" "年龄" "身高")("张三" "男" 18 180)("李四" "女" 18 170)("王五" "男" 18 180)))<br /> (setq ui:*table-title* "人员信息")<br /> (setq ui:*table-widths* (ui:table-widths lst-data))<br /> (ui:table lst-data)))

yxp

伪源码，无实现函数。

vitalgg

yxp 发表于 2022-3-15 15:02
伪源码，无实现函数。

那就删了或移到插件区吧，不知道怎么删帖

xj6019

安装上@lisp  就啥都有了，直接实现，大佬一直在升级  一直在扩展使用的函数库，功能库，能直接用，能直接下载源码，支持浩辰 中望  等等。
算的上良心作家哦，大家可以试试玩玩，能用也能发布自己编译后的插件到@lisp，可玩性挺大的。参照大佬的网址 ：  http://atlisp.cn/   或者直接百度  @lisp第一条就是   。替大佬打一波广告，欢迎高手试水:P         嘿嘿嘿！！！