求助热心老师们协助 改一下！

炫彩艺敬

1. 请求把第二列代码导出txt 保存在D:\保存.txt     导出的格式如图！   就是开头是6的前面+1   开头不是6的+0.
    导入txt里的内容时，保留原有内容，不导入重复代码，只导入新增的代码！

2. 让后两列的小数点 在两位，小数点只留后两位就行。

3. 点击超级列表框的表头 升序 降序


希望好心老师们协助改一下，自己弄了两小时，一个也没成功。  谢谢   谢谢


Excel.e (869.12 KB, 下载次数: 6)

2020-10-13 22:07 上传

点击文件名下载附件 Excel.rar (6.89 KB, 下载次数: 5)

2020-10-13 22:07 上传

点击文件名下载附件

liantan

Excel.e (855.3 KB, 下载次数: 3)

2020-10-16 12:44 上传

点击文件名下载附件
例子


补充内容 (2020-10-16 12:51):
这个有点问题，看楼下的。

SK在线

我来看看，，，，，，，，，，，，，，，

Loserecall

  

子程序名	返回值类型	公开	备 注
_导出_被单击

变量名	类 型	静态	数组	备 注
总数	整数型
已处理	整数型
内循环数	整数型
a	整数型
文件号	整数型
计次	整数型

总数 ＝ 超级列表框1.取表项数 ()
已处理 ＝ 0
判断循环首 (已处理 ＜ 总数)
内循环数 ＝ 选择 (总数 － 已处理 ＜ 10000, 总数 － 已处理, 10000)
计次循环首 (内循环数, 计次)
a ＝ a ＋ 1
文件号 ＝ 打开文件 (取运行目录 () ＋ “\导出的文本.txt”, , )
如果真 (文件号 ＝ 0)
写到文件 (取运行目录 () ＋ “\导出的文本.txt”, 到字节集 ({  }))
文件号 ＝ 打开文件 (取运行目录 () ＋ “\导出的文本.txt”, , )
移到文件尾 (文件号)
插入文本行 (文件号, 超级列表框1.取标题 (a － 1, 1) ＋ “----” ＋ 超级列表框1.取标题 (a － 1, 2) ＋ “----” ＋ 超级列表框1.取标题 (a － 1, 3) ＋ “----” ＋ 超级列表框1.取标题 (a － 1, 4))
关闭文件 (文件号)
计次循环尾 ()
已处理 ＝ 已处理 ＋ 内循环数
处理事件 ()
判断循环尾 ()
信息框 (“导出完成”, 0, , )

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _导出_被单击<br /> .局部变量 总数, 整数型<br /> .局部变量 已处理, 整数型<br /> .局部变量 内循环数, 整数型<br /> .局部变量 a, 整数型<br /> .局部变量 文件号, 整数型<br /> .局部变量 计次, 整数型<br /> <br /> 总数 ＝ 超级列表框1.取表项数 ()<br /> 已处理 ＝ 0<br /> .判断循环首 (已处理 ＜ 总数)<br />     内循环数 ＝ 选择 (总数 － 已处理 ＜ 10000, 总数 － 已处理, 10000)<br />     .计次循环首 (内循环数, 计次)<br />         a ＝ a ＋ 1<br />         文件号 ＝ 打开文件 (取运行目录 () ＋ “\导出的文本.txt”, , )<br />         .如果真 (文件号 ＝ 0)<br />             写到文件 (取运行目录 () ＋ “\导出的文本.txt”, 到字节集 ({  }))<br />             文件号 ＝ 打开文件 (取运行目录 () ＋ “\导出的文本.txt”, , )<br />         .如果真结束<br />         移到文件尾 (文件号)<br />         插入文本行 (文件号, 超级列表框1.取标题 (a － 1, 1) ＋ “----” ＋ 超级列表框1.取标题 (a － 1, 2) ＋ “----” ＋ 超级列表框1.取标题 (a － 1, 3) ＋ “----” ＋ 超级列表框1.取标题 (a － 1, 4))<br />         关闭文件 (文件号)<br />     .计次循环尾 ()<br />     已处理 ＝ 已处理 ＋ 内循环数<br />     处理事件 ()<br /> .判断循环尾 ()<br /> 信息框 (“导出完成”, 0, , )

Excel.e (870.2 KB, 下载次数: 9)

2020-10-13 22:50 上传

点击文件名下载附件

