php写入文件变慢,处理txt文件越来越慢

.版本 2

.支持库 spec

.如果真 (信息框 (“此操作将直接替换爆率文件夹下所有文件，是否继续”, #警告图标 ＋ #是否钮, , ) ＝ #是钮)

路径 ＝ 寻找文件 (爆率文件编辑框.内容 ＋ “\*.txt”, )

.判断循环首 (路径 ≠ “”)

文本 ＝ 到文本 (读入文件 (爆率文件编辑框.内容 ＋ “\” ＋ 路径))

清除数组 (分割)

分割 ＝ 分割文本 (文本, #换行符, )

.计次循环首 (取数组成员数 (分割), a)

处理事件 ()

.判断开始 (分割 [a] ≠ “” 且 取文本左边 (分割 [a], 1) ＝ “1”)  ' 防止空格数据出现，并且左边第一位数字为1

爆率文本 ＝ 文本取指定内容 (分割 [a], “1/”, “ ”)  ' 取“1/”后面到空格之时的数值

物品文本 ＝ 文本_取右边 (分割 [a], “ ”, , )  ' 取出物品名称

计算 ＝ 四舍五入 (到数值 (爆率文本) × 到数值 (编辑框1.内容) ÷ 100, 1)

.如果真 (计算 ≤ 1)

计算 ＝ 1

.如果真结束

.如果真 (计算 ＞ 1 且 计算 ＜ 2)

计算 ＝ 2

.如果真结束

.如果真 (计算 ≥ 2)

计算 ＝ 四舍五入 (计算, 0)

.如果真结束

爆率文本 ＝ 到文本 (计算)  ' 把“1/”后面到空格之时的数值*百分比

完整爆率 ＝ “1/” ＋ 爆率文本 ＋ “ ” ＋ 物品文本  ' 重新组合爆率+物品名称

.默认

完整爆率 ＝ 分割 [a]

.判断结束

' 开始重新组合

.判断开始 (组合文本 ＝ “”)

组合文本 ＝ 完整爆率  ' 此代码防止组合文本第一行出现空格

.默认

组合文本 ＝ 组合文本 ＋ #换行符 ＋ 完整爆率

.判断结束

.计次循环尾 ()

写到文件 (爆率文件编辑框.内容 ＋ “\” ＋ 路径, {  })  ' 清空文件

写到文件 (爆率文件编辑框.内容 ＋ “\” ＋ 路径, 到字节集 (组合文本))  ' 写入新文件

b ＝ b ＋ 1

调试输出 (b)

路径 ＝ 寻找文件 (, )

.判断循环尾 ()

信息框 (“全部文件修改完毕”, #信息图标, , )