带进度条写到文件工具

.子程序 进度写到文件, 逻辑型, 公开, 写到文件带进度,【参数1：整数型，进度】
.参数 文件目录, 文本型
.参数 数据, 字节集, , 如果长度不够会自动补位
.参数 指针, 子程序指针, 可空
.局部变量 a, 字节集, , "0"
.局部变量 b, 整数型
.局部变量 c, 文本型
.局部变量 d, 整数型

c ＝ 取文本左边 (到文本 (取字节集长度 (数据)), 2)
.如果真 (c ≠ “00”)
.计次循环首 (100 － 到整数 (c), d)
数据 ＝ 数据 ＋ { 100 }
.计次循环尾 ()
.如果真结束
平分字节集 (数据, 100, a)
.计次循环首 (100, b)
写到文件 (文件目录, 读入文件 (文件目录) ＋ a [b])
调用子程序 (指针, , , b)
.计次循环尾 ()
返回 (读入文件 (文件目录) ＝ 数据)