如何吧编辑框的内容用计次循环写出文件不冲突

暗芒团队君君

如何吧这个文件写出来生成多个文件不冲突！求助大神帮帮忙解答下！我写不出来都是空文件夹

帅气与大侠

  

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

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
运行目录	文本型
m	整数型
w	整数型
j	整数型
欲替换文本	文本型
编辑框2内容	文本型
编辑框1内容	整数型
编辑框4内容	整数型
编辑框5内容	整数型
编辑框6内容	整数型

运行目录 ＝ 取运行目录 ()
目录_创建 (运行目录 ＋ “\etc.pak”)
目录_创建 (运行目录 ＋ “\lib_gs32.pak\gs\clone\item\charge”)  ' 创建多级目录
m ＝ 打开文件 (运行目录 ＋ “\君陌多字礼包.txt”, #改写, #无限制 )
移到文件尾 (m)
写出字节集 (m, 到字节集 (编辑框4.内容 ＋ “    ” ＋ 编辑框1.内容 ＋ #换行符 ))
关闭文件 (m)
m ＝ 打开文件 (运行目录 ＋ “\etc.pak” ＋ “/charge_item.list”, #改写, #无限制 )  ' 你这个文件路径可能有误，请自行修改
w ＝ 打开文件 (运行目录 ＋ “\etc.pak” ＋ “/item_temp_desc.list”, #改写, #无限制 )  ' 你这个文件路径可能有误，请自行修改
' 在大量循环的时候，将编辑框数据提前进行赋值，能极大提高代码执行效率
编辑框2内容 ＝ 编辑框2.内容
编辑框1内容 ＝ 编辑框1.内容
编辑框4内容 ＝ 编辑框4.内容
编辑框5内容 ＝ 编辑框5.内容
编辑框6内容 ＝ 编辑框6.内容
' 下面循环代码中空格可能不正确，请自行修改
计次循环首 (99, j)
如果真 (取文本长度 (编辑框2内容) ＝ 8)
欲替换文本 ＝ 字节集替换 ( #四字, 21, 1, 字节集_十六进制到字节集 (转16进制 (到文本 (j))))
欲替换文本 ＝ 字节集替换 (欲替换文本, 948, 1, 字节集_十六进制到字节集 (转16进制 (到文本 (j ＋ 14))))
欲替换文本 ＝ 子字节集替换 (欲替换文本, 到字节集 (“jinnang”), 到字节集 (编辑框1内容), , )
写到文件 (运行目录 ＋ “\lib_gs32.pak\gs\clone\item\charge\” ＋ 编辑框2内容 ＋ 到文本 (j) ＋ “.o”, 子字节集替换 (欲替换文本, 到字节集 (“四字测试”), 到字节集 (编辑框1内容), , ))
移到文件尾 (m)
写出文本 (m, 编辑框4内容 ＋ “，” ＋ “          ” ＋ #引号 ＋ “charge/” ＋ 编辑框2内容 ＋ #引号 ＋ “,” ＋ “          ” ＋ #引号 ＋ “金色” ＋ #引号 ＋ “,” ＋ “ 1,” ＋ “          ” ＋ 编辑框5内容 ＋ “, 张,   0,      1,      500,      0,      0,      ” ＋ #引号 ＋ #引号 ＋ #换行符 )
移到文件尾 (w)
写出文本 (w, 编辑框4内容 ＋ “ : ” ＋ 编辑框6内容)

计次循环尾 ()
' 关闭文件一定 要最后关闭，你放在循环里面关闭了，下一次因为文件没打开，导致接下来的数据写不出来，所以失败了
关闭文件 (m)
关闭文件 (w)
信息框 (“已经生成ok！直接打包即可”, 0, , )

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 运行目录, 文本型<br /> .局部变量 m, 整数型<br /> .局部变量 w, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 欲替换文本, 文本型<br /> .局部变量 编辑框2内容, 文本型<br /> .局部变量 编辑框1内容, 整数型<br /> .局部变量 编辑框4内容, 整数型<br /> .局部变量 编辑框5内容, 整数型<br /> .局部变量 编辑框6内容, 整数型<br /> <br /> 运行目录 ＝ 取运行目录 ()<br /> 目录_创建 (运行目录 ＋ “\etc.pak”)<br /> 目录_创建 (运行目录 ＋ “\lib_gs32.pak\gs\clone\item\charge”)  ' 创建多级目录<br /> <br /> <br /> m ＝ 打开文件 (运行目录 ＋ “\君陌多字礼包.txt”, #改写, #无限制)<br /> 移到文件尾 (m)<br /> 写出字节集 (m, 到字节集 (编辑框4.内容 ＋ “    ” ＋ 编辑框1.内容 ＋ #换行符))<br /> 关闭文件 (m)<br /> <br /> <br /> m ＝ 打开文件 (运行目录 ＋ “\etc.pak” ＋ “/charge_item.list”, #改写, #无限制)  ' 你这个文件路径可能有误，请自行修改<br /> w ＝ 打开文件 (运行目录 ＋ “\etc.pak” ＋ “/item_temp_desc.list”, #改写, #无限制)  ' 你这个文件路径可能有误，请自行修改<br /> <br /> <br /> ' 在大量循环的时候，将编辑框数据提前进行赋值，能极大提高代码执行效率<br /> 编辑框2内容 ＝ 编辑框2.内容<br /> 编辑框1内容 ＝ 编辑框1.内容<br /> 编辑框4内容 ＝ 编辑框4.内容<br /> 编辑框5内容 ＝ 编辑框5.内容<br /> 编辑框6内容 ＝ 编辑框6.内容<br /> <br /> ' 下面循环代码中空格可能不正确，请自行修改<br /> .计次循环首 (99, j)<br />     .如果真 (取文本长度 (编辑框2内容) ＝ 8)<br />         欲替换文本 ＝ 字节集替换 (#四字, 21, 1, 字节集_十六进制到字节集 (转16进制 (到文本 (j))))<br />         欲替换文本 ＝ 字节集替换 (欲替换文本, 948, 1, 字节集_十六进制到字节集 (转16进制 (到文本 (j ＋ 14))))<br />         欲替换文本 ＝ 子字节集替换 (欲替换文本, 到字节集 (“jinnang”), 到字节集 (编辑框1内容), , )<br /> <br />         写到文件 (运行目录 ＋ “\lib_gs32.pak\gs\clone\item\charge\” ＋ 编辑框2内容 ＋ 到文本 (j) ＋ “.o”, 子字节集替换 (欲替换文本, 到字节集 (“四字测试”), 到字节集 (编辑框1内容), , ))<br /> <br />         移到文件尾 (m)<br />         写出文本 (m, 编辑框4内容 ＋ “，” ＋ “          ” ＋ #引号 ＋ “charge/” ＋ 编辑框2内容 ＋ #引号 ＋ “,” ＋ “          ” ＋ #引号 ＋ “金色” ＋ #引号 ＋ “,” ＋ “ 1,” ＋ “          ” ＋ 编辑框5内容 ＋ “, 张,   0,      1,      500,      0,      0,      ” ＋ #引号 ＋ #引号 ＋ #换行符)<br />         移到文件尾 (w)<br />         写出文本 (w, 编辑框4内容 ＋ “ : ” ＋ 编辑框6内容)<br />     .如果真结束<br /> <br /> <br /> .计次循环尾 ()<br /> ' 关闭文件一定 要最后关闭，你放在循环里面关闭了，下一次因为文件没打开，导致接下来的数据写不出来，所以失败了<br /> 关闭文件 (m)<br /> 关闭文件 (w)<br /> 信息框 (“已经生成ok！直接打包即可”, 0, , )

暗芒团队君君

aqwvwv 发表于 2019-7-10 03:19
[e=1].版本 2

.程序集 窗口程序集_启动窗口

大佬不行啊

hongfei

想了解一下变量循环

a417765659

你可以添加是判断文件是否存在 ！