多行文本大量累加，如何提高速度

hktkzyz

我当前用的 打开内存文件和 快速文本对象，都不理想。
我用IPlook，（转换纯真ip数据库的），同样把一个dat的数据导出为txt，也是这么多行，只用不到10秒。
请问，要什么原理，什么方法能达到这样的效果。
iplook大家随便百度就有，那速度真的快很。

一时隐名

  

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

变量名	类 型	静态	数组	备 注
t	整数型			计算用时。
h	整数型			打开内存文件返回的文件号。
i	整数型			循环变量。
n	整数型

t ＝ 取启动时间 ()  ' 开始时间。
h ＝ 打开文件 (“c:\测试测试.txt”, 4, )
n ＝ 1
移到文件首 (h)
计次循环首 (1061445, i)
如果真 (i ＝ 106144 × n)
编辑框_log.加入文本 (到文本 (n) ＋ “0%”)
n ＝ n ＋ 1
写出文本 (h, 到文本 (i) ＋ “这是测试，具体内容及其算法都省去。”)
处理事件 ()
计次循环尾 ()
关闭文件 (h)
编辑框_log.加入文本 (“转换完毕...” ＋ 毫秒到文本时间2 (取启动时间 () － t) ＋ #换行符 )

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 t, 整数型, , , 计算用时。<br /> .局部变量 h, 整数型, , , 打开内存文件返回的文件号。<br /> .局部变量 i, 整数型, , , 循环变量。<br /> .局部变量 n, 整数型<br /> <br /> t ＝ 取启动时间 ()  ' 开始时间。<br /> h ＝ 打开文件 (“c:\测试测试.txt”, 4, )<br /> n ＝ 1<br /> 移到文件首 (h)<br /> .计次循环首 (1061445, i)<br />     .如果真 (i ＝ 106144 × n)<br />         编辑框_log.加入文本 (到文本 (n) ＋ “0%”)<br />         n ＝ n ＋ 1<br />     .如果真结束<br />     写出文本 (h, 到文本 (i) ＋ “这是测试，具体内容及其算法都省去。”)<br /> <br />     处理事件 ()<br /> .计次循环尾 ()<br /> <br /> 关闭文件 (h)<br /> 编辑框_log.加入文本 (“转换完毕...” ＋ 毫秒到文本时间2 (取启动时间 () － t) ＋ #换行符)

神之右手

用数组，然后把数据追加到数组尾部，再一次性把数组写出即可。

hktkzyz

一时隐名 发表于 2017-7-27 15:51
[e=0].版本 2

.子程序 _按钮1_被单击

大神，我也发现了，IPLook也是先创建一个空文本。
你的方式和他的方式一样快。感谢。
可是我不理解，为什么这样比我第一个方法要快呢，而且快这么多。

endless1

帮你优化了下。   很明显，如果是一次性保存文件数据再写出文件的话，  数据保存的时候过于庞大， 所以耗时过多。
   应该本着 有数据就立马写出的思想。  或者加上多线程处理的思想才会使过程变的更快(多线程很可能会导致文本排序错乱，自行加判断写出文件)

  

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

变量名	类 型	静态	数组	备 注
t	整数型			计算用时。
h	整数型			打开内存文件返回的文件号。
i	整数型			循环变量。
n	整数型

t ＝ 取启动时间 ()  ' 开始时间。
文件_创建 (取运行目录 () ＋ “\测试测试.txt”, 0)
h ＝ 打开文件 (取运行目录 () ＋ “\测试测试.txt”, #读写, )  ' 内存文件句柄。
n ＝ 1
计次循环首 (1061445, i)
如果真 (i ＝ 106144 × n)
编辑框_log.加入文本 (到文本 (n) ＋ “0%”)
n ＝ n ＋ 1
写出字节集 (h, 到字节集 (到文本 (i) ＋ “这是测试，具体内容及其算法都省去。” ＋ #换行符 ))
' 文件_写出字节集 (, , )
移到文件尾 (h)
' 插入文本 (h, )  ' 每行的文本。
处理事件 ()
计次循环尾 ()
' 移到文件首 (h)
' 写到文件 (取运行目录 () ＋ “\测试测试.txt”, 到字节集 (读入文本 (h, )))
编辑框_log.加入文本 (“转换完毕...” ＋ 到文本 (取启动时间 () － t) ＋ “ms” ＋ #换行符 )

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

变量名	类 型	静态	数组	备 注
t	整数型			计算用时。
i	整数型			循环变量。
n	整数型
st	快速字节集对象

t ＝ 取启动时间 ()  ' 开始时间。
n ＝ 1
计次循环首 (1061445, i)
如果真 (i ＝ 106144 × n)
编辑框_log.加入文本 (到文本 (n) ＋ “0%”)
n ＝ n ＋ 1
' sm.置字节集 ()
' sm.置字节集 ()
st.添加 (到文本 (i) ＋ “这是测试，具体内容及其算法都省去。” ＋ #换行符 )
' 写出数据 (, )
' st.写到文件 ()
' s.添加 ()
处理事件 ()
计次循环尾 ()
st.写到文件 (取运行目录 () ＋ “\测试测试.txt”)
' 写到文件 (, 到字节集 (s.取文本 (, )))
编辑框_log.加入文本 (“转换完毕...” ＋ 到文本 (取启动时间 () － t) ＋ “ms” ＋ #换行符 )

i支持库列表	支持库注释
commobj	通用对象支持库

.版本 2<br /> .支持库 commobj<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 t, 整数型, , , 计算用时。<br /> .局部变量 h, 整数型, , , 打开内存文件返回的文件号。<br /> .局部变量 i, 整数型, , , 循环变量。<br /> .局部变量 n, 整数型<br /> <br /> t ＝ 取启动时间 ()  ' 开始时间。<br /> 文件_创建 (取运行目录 () ＋ “\测试测试.txt”, 0)<br /> h ＝ 打开文件 (取运行目录 () ＋ “\测试测试.txt”, #读写, )  ' 内存文件句柄。<br /> n ＝ 1<br /> .计次循环首 (1061445, i)<br />     .如果真 (i ＝ 106144 × n)<br />         编辑框_log.加入文本 (到文本 (n) ＋ “0%”)<br />         n ＝ n ＋ 1<br />     .如果真结束<br />     写出字节集 (h, 到字节集 (到文本 (i) ＋ “这是测试，具体内容及其算法都省去。” ＋ #换行符))<br />     ' 文件_写出字节集 (, , )<br />     移到文件尾 (h)<br />     ' 插入文本 (h, )  ' 每行的文本。<br />     处理事件 ()<br /> .计次循环尾 ()<br /> ' 移到文件首 (h)<br /> ' 写到文件 (取运行目录 () ＋ “\测试测试.txt”, 到字节集 (读入文本 (h, )))<br /> 编辑框_log.加入文本 (“转换完毕...” ＋ 到文本 (取启动时间 () － t) ＋ “ms” ＋ #换行符)<br /> <br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 t, 整数型, , , 计算用时。<br /> .局部变量 i, 整数型, , , 循环变量。<br /> .局部变量 n, 整数型<br /> .局部变量 st, 快速字节集对象<br /> <br /> t ＝ 取启动时间 ()  ' 开始时间。<br /> n ＝ 1<br /> .计次循环首 (1061445, i)<br />     .如果真 (i ＝ 106144 × n)<br />         编辑框_log.加入文本 (到文本 (n) ＋ “0%”)<br />         n ＝ n ＋ 1<br />     .如果真结束<br />     ' sm.置字节集 ()<br />     ' sm.置字节集 ()<br />     st.添加 (到文本 (i) ＋ “这是测试，具体内容及其算法都省去。” ＋ #换行符)<br />     ' 写出数据 (, )<br /> <br />     ' st.写到文件 ()<br />     ' s.添加 ()<br />     处理事件 ()<br /> .计次循环尾 ()<br /> st.写到文件 (取运行目录 () ＋ “\测试测试.txt”)<br /> ' 写到文件 (, 到字节集 (s.取文本 (, )))<br /> 编辑框_log.加入文本 (“转换完毕...” ＋ 到文本 (取启动时间 () － t) ＋ “ms” ＋ #换行符)

hktkzyz

谢谢大家。我逐个测试了一遍。数组的方式还没有尝试，不知道会怎么样，如果差的不多的话，就不考虑了。

超级の赛亚人

...............

超级の赛亚人