快速删除文本文件中长度超过限制的文本行

jr21066

有点简单.不传源文件了

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

变量名	类 型	静态	数组	备 注
文本	快速文本对象

置随机数种子 ()
编辑框1.加入文本 (“开始生成 ” ＋ 到文本 (取现行时间 ()) ＋ #换行符 )
计次循环首 (100000, )
文本.添加 (文本_取随机数字 (汇编_取随机数 (3, 15), ) ＋ #换行符 )
计次循环尾 ()
文本.写到文件 (“R:\Desktop\测试.txt”)
编辑框1.加入文本 (“生成完毕 ” ＋ 到文本 (取现行时间 ()) ＋ #换行符 )

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

变量名	类 型	静态	数组	备 注
文本数组	字节集		0
成员数	整数型
限制位数	整数型
文本	快速字节集对象
计数器	整数型

编辑框2.加入文本 (“开始处理 ” ＋ 到文本 (取现行时间 ()) ＋ #换行符 )
文本.从文件读 (“R:\Desktop\测试.txt”)
文本.替换子字节集 (到字节集 ( #换行符 ), 到字节集 ( #换行符 ) ＋ 到字节集 (255), , )
文本数组 ＝ 分割字节集 (文本.取字节集 (, ), 到字节集 (255), )
成员数 ＝ 取数组成员数 (文本数组)
限制位数 ＝ 8
计次循环首 (成员数, 计数器)
如果真 (取字节集长度 (文本数组 [成员数 － 计数器 ＋ 1]) ＞ 限制位数)
删除成员 (文本数组, 成员数 － 计数器 ＋ 1, )

计次循环尾 ()
文本.置字节集 (文本数组)
文本.写到文件 (“R:\Desktop\测试-生成.txt”)
编辑框2.加入文本 (“处理完毕 ” ＋ 到文本 (取现行时间 ()) ＋ #换行符 )

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

.版本 2<br /> .支持库 commobj<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文本, 快速文本对象<br /> <br /> 置随机数种子 ()<br /> 编辑框1.加入文本 (“开始生成 ” ＋ 到文本 (取现行时间 ()) ＋ #换行符)<br /> .计次循环首 (100000, )<br />     文本.添加 (文本_取随机数字 (汇编_取随机数 (3, 15), ) ＋ #换行符)<br /> .计次循环尾 ()<br /> 文本.写到文件 (“R:\Desktop\测试.txt”)<br /> 编辑框1.加入文本 (“生成完毕 ” ＋ 到文本 (取现行时间 ()) ＋ #换行符)<br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 文本数组, 字节集, , "0"<br /> .局部变量 成员数, 整数型<br /> .局部变量 限制位数, 整数型<br /> .局部变量 文本, 快速字节集对象<br /> .局部变量 计数器, 整数型<br /> <br /> 编辑框2.加入文本 (“开始处理 ” ＋ 到文本 (取现行时间 ()) ＋ #换行符)<br /> 文本.从文件读 (“R:\Desktop\测试.txt”)<br /> 文本.替换子字节集 (到字节集 (#换行符), 到字节集 (#换行符) ＋ 到字节集 (255), , )<br /> 文本数组 ＝ 分割字节集 (文本.取字节集 (, ), 到字节集 (255), )<br /> 成员数 ＝ 取数组成员数 (文本数组)<br /> 限制位数 ＝ 8<br /> <br /> .计次循环首 (成员数, 计数器)<br />     .如果真 (取字节集长度 (文本数组 [成员数 － 计数器 ＋ 1]) ＞ 限制位数)<br />         删除成员 (文本数组, 成员数 － 计数器 ＋ 1, )<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 文本.置字节集 (文本数组)<br /> 文本.写到文件 (“R:\Desktop\测试-生成.txt”)<br /> 编辑框2.加入文本 (“处理完毕 ” ＋ 到文本 (取现行时间 ()) ＋ #换行符)

hefushe007

谢谢分享！

陌生的疯子

666666666666666666

shenzhenyu8

谢谢分享学习了

jr21066

一个是编程的效率.一个是执行的效率.

菜鸟杰西卡

评论得精币谢谢分享

gaoqing

支持开源谢谢