Loserecall

看二楼!已完成了!源代码也给你发出来了  导出来4列  你可以选择  几列 自己改

炫彩艺敬

th4777 发表于 2020-10-13 22:51
看二楼!已完成了!源代码也给你发出来了  导出来4列  你可以选择  几列 自己改 ...

谢谢老师   谢谢！  但我想要导出的格式不是这样的，是图上的那种格式！
如图

请求把第二列代码导出txt 保存在D:\保存.txt     导出的格式如图！   就是开头是6的前面+1   开头不是6的+0.
    导入txt里的内容时，保留原有内容，不导入重复代码，只导入新增的代码！

李欢欢

云长爱读春秋

  

子程序名	返回值类型	公开	备 注
_导出_被单击

变量名	类 型	静态	数组	备 注
文件号	整数型
计次	整数型
原文件文本	文本型		0
i	整数型
待添加内容	文本型
i1	整数型
是否重复	逻辑型

文件号 ＝ 打开文件 (取运行目录 () ＋ “\导出的文本.txt”, , )
原文件文本 ＝ 分割文本 (读入文本 (文件号, ), #换行符, )
计次循环首 (超级列表框1.取表项数 (), i)
待添加内容 ＝ 超级列表框1.取标题 (i － 1, 1)
判断 (取文本左边 (待添加内容, 1) ＝ “6”)
待添加内容 ＝ “6” ＋ 待添加内容
待添加内容 ＝ “0” ＋ 待添加内容
计次循环首 (取数组成员数 (原文件文本), i1)
如果真 (原文件文本 [i1] ＝ 待添加内容)
是否重复 ＝ 真
跳出循环 ()

计次循环尾 ()
如果真 (是否重复)
跳出循环 ()
移到文件尾 (文件号)
插入文本行 (文件号, 待添加内容)
计次循环尾 ()
关闭文件 (文件号)

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _导出_被单击<br /> .局部变量 文件号, 整数型<br /> .局部变量 计次, 整数型<br /> .局部变量 原文件文本, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 待添加内容, 文本型<br /> .局部变量 i1, 整数型<br /> .局部变量 是否重复, 逻辑型<br /> <br /> 文件号 ＝ 打开文件 (取运行目录 () ＋ “\导出的文本.txt”, , )<br /> 原文件文本 ＝ 分割文本 (读入文本 (文件号, ), #换行符, )<br /> .计次循环首 (超级列表框1.取表项数 (), i)<br />     待添加内容 ＝ 超级列表框1.取标题 (i － 1, 1)<br />     .判断开始 (取文本左边 (待添加内容, 1) ＝ “6”)<br />         待添加内容 ＝ “6” ＋ 待添加内容<br />     .默认<br />         待添加内容 ＝ “0” ＋ 待添加内容<br />     .判断结束<br />     .计次循环首 (取数组成员数 (原文件文本), i1)<br />         .如果真 (原文件文本 [i1] ＝ 待添加内容)<br />             是否重复 ＝ 真<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     .如果真 (是否重复)<br />         跳出循环 ()<br />     .如果真结束<br />     移到文件尾 (文件号)<br />     插入文本行 (文件号, 待添加内容)<br /> .计次循环尾 ()<br /> 关闭文件 (文件号)

以上是到处txt文件的代码。

  

局_3 ＝ 取文本左边 (局_3, 寻找文本 (局_3, “.”, , 假) ＋ 2)
局_4 ＝ 取文本左边 (局_4, 寻找文本 (局_4, “.”, , 假) ＋ 2)

.版本 2<br /> <br />         局_3 ＝ 取文本左边 (局_3, 寻找文本 (局_3, “.”, , 假) ＋ 2)<br />         局_4 ＝ 取文本左边 (局_4, 寻找文本 (局_4, “.”, , 假) ＋ 2)

以上是只去小数点后两位的方法，由于你从数据库读取出来的就是文本型，就用文本型的处理方法。

升序降序自己去学一下冒泡法排序就完事了

炫彩艺敬

陌路の旋律 发表于 2020-10-14 00:04
[e=0].版本 2
.支持库 iext

请问 小数点的代码 应该差在什么地方？？小数点后两位的方法  我试了好几次，但表格上都没有变化

liantan

Excel.e (855.33 KB, 下载次数: 11)

2020-10-16 12:51 上传

点击文件名下载附件
修改了一下，用这个。