TXT大文本加入超级列表框，修改的别人的源码

153695923

支持支持支持支持支持支持

bai171067631

支持支持支持支持支持支持

l0447195

x辛苦辛苦，虽然不懂

天雨时晴

谢谢分享学习学习

huakeha

好东西，收藏了。

rpptliang

lufanjingyi 发表于 2018-5-29 19:09
请写个例子  谢谢

1. .版本 2
   
2. .支持库 commobj
   
3. .支持库 iext
   
4. 
   
5. .子程序 超级列表框_导入文本, , 公开
   
6. .参数 参_超级列表框, 超级列表框
   
7. .参数 参_文件路径, 文本型, 可空, 路径优先
   
8. .参数 参_文本, 文本型, 可空, 路径为空时导入文本
   
9. .参数 参_分隔符, 文本型, 可空, 默认"----"
   
10. .参数 参_导入列数, 整数型, 可空, 默认1
    
11. .参数 参_保留原先数据, 逻辑型, 可空, 默认为真
    
12. .参数 参_总耗时, 整数型, 参考 可空
    
13. .参数 参_是否有加密, 逻辑型, 可空
    
14. .参数 参_构造耗时, 整数型, 参考 可空
    
15. .局部变量 字节集, 快速字节集对象
    
16. .局部变量 文本, 快速文本对象
    
17. .局部变量 文本数组, 文本型, , "0"
    
18. .局部变量 计次, 整数型
    
19. .局部变量 单行文本, 文本型
    
20. .局部变量 开始时间, 整数型
    
21. .局部变量 原表项数, 整数型
    
22. .局部变量 总数, 整数型
    
23. .局部变量 已处理, 整数型
    
24. .局部变量 内循环数, 整数型
    
25. 
    
26. 开始时间 ＝ 取启动时间 ()
    
27. 
    
28. .如果真 (是否为空 (参_分隔符))
    
29.     参_分隔符 ＝ “----”
    
30. .如果真结束
    
31. .如果真 (参_导入列数 ＜ 1)
    
32.     参_导入列数 ＝ 1
    
33. .如果真结束
    
34. .如果真 (参_文件路径 ≠ “”)  ' 路径优先
    
35.     文本.从文件读 (参_文件路径)
    
36. .如果真结束
    
37. .如果真 (参_文件路径 ＝ “” 且 参_文本 ≠ “”)
    
38.     文本.置文本 (参_文本)
    
39. .如果真结束
    
40. 
    
