易语言逻辑问题

火炮兰

麻烦大家帮忙看看下面代码，读取文本坐标，坐标有7行，每次读取一行，在拆分成XYZ，写入内存，
可是下面的代码，不知道为什么直接执行最后一行的，跳过了前面6次的？ 我测试删除最后一行，也是只执行最后一行
* “当前处理第1行原始：-1154，1860，301”
* “X=-1154” | “Y=1860” | “Z=301”
* “第1行写入完成，等待60秒进入下一行”
* “当前处理第2行原始：-1125，1782，280”
* “X=-1125” | “Y=1782” | “Z=280”
* “第2行写入完成，等待60秒进入下一行”
* “当前处理第3行原始：-505，1350，54”
* “X=-505” | “Y=1350” | “Z=54”
* “第3行写入完成，等待60秒进入下一行”
* “当前处理第4行原始：-1875，445，208”
* “X=-1875” | “Y=445” | “Z=208”
* “第4行写入完成，等待60秒进入下一行”
* “当前处理第5行原始：-1972，473，207”
* “X=-1972” | “Y=473” | “Z=207”
* “第5行写入完成，等待60秒进入下一行”
* “当前处理第6行原始：-2055，1278，280”
* “X=-2055” | “Y=1278” | “Z=280”
* “第6行写入完成，等待60秒进入下一行”
* “所有坐标行处理完毕”
’////////////////////////////////////////////////////////////////////////////////

  

