超级列表框怎么自动对齐导出？

明靓

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
i	整数型
索引	整数型
j	整数型

置随机数种子 (取启动时间 ())
计次循环首 (100, i)
索引 ＝ 超级列表框1.插入表项 (, , , , , )
计次循环首 (4, j)
处理事件 ()
超级列表框1.置标题 (索引, j － 1, 到文本 (取随机数 (0, 9999999)))
计次循环尾 ()
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_按钮2_被单击

变量名	类 型	静态	数组	备 注
数量	整数型
i	整数型
j	整数型
文本	文本型
中间符	文本型

数量 ＝ 超级列表框1.取表项数 ()
中间符 ＝ 字符 ( #Tab键 ) ＋ 字符 ( #Tab键 ) ' //--关键代码在这里,使用Tab制表符来间隔,不管内容长短,都会自动对齐.其实可以只用一个Tab键字符,为了显示效果,特意多加了一个.
文本 ＝ “第一列” ＋ 中间符 ＋ “第二列” ＋ 中间符 ＋ “第三列” ＋ 中间符 ＋ “第四列” ＋ #换行符
计次循环首 (数量, i)
计次循环首 (4, j)
处理事件 ()
文本 ＝ 文本 ＋ 超级列表框1.取标题 (i, j － 1) ＋ 选择 (j ＝ 4, #换行符, 中间符)
计次循环尾 ()
计次循环尾 ()
编辑框1.内容 ＝ 文本

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 索引, 整数型<br /> .局部变量 j, 整数型<br /> <br /> 置随机数种子 (取启动时间 ())<br /> .计次循环首 (100, i)<br /> 索引 ＝ 超级列表框1.插入表项 (, , , , , )<br /> .计次循环首 (4, j)<br /> 处理事件 ()<br /> 超级列表框1.置标题 (索引, j － 1, 到文本 (取随机数 (0, 9999999)))<br /> .计次循环尾 ()<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 数量, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 文本, 文本型<br /> .局部变量 中间符, 文本型<br /> <br /> 数量 ＝ 超级列表框1.取表项数 ()<br /> 中间符 ＝ 字符 (#Tab键) ＋ 字符 (#Tab键) ' //--关键代码在这里,使用Tab制表符来间隔,不管内容长短,都会自动对齐.其实可以只用一个Tab键字符,为了显示效果,特意多加了一个.<br /> 文本 ＝ “第一列” ＋ 中间符 ＋ “第二列” ＋ 中间符 ＋ “第三列” ＋ 中间符 ＋ “第四列” ＋ #换行符<br /> .计次循环首 (数量, i)<br /> .计次循环首 (4, j)<br /> 处理事件 ()<br /> 文本 ＝ 文本 ＋ 超级列表框1.取标题 (i, j － 1) ＋ 选择 (j ＝ 4, #换行符, 中间符)<br /> .计次循环尾 ()<br /> .计次循环尾 ()<br /> 编辑框1.内容 ＝ 文本

A—小哲

mxshy 发表于 2016-2-28 22:44
写了一下，你看一下，如果不好自己优化。。。。

谢谢！！！！

A—小哲

嘉轩嘉怡 发表于 2016-2-28 22:36
导出到excel可以不？

这个模块可否写个例子呢。。。

嘉轩嘉怡

例子 模块例子.rar (1.41 KB, 下载次数: 4)

2016-2-29 19:28 上传

点击文件名下载附件

昏昏无觉

楼主你需要这个!!!   

调用格式： 〈文本型〉 格式化文本 （文本型 格式，通用型 参数，... ） - 应用接口支持库->系统处理
    英文名称：sprintf
    将一个格式化的字符串输出到一个目的字符串中。本命令为初级命令。命令参数表中最后一个参数可以被重复添加。
    参数<1>的名称为“格式”，类型为“文本型（text）”。转换的格式，以百分比符号 % 开始到转换字符为止。而在转换的格式间依序包括了1. 对齐方式。默认值为向右对齐，负号表向左对齐。2. 字段宽度。为最小宽度。3. 精确度。指在小数点后的浮点数位数。4. 类型:  % - 印出百分比符号，不转换； c - 整数转成对应的 ASCII 字符； d - 整数； f - 双精度数字； o - 整数转成八进位； s - 字符串； x - 整数转成小写十六进位； X - 整数转成大写十六进位。
    参数<2>的名称为“参数”，类型为“通用型（all）”。

    操作系统需求： Windows

39667285

1.你是怎么导入到超级列表框的，  三个程序集变量， 每个变量对应的你的一列。导入数据的时候就取下文本长度，  总是以最长的设定 超列的列宽，和后期导出文本的 字符长度， 导出文本的时候用变最减去这个文本长度，不够的用空格替换。
2.如果你是原来就有的超列表框里文件，那你就要取下文本长度，用计次 ，  和分割了

A—小哲

djmall 发表于 2016-2-29 00:50
[e=3].版本 2
.支持库 iext

那么问题了 我只需要导出 表项 1  2 3 里面的 不需要0的。。。。

A—小哲

唐老湿 发表于 2016-2-28 22:03
判断出哪一项的文本长度是最长的，然后按照最长的这个长度来衡量，不够的就补上。

具体怎么写大哭

A—小哲

djmall 发表于 2016-2-29 00:36
超级简单,又实用的代码,看了你就知道了.

你这个 对于一般的导出 够用。。。我想 这样 判断出哪一项的文本长度是最长的，然后按照最长的这个长度来衡量，不够的就补上。。。。可以

A—小哲

djmall 发表于 2016-2-29 00:50
[e=3].版本 2
.支持库 iext

这样写 只会按照第一个长度 自动对齐。。后面有比第一个更长的内容 就不行了。。。亲测。。