41. 文本数组 ＝ 文本.分割文本 (#换行符, )
    
42. 文本.清除文本 ()
    
43. 
    
44. .如果真 (是否为空 (参_保留原先数据))
    
45.     参_保留原先数据 ＝ 真
    
46. .如果真结束
    
47. .如果真 (参_保留原先数据)
    
48.     原表项数 ＝ 参_超级列表框.取表项数 ()
    
49.     字节集.添加 (参_超级列表框.表项)
    
50. .如果真结束
    
51. 
    
52. 总数 ＝ 取数组成员数 (文本数组)
    
53. 已处理 ＝ 0
    
54. 
    
55. .判断循环首 (已处理 ＜ 总数)
    
56.     内循环数 ＝ 选择 (总数 － 已处理 ＜ 10000, 总数 － 已处理, 10000)  ' 分块处理  减少卡顿  或者可以多线程构造?思路而已...
    
57.     .计次循环首 (内循环数, 计次)
    
58.         .' 如果 (参_是否有加密)
    
59.             ' 单行文本 ＝ 功能_动态解密 (文本数组 [计次])
    
60.         .否则
    
61.             单行文本 ＝ 文本数组 [已处理 ＋ 计次]
    
62.         .如果结束
    
63.         字节集.添加 ({ 0, 255, 255, 255, 255, 255, 255, 255, 255, 0, 0, 0, 0, 0, 0, 0, 0 } ＋ 到字节集 (到文本 (已处理 ＋ 计次 ＋ 原表项数)) ＋ { 0, 0 } ＋ 超级列表框_表项字节集 (单行文本, 参_分隔符, 参_导入列数, ))
    
64.     .计次循环尾 ()
    
65.     已处理 ＝ 已处理 ＋ 内循环数
    
66.     处理事件 ()
    
67. .判断循环尾 ()
    
68. 
    
69. 
    
70. .' 计次循环首 (取数组成员数 (文本数组), 计次)
    
71.     .' 如果 (参_是否有加密)
    
72.         ' ' 单行文本 ＝ 功能_动态解密 (文本数组 [计次])
    
73.     .否则
    
74.         ' 单行文本 ＝ 文本数组 [计次]
    
75.     .如果结束
    
76.     ' 字节集.添加 ({ 0, 255, 255, 255, 255, 255, 255, 255, 255, 0, 0, 0, 0, 0, 0, 0, 0 } ＋ 到字节集 (到文本 (计次 ＋ 原表项数)) ＋ { 0, 0 } ＋ 超级列表框_表项字节集 (单行文本, 参_分隔符, 参_导入列数, ))
    
77. .' 计次循环尾 ()
    
78. 
    
79. 参_构造耗时 ＝ 取启动时间 () － 开始时间
    
80. 
    
81. 参_超级列表框.可视 ＝ 假  ' 可视的话会耽误更多时间
    
82. 参_超级列表框.禁止重画 ()
    
83. 参_超级列表框.表项 ＝ 字节集.取字节集 (, )
    
84. 参_超级列表框.可视 ＝ 真
    
85. 参_超级列表框.允许重画 ()
    
86. 
    
87. 字节集.清除字节集 ()
    
88. 
    
89. 参_总耗时 ＝ 取启动时间 () － 开始时间
    
90. 
    
91. 
    
92. .子程序 超级列表框_表项字节集, 字节集, 公开
    
93. .参数 参_文本, 文本型
    
94. .参数 参_分隔符, 文本型
    
95. .参数 参_列数, 整数型
    
96. .参数 参_从第0列开始, 逻辑型, 可空
    
97. .局部变量 局_数组, 文本型, , "0"
    
98. .局部变量 局_计次, 整数型
    
99. .局部变量 局_字节集, 字节集
    
100. .局部变量 局_列数, 整数型
     
101. 
     
102. ' 0,255,255,255,255,255,255,255,255,0,0,0,0,0,0,0,0,内容,0,0
     
103. ' 1,255,255,255,255,255,255,255,255,0,0,0,0,0,0,0,0,内容,0,0,
     
104. ' 1,255,255,255,255,255,255,255,255,0,0,0,0,0,0,0,0,内容,0,0,
     
105. ' 1,255,255,255,255,255,255,255,255,0,0,0,0,0,0,0,0,内容,0,0,
     
106. 
     
107. ' 0,255,255,255,255,255,255,255,255,0,0,0,0,0,0,0,0,内容,0,0
     
108. ' 1,255,255,255,255,255,255,255,255,0,0,0,0,0,0,0,0,内容,0,0,
     
109. ' 1,255,255,255,255,255,255,255,255,0,0,0,0,0,0,0,0,内容,0,0,
     
110. ' 1,255,255,255,255,255,255,255,255,0,0,0,0,0,0,0,0,内容,0,0,
     
111. 
     
112. 局_数组 ＝ 分割文本 (参_文本, 参_分隔符, 参_列数)
     
113. 局_列数 ＝ 取数组成员数 (局_数组)
     
114. .如果真 (局_列数 ＝ 0)
     
115.     返回 ({  })
     
116. .如果真结束
     
117. .计次循环首 (局_列数, 局_计次)
     
118.     局_字节集 ＝ 局_字节集 ＋ { 1, 255, 255, 255, 255, 255, 255, 255, 255, 0, 0, 0, 0, 0, 0, 0, 0 } ＋ 到字节集 (局_数组 [局_计次]) ＋ { 0, 0 }
     
119. .计次循环尾 ()
     
120. .如果真 (参_从第0列开始)
     
121.     局_字节集 ＝ { 0 } ＋ 取字节集右边 (局_字节集, 取字节集长度 (局_字节集) － 1)
     
122. .如果真结束
     
123. 
     
124. 返回 (局_字节集)
     

复制代码

这样操作的好处就是直接字节集操作不需要每次都等易语言的控件刷新一次，也不用像虚表那样操作不了

蒲公半岛

感谢分享 学习一下

msicleo

非常感谢·············

lufanjingyi

asd80126232 发表于 2018-5-29 15:44
直接用字节集处理好再重画就行啦，比这个更快

请写个例子  谢谢

rpptliang

直接用字节集处理好再重画就行啦，比这个更快