精易论坛

标题: 快速删除文本文件中长度超过限制的文本行 [打印本页]

作者: jr21066    时间: 2017-12-4 23:08
标题: 快速删除文本文件中长度超过限制的文本行
有点简单.不传源文件了

  
窗口程序集名保 留  保 留备 注
窗口程序集_启动窗口   
子程序名返回值类型公开备 注
_按钮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通用对象支持库


作者: gaoqing    时间: 2017-12-5 14:48
支持开源谢谢
作者: 菜鸟杰西卡    时间: 2017-12-5 17:52
提示: 作者被禁止或删除 内容自动屏蔽
作者: jr21066    时间: 2017-12-6 07:31
一个是编程的效率.一个是执行的效率.
作者: shenzhenyu8    时间: 2017-12-11 00:24
谢谢分享学习了
作者: 陌生的疯子    时间: 2017-12-11 14:25
666666666666666666
作者: hefushe007    时间: 2017-12-13 14:59
谢谢分享!




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4