帮我看一下调用参数为啥文本写不进去

zhangli9271 · 发表于昨天 20:37

子程序名	返回值类型	公开	备注
_按钮1_被单击

变量名	类型	静态	数组	备注
赋值秒数	整数型
现行时间	日期时间型

现行时间＝取现行时间 ()
赋值秒数＝ 10000
年卡战将.等待时间＝增减时间 (现行时间, #秒, 赋值秒数)
调试输出 (年卡战将.等待时间)
文本记录时间 (取运行目录 () ＋ “\刷新时间1.txt”, “年卡战将”, “年卡战将|” ＋到文本 (年卡战将.等待时间))

子程序名	返回值类型	公开	备注
_按钮2_被单击

变量名	类型	静态	数组	备注
i	整数型

测试 (i, 年卡战将, “ 年卡战将”, 8000)

子程序名	返回值类型	公开	备注
测试
参数名	类型	参考	可空	数组	备注
i
怪名	怪物数组
记录名	文本型
赋值秒数	整数型

变量名	类型	静态	数组	备注
x	整数型
y	整数型
现行时间	日期时间型

现行时间＝取现行时间 ()
怪名.等待时间＝增减时间 (现行时间, #秒, 赋值秒数)
调试输出 (怪名.等待时间)
文本记录时间 (取运行目录 () ＋ “\刷新时间1.txt”, 记录名, 记录名＋ “|” ＋到文本 (怪名.等待时间))

子程序名	返回值类型	公开	备注
文本记录时间	逻辑型
参数名	类型	参考	可空	数组	备注
文件路径	文本型
欲查找的文本	文本型
欲更新的内容	文本型

变量名	类型	静态	数组	备注
文本内容	文本型
分割的文本	文本型		0
i	整数型
位置	整数型
找到文本	文本型
更新内容	文本型

判断 (文件_取文本编码 (文件路径) ＝ 1) ' 取出文件编码为1是Utf8编码

文本内容＝编码_Utf8到Ansi (读入文件 (文件路径))

文本内容＝到文本 (读入文件 (文件路径))
分割的文本＝分割文本 (文本内容, #换行符, )
调试输出 (分割的文本)

计次循环首 (取数组成员数 (分割的文本), i)

位置＝寻找文本 (分割的文本 [i], 欲查找的文本, , 假)

调试输出 (位置)

如果真 (位置 ≠ -1)

找到文本＝取文本中间 (分割的文本 [i], 1, 取文本长度 (分割的文本 [i]) －位置＋ 1)

分割的文本 [i] ＝欲更新的内容

计次循环尾 ()
更新内容＝数组_合并 (分割的文本, #换行符 ) ' 这里更新完再写出到文件就行了
调试输出 (更新内容)
返回 (写到文件 (文件路径, 到字节集 (更新内容)))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br />
.支持库 spec<br />
<br />
.子程序 _按钮1_被单击<br />
.局部变量 赋值秒数, 整数型<br />
.局部变量 现行时间, 日期时间型<br />
<br />
现行时间 ＝ 取现行时间 ()<br />
赋值秒数 ＝ 10000<br />
年卡战将.等待时间 ＝ 增减时间 (现行时间, #秒, 赋值秒数)<br />
调试输出 (年卡战将.等待时间)<br />
文本记录时间 (取运行目录 () ＋ “\刷新时间1.txt”, “年卡战将”, “年卡战将|” ＋ 到文本 (年卡战将.等待时间))<br />
<br />
.子程序 _按钮2_被单击<br />
.局部变量 i, 整数型<br />
<br />
测试 (i, 年卡战将, “ 年卡战将”, 8000)<br />
<br />
.子程序 测试<br />
.参数 i<br />
.参数 怪名, 怪物数组<br />
.参数 记录名, 文本型<br />
.参数 赋值秒数, 整数型<br />
.局部变量 x, 整数型<br />
.局部变量 y, 整数型<br />
.局部变量 现行时间, 日期时间型<br />
<br />
现行时间 ＝ 取现行时间 ()<br />
怪名.等待时间 ＝ 增减时间 (现行时间, #秒, 赋值秒数)<br />
调试输出 (怪名.等待时间)<br />
文本记录时间 (取运行目录 () ＋ “\刷新时间1.txt”, 记录名, 记录名 ＋ “|” ＋ 到文本 (怪名.等待时间))<br />
<br />
.子程序 文本记录时间, 逻辑型<br />
.参数 文件路径, 文本型<br />
.参数 欲查找的文本, 文本型<br />
.参数 欲更新的内容, 文本型<br />
.局部变量 文本内容, 文本型<br />
.局部变量 分割的文本, 文本型, , "0"<br />
.局部变量 i, 整数型<br />
.局部变量 位置, 整数型<br />
.局部变量 找到文本, 文本型<br />
.局部变量 更新内容, 文本型<br />
<br />
.判断开始 (文件_取文本编码 (文件路径) ＝ 1)  ' 取出文件编码 为1是Utf8编码<br />
    文本内容 ＝ 编码_Utf8到Ansi (读入文件 (文件路径))<br />
.默认<br />
    文本内容 ＝ 到文本 (读入文件 (文件路径))<br />
.判断结束<br />
分割的文本 ＝ 分割文本 (文本内容, #换行符, )<br />
调试输出 (分割的文本)<br />
.计次循环首 (取数组成员数 (分割的文本), i)<br />
    位置 ＝ 寻找文本 (分割的文本 <i>, 欲查找的文本, , 假)<br />
    调试输出 (位置)<br />
    .如果真 (位置 ≠ -1)<br />
        找到文本 ＝ 取文本中间 (分割的文本 <i>, 1, 取文本长度 (分割的文本 <i>) － 位置 ＋ 1)<br />
        分割的文本 <i> ＝ 欲更新的内容<br />
    .如果真结束<br />
<br />
.计次循环尾 ()<br />
更新内容 ＝ 数组_合并 (分割的文本, #换行符)  ' 这里更新完再写出到文件就行了<br />
调试输出 (更新内容)<br />
返回 (写到文件 (文件路径, 到字节集 (更新内容)))

上面是代码：
TXT 文本内容是：
传奇部落|2025年2月12日0时42分50秒
年卡战将|2025年2月15日23时15分2秒

按钮一可以找到文本，并且把改好的时间，文本替换掉。
按钮一调试输出
* [2025年2月15日23时20分47秒]
* 数组:2{“传奇部落|2025年2月12日0时42分50秒”,“年卡战将|2025年2月15日23时15分2秒”}
* -1
* 1
* “传奇部落|2025年2月12日0时42分50秒
年卡战将|2025年2月15日23时20分47秒”

按钮二用参数调用，就找不到文本的位置，替换不了文本，1代表找到文本的位置，-1找不到。想不通哪里出错了，还望指点一二。
按钮二调试输出
* [2025年2月15日22时50分1秒]
* 数组:2{“传奇部落|2025年2月12日0时42分50秒”,“年卡战将|2025年2月15日23时20分47秒”}
* -1
* -1
* “传奇部落|2025年2月12日0时42分50秒
年卡战将|2025年2月15日23时20分47秒”

测试111.e (959.23 KB, 下载次数: 1)