分享下 刚刚出炉的 字节集转文本字节集（求高手给意见）

超级菜鸟王

嗯  献丑了  本着学习的精神 加上需要用到 就写了下 这个东东

我测试了下 读取2.5M的文件转换文本字节集到文本文件 大概需要12秒左右   

感觉慢慢的样子  不知道 我的方法是否有需要改进 或者  有更方便节能的方法 麻烦 告诉下噢   毕竟俺全是自己摸索学习  也没人交流 记忆又渣滓

求基友

  

子程序名	返回值类型	公开	备 注
字节集_转文本字节集_双版本	文本型		返回文本字节集
参数名	类 型	参考	可空	数组	备 注
参_文件路径	文本型
参_字节集数据	字节集

变量名	类 型	静态	数组	备 注
局_快速字节集	快速字节集对象
局_文件长度	整数型
I
局_单个字节集	字节集
局_内存文件号	整数型
局_全部文本	文本型
局_已提取总数	整数型
II
局_启动时间	整数型
局_转换用时	文本型
局_二次数	整数型

局_启动时间 ＝ 取启动时间 ()
如果真 (是否为空 (参_文件路径) ＝ 真 且 是否为空 (参_字节集数据) ＝ 真)
返回 (“二选一 可直接用 文件路径 或 提供字节集数据”)
如果真 (取反 (是否为空 (参_文件路径)))
如果真 (文件是否存在 (参_文件路径))
局_快速字节集.从文件读 (参_文件路径)

如果真 (取反 (是否为空 (参_字节集数据)))
局_快速字节集.添加 (参_字节集数据)

局_文件长度 ＝ 局_快速字节集.取长度 ()
如果 (局_文件长度 ＞ 100 × 10)
局_二次数 ＝ 100
局_二次数 ＝ 10

局_内存文件号 ＝ 打开内存文件 ()
变量循环首 (1, 局_文件长度, 1, I)
局_已提取总数 ＝ I × 局_二次数
如果真 (局_已提取总数 ≤ 局_文件长度)
如果 (局_文件长度 － 局_已提取总数 ＜ 局_二次数)
局_单个字节集 ＝ 局_快速字节集.取字节集 (局_已提取总数, 局_文件长度 － 局_已提取总数)
局_单个字节集 ＝ 局_快速字节集.取字节集 (局_已提取总数, 局_二次数)

变量循环首 (1, 取字节集长度 (局_单个字节集), 1, II)
写出文本 (局_内存文件号, 到文本 (到整数 (局_单个字节集 [II])) ＋ “,”)
变量循环尾 ()
如果真 (局_已提取总数 ＞ 局_文件长度)
跳出循环 ()

变量循环尾 ()
局_快速字节集.清除字节集 ()
移到文件首 (局_内存文件号)
局_全部文本 ＝ 读入文本 (局_内存文件号, )
关闭文件 (局_内存文件号)
局_转换用时 ＝ 到文本 ( (取启动时间 () － 局_启动时间) ÷ 1000)
输出调试文本 (“转换用时:” ＋ 局_转换用时)
返回 (局_全部文本)

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

.版本 2<br /> .支持库 commobj<br /> <br /> .子程序 字节集_转文本字节集_双版本, 文本型, 公开, 返回文本字节集<br /> .参数 参_文件路径, 文本型, 可空<br /> .参数 参_字节集数据, 字节集, 可空<br /> .局部变量 局_快速字节集, 快速字节集对象<br /> .局部变量 局_文件长度, 整数型<br /> .局部变量 I<br /> .局部变量 局_单个字节集, 字节集<br /> .局部变量 局_内存文件号, 整数型<br /> .局部变量 局_全部文本, 文本型<br /> .局部变量 局_已提取总数, 整数型<br /> .局部变量 II<br /> .局部变量 局_启动时间, 整数型<br /> .局部变量 局_转换用时, 文本型<br /> .局部变量 局_二次数, 整数型<br /> <br /> 局_启动时间 ＝ 取启动时间 ()<br /> .如果真 (是否为空 (参_文件路径) ＝ 真 且 是否为空 (参_字节集数据) ＝ 真)<br />     返回 (“二选一 可直接用 文件路径 或 提供字节集数据”)<br /> .如果真结束<br /> .如果真 (取反 (是否为空 (参_文件路径)))<br />     .如果真 (文件是否存在 (参_文件路径))<br />         局_快速字节集.从文件读 (参_文件路径)<br />     .如果真结束<br /> <br /> .如果真结束<br /> .如果真 (取反 (是否为空 (参_字节集数据)))<br />     局_快速字节集.添加 (参_字节集数据)<br /> .如果真结束<br /> <br /> <br /> 局_文件长度 ＝ 局_快速字节集.取长度 ()<br /> <br /> .如果 (局_文件长度 ＞ 100 × 10)<br />     局_二次数 ＝ 100<br /> .否则<br />     局_二次数 ＝ 10<br /> .如果结束<br /> <br /> 局_内存文件号 ＝ 打开内存文件 ()<br /> <br /> .变量循环首 (1, 局_文件长度, 1, I)<br />     局_已提取总数 ＝ I × 局_二次数<br />     .如果真 (局_已提取总数 ≤ 局_文件长度)<br />         .如果 (局_文件长度 － 局_已提取总数 ＜ 局_二次数)<br />             局_单个字节集 ＝ 局_快速字节集.取字节集 (局_已提取总数, 局_文件长度 － 局_已提取总数)<br />         .否则<br />             局_单个字节集 ＝ 局_快速字节集.取字节集 (局_已提取总数, 局_二次数)<br />         .如果结束<br /> <br />         .变量循环首 (1, 取字节集长度 (局_单个字节集), 1, II)<br />             写出文本 (局_内存文件号, 到文本 (到整数 (局_单个字节集 [II])) ＋ “,”)<br />         .变量循环尾 ()<br />     .如果真结束<br />     .如果真 (局_已提取总数 ＞ 局_文件长度)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .变量循环尾 ()<br /> 局_快速字节集.清除字节集 ()<br /> 移到文件首 (局_内存文件号)<br /> 局_全部文本 ＝ 读入文本 (局_内存文件号, )<br /> 关闭文件 (局_内存文件号)<br /> 局_转换用时 ＝ 到文本 ((取启动时间 () － 局_启动时间) ÷ 1000)<br /> 输出调试文本 (“转换用时:” ＋ 局_转换用时)<br /> 返回 (局_全部文本)

1843310882

丰富的歌

yke2000

zxc1612704618 发表于 2016-11-16 08:40
这头像 太66了

你这头像也不错

万物皆有定数

奉上小小红包希望笑纳

福仔

速度还算不错，至少比我自己处理的要快

zxc1612704618

这头像 太66了

E丶JavaScript

我只服你的头像 其他我不看

小李吊炸天

超级菜鸟王 发表于 2016-11-15 23:04
给力不

还行 还行

超级菜鸟王

1923943721 发表于 2016-11-15 22:54
我只服你的头像 其他我不看

给力不

hellohexiang

这个用在哪里的