坐标 ＝ 到文本 (读入文件 (“D:\编程工具\e语言\自己写好的易语言源码\蜀山初章，开宝箱\宝箱坐标.txt”))
按行分割 ＝ 分割文本 (坐标, #换行符, )
计次循环首 (取数组成员数 (按行分割), i)
单行文本 ＝ 删首尾空 (按行分割 [i])
如果真 (单行文本 ＝ “”)
到循环尾 ()

' 统一转中文逗号分割
' 单行文本 ＝ 替换 (单行文本, “,”, “，”)
单行坐标 ＝ 分割文本 (单行文本, “，”, )
调试输出 (“当前处理第” ＋ 到文本 (i) ＋ “行原始：” ＋ 单行文本)
如果真 (取数组成员数 (单行坐标) ＜ 3)
调试输出 (“第” ＋ 到文本 (i) ＋ “行坐标格式错误，跳过本行”)
pj.系统_延时 (1000)
到循环尾 ()

x ＝ 删首尾空 (单行坐标 [1])
y ＝ 删首尾空 (单行坐标 [2])
z ＝ 删首尾空 (单行坐标 [3])
调试输出 (“X=” ＋ x, “Y=” ＋ y, “Z=” ＋ z)
' 放大100倍替代拼接00，完美支持负数坐标
浮点X ＝ 到小数 (x) × 100
浮点Y ＝ 到小数 (y) × 100
z1 ＝ 到整数 (z) × 100 ＋ 50
浮点Z ＝ 到小数 (z1)
' 捕获内存写入错误，防止跳过延时
' 置错误码(0)
内存.写小数型 (宝箱X ＋ 十六到十 (“1D0”), 浮点X)
内存.写小数型 (宝箱X ＋ 十六到十 (“1D4”), 浮点Y)
内存.写小数型 (宝箱X ＋ 十六到十 (“1D8”), 浮点Z)
如果真 (取错误码 () ≠ 0)
调试输出 (“内存写入失败，错误码：” ＋ 到文本 (取错误码 ()))

调试输出 (“第” ＋ 到文本 (i) ＋ “行写入完成，等待60秒进入下一行”)
pj.系统_延时 (60000)
计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> 坐标 ＝ 到文本 (读入文件 (“D:\编程工具\E语言\自己写好的<a href="http://bbs.125.la/forum-98-1.html" rel="nofollow" target="_blank" class="relatedlink">易语言源码</a>\蜀山初章，开宝箱\宝箱坐标.txt”))<br /> 按行分割 ＝ 分割文本 (坐标, #换行符, )<br /> .计次循环首 (取数组成员数 (按行分割), i)<br />     单行文本 ＝ 删首尾空 (按行分割 <i>)<br />     .如果真 (单行文本 ＝ “”)<br />         到循环尾 ()<br />     .如果真结束<br /> <br />     ' 统一转中文逗号分割<br />     ' 单行文本 ＝ 替换 (单行文本, “,”, “，”)<br />     单行坐标 ＝ 分割文本 (单行文本, “，”, )<br /> <br />     调试输出 (“当前处理第” ＋ 到文本 (i) ＋ “行原始：” ＋ 单行文本)<br />     .如果真 (取数组成员数 (单行坐标) ＜ 3)<br />         调试输出 (“第” ＋ 到文本 (i) ＋ “行坐标格式错误，跳过本行”)<br />         pj.系统_延时 (1000)<br />         到循环尾 ()<br />     .如果真结束<br /> <br />     x ＝ 删首尾空 (单行坐标 [1])<br />     y ＝ 删首尾空 (单行坐标 [2])<br />     z ＝ 删首尾空 (单行坐标 [3])<br />     调试输出 (“X=” ＋ x, “Y=” ＋ y, “Z=” ＋ z)<br /> <br />     ' 放大100倍替代拼接00，完美支持负数坐标<br />     浮点X ＝ 到小数 (x) × 100<br />     浮点Y ＝ 到小数 (y) × 100<br />     z1 ＝ 到整数 (z) × 100 ＋ 50<br />     浮点Z ＝ 到小数 (z1)<br /> <br />     ' 捕获内存写入错误，防止跳过延时<br />     ' 置错误码(0)<br /> <br />     内存.写小数型 (宝箱X ＋ 十六到十 (“1D0”), 浮点X)<br />     内存.写小数型 (宝箱X ＋ 十六到十 (“1D4”), 浮点Y)<br />     内存.写小数型 (宝箱X ＋ 十六到十 (“1D8”), 浮点Z)<br />     .如果真 (取错误码 () ≠ 0)<br />         调试输出 (“内存写入失败，错误码：” ＋ 到文本 (取错误码 ()))<br />     .如果真结束<br /> <br />     调试输出 (“第” ＋ 到文本 (i) ＋ “行写入完成，等待60秒进入下一行”)<br />     pj.系统_延时 (60000)<br /> .计次循环尾 ()

高先生

盲猜跳到循环尾了

是永乐哟

添加调试输出，看一下到哪里了

lishengliang

你这调试输出得不是6次么 说实话没明白你在问什么

补充内容 (2026-6-30 12:53):
如果你想存这6行坐标 也不能只存在xyz里面啊 你这xyz也不是数组   要不 xyz改成整数数组 如果是数不应该是 用加入成员么  

Marvin

  

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

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

变量名	类 型	静态	数组	备 注
坐标文本	文本型
行数组	文本型		0
i	整数型
单行	文本型
坐标数组	文本型		0
x	文本型
y	文本型
z	文本型
浮点X	小数型
浮点Y	小数型
浮点Z	小数型
pid	整数型
jz	整数型

坐标文本 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\宝箱坐标.txt”))
行数组 ＝ 分割文本 (坐标文本, #换行符, )
调试输出 (“总行数: ” ＋ 到文本 (取数组成员数 (行数组)))
pid ＝ 进程_名取ID (“game.exe”)
jz ＝ 内存_读整数型 (pid, 进制_十六到十 (“123456”))
计次循环首 (取数组成员数 (行数组), i)
单行 ＝ 删首尾空 (行数组 [i])
如果真 (单行 ＝ “”)
到循环尾 ()

坐标数组 ＝ 分割文本 (单行, “，”, )
如果真 (取数组成员数 (坐标数组) ＜ 3)
调试输出 (“第” ＋ 到文本 (i) ＋ “行格式错误，跳过”)
到循环尾 ()

x ＝ 删首尾空 (坐标数组 [1])
y ＝ 删首尾空 (坐标数组 [2])
z ＝ 删首尾空 (坐标数组 [3])
浮点X ＝ 到小数 (x) × 100
浮点Y ＝ 到小数 (y) × 100
浮点Z ＝ 到小数 (z) × 100 ＋ 50
调试输出 (“写入第” ＋ 到文本 (i) ＋ “行: X=” ＋ x ＋ “, Y=” ＋ y ＋ “, Z=” ＋ z)
内存_写小数型 (pid, jz ＋ 进制_十六到十 (“1D0”), 浮点X)
内存_写小数型 (pid, jz ＋ 进制_十六到十 (“1D4”), 浮点Y)
内存_写小数型 (pid, jz ＋ 进制_十六到十 (“1D8”), 浮点Z)
调试输出 (“等待60秒...”)
延时 (60000)
计次循环尾 ()
调试输出 (“所有坐标处理完毕”)

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 坐标文本, 文本型<br /> .局部变量 行数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 单行, 文本型<br /> .局部变量 坐标数组, 文本型, , "0"<br /> .局部变量 x, 文本型<br /> .局部变量 y, 文本型<br /> .局部变量 z, 文本型<br /> .局部变量 浮点X, 小数型<br /> .局部变量 浮点Y, 小数型<br /> .局部变量 浮点Z, 小数型<br /> .局部变量 pid, 整数型<br /> .局部变量 jz, 整数型<br /> <br /> 坐标文本 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\宝箱坐标.txt”))<br /> 行数组 ＝ 分割文本 (坐标文本, #换行符, )<br /> 调试输出 (“总行数: ” ＋ 到文本 (取数组成员数 (行数组)))<br /> <br /> pid ＝ 进程_名取ID (“game.exe”)<br /> jz ＝ 内存_读整数型 (pid, 进制_十六到十 (“123456”))<br /> <br /> .计次循环首 (取数组成员数 (行数组), i)<br />     单行 ＝ 删首尾空 (行数组 <i>)<br />     .如果真 (单行 ＝ “”)<br />         到循环尾 ()<br />     .如果真结束<br /> <br />     坐标数组 ＝ 分割文本 (单行, “，”, )<br />     .如果真 (取数组成员数 (坐标数组) ＜ 3)<br />         调试输出 (“第” ＋ 到文本 (i) ＋ “行格式错误，跳过”)<br />         到循环尾 ()<br />     .如果真结束<br /> <br />     x ＝ 删首尾空 (坐标数组 [1])<br />     y ＝ 删首尾空 (坐标数组 [2])<br />     z ＝ 删首尾空 (坐标数组 [3])<br /> <br />     浮点X ＝ 到小数 (x) × 100<br />     浮点Y ＝ 到小数 (y) × 100<br />     浮点Z ＝ 到小数 (z) × 100 ＋ 50<br /> <br />     调试输出 (“写入第” ＋ 到文本 (i) ＋ “行: X=” ＋ x ＋ “, Y=” ＋ y ＋ “, Z=” ＋ z)<br />     内存_写小数型 (pid, jz ＋ 进制_十六到十 (“1D0”), 浮点X)<br />     内存_写小数型 (pid, jz ＋ 进制_十六到十 (“1D4”), 浮点Y)<br />     内存_写小数型 (pid, jz ＋ 进制_十六到十 (“1D8”), 浮点Z)<br /> <br />     调试输出 (“等待60秒...”)<br />     延时 (60000)<br /> .计次循环尾 ()<br /> <br /> 调试输出 (“所有坐标处理完毕”)

试下这个看看

RainCharm

  

坐标 ＝ 到文本 (读入文件 (“D:\编程工具\e语言\自己写好的易语言源码\蜀山初章，开宝箱\宝箱坐标.txt”))
分割 ＝ 分割文本 (坐标, #换行符, )
计次循环首 (取数组成员数 (分割), i)
单行坐标 ＝ 分割文本 (删首尾空 (分割 [i]), “，”, )
如果 (取数组成员数 (单行坐标) ＜ 3)
调试输出 (“第” ＋ 到文本 (i) ＋ “行坐标格式错误，跳过本行”)


浮点X ＝ 到小数 (删首尾空 (单行坐标 [1])) × 100
浮点Y ＝ 到小数 (删首尾空 (单行坐标 [2])) × 100
浮点Z ＝ 到小数 (到整数 (删首尾空 (单行坐标 [3])) × 100 ＋ 50)
内存.写小数型 (宝箱X ＋ 十六到十 (“1D0”), 浮点X)
内存.写小数型 (宝箱X ＋ 十六到十 (“1D4”), 浮点Y)
内存.写小数型 (宝箱X ＋ 十六到十 (“1D8”), 浮点Z)

调试输出 (“第” ＋ 到文本 (i) ＋ “行写入完成，等待60秒进入下一行”)
程序_延时 (60, 1)
计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> 坐标 ＝ 到文本 (读入文件 (“D:\编程工具\e语言\自己写好的易语言源码\蜀山初章，开宝箱\宝箱坐标.txt”))<br /> 分割 ＝ 分割文本 (坐标, #换行符, )<br /> <br /> .计次循环首 (取数组成员数 (分割), i)<br />     单行坐标 ＝ 分割文本 (删首尾空 (分割 <i>), “，”, )<br /> <br />     .如果 (取数组成员数 (单行坐标) ＜ 3)<br />         调试输出 (“第” ＋ 到文本 (i) ＋ “行坐标格式错误，跳过本行”)<br />     .否则<br /> <br />         浮点X ＝ 到小数 (删首尾空 (单行坐标 [1])) × 100<br />         浮点Y ＝ 到小数 (删首尾空 (单行坐标 [2])) × 100<br />         浮点Z ＝ 到小数 (到整数 (删首尾空 (单行坐标 [3])) × 100 ＋ 50)<br /> <br />         内存.写小数型 (宝箱X ＋ 十六到十 (“1D0”), 浮点X)<br />         内存.写小数型 (宝箱X ＋ 十六到十 (“1D4”), 浮点Y)<br />         内存.写小数型 (宝箱X ＋ 十六到十 (“1D8”), 浮点Z)<br /> <br />     .如果结束<br /> <br />     调试输出 (“第” ＋ 到文本 (i) ＋ “行写入完成，等待60秒进入下一行”)<br />     程序_延时 (60, 1)<br /> <br /> .计次循环尾 ()

这样写就行了