求帮助

nhwsyyy

大家好 我刚学易语言没多久  我想分割文本并将分割的文本写入一个新创建的文本  结果提示出错    可以帮帮忙么     第二个图片是文本内容

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
文件号	整数型
读文本	文本型
返回文本	文本型	0
行数	整数型
i	整数型
返回文本2	文本型	0

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

文件是否存在 (“C:\Users\哈哈\Desktop\处理完成---文本截取2.txt”)
文件号 ＝ 打开文件 (“C:\Users\哈哈\Desktop\处理完成---文本截取2.txt”, , )
调试输出 (文件号)
读文本 ＝ 读入文本 (文件号, )
调试输出 (读文本)
文本_分割文本 (读文本, #换行符, , 返回文本)
调试输出 (返回文本)
行数 ＝ 文本_分割文本 (读文本, #换行符, , 返回文本)
计次循环首 (行数, i)
文本_分割文本 (返回文本 [i], “----”, , 返回文本2)
写到文件 (取特定目录 (3) ＋ “\哈哈\新建文本文档.txt”, 读入文件 (取特定目录 (3) ＋ “\哈哈\新建文本文档.txt”) ＋ 到字节集 (返回文本2 [i]))
计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 spec<br /> .支持库 shell<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 文件号, 整数型<br /> .程序集变量 读文本, 文本型<br /> .程序集变量 返回文本, 文本型, , "0"<br /> .程序集变量 行数, 整数型<br /> .程序集变量 i, 整数型<br /> .程序集变量 返回文本2, 文本型, , "0"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 文件是否存在 (“C:\Users\哈哈\Desktop\处理完成---文本截取2.txt”)<br /> <br /> <br /> 文件号 ＝ 打开文件 (“C:\Users\哈哈\Desktop\处理完成---文本截取2.txt”, , )<br /> 调试输出 (文件号)<br /> <br /> 读文本 ＝ 读入文本 (文件号, )<br /> <br /> <br /> 调试输出 (读文本)<br /> 文本_分割文本 (读文本, #换行符, , 返回文本)<br /> 调试输出 (返回文本)<br /> 行数 ＝ 文本_分割文本 (读文本, #换行符, , 返回文本)<br /> <br /> <br /> .计次循环首 (行数, i)<br />     文本_分割文本 (返回文本 <i>, “----”, , 返回文本2)<br />     写到文件 (取特定目录 (3) ＋ “\哈哈\新建文本文档.txt”, 读入文件 (取特定目录 (3) ＋ “\哈哈\新建文本文档.txt”) ＋ 到字节集 (返回文本2 <i>))<br /> <br /> <br /> .计次循环尾 ()

大司命

  

' 文件是否存在 (“C:\Users\哈哈\Desktop\处理完成---文本截取2.txt”)
文件号 ＝ 打开文件 (“C:\Users\哈哈\Desktop\处理完成---文本截取2.txt”, , )
调试输出 (文件号)
读文本 ＝ 读入文本 (文件号, )
调试输出 (读文本)
关闭文件 (文件号)  ' ***
' 文本_分割文本 (读文本, #换行符, , 返回文本)
行数 ＝ 文本_分割文本 (读文本, #换行符, , 返回文本)
调试输出 (返回文本)
计次循环首 (行数, i)
文本_分割文本 (返回文本 [ i ], “----”, , 返回文本2)
如果真 (取数组成员数 (返回文本2) ≥ 2)
写到文件 (取特定目录 (3) ＋ “\哈哈\新建文本文档.txt”, 读入文件 (取特定目录 (3) ＋ “\哈哈\新建文本文档.txt”) ＋ 到字节集 (返回文本 [ i ]))

计次循环尾 ()

.版本 2<br /> <br /> ' 文件是否存在 (“C:\Users\哈哈\Desktop\处理完成---文本截取2.txt”)<br /> 文件号 ＝ 打开文件 (“C:\Users\哈哈\Desktop\处理完成---文本截取2.txt”, , )<br /> 调试输出 (文件号)<br /> 读文本 ＝ 读入文本 (文件号, )<br /> 调试输出 (读文本)<br /> 关闭文件 (文件号)  ' ***<br /> ' 文本_分割文本 (读文本, #换行符, , 返回文本)<br /> 行数 ＝ 文本_分割文本 (读文本, #换行符, , 返回文本)<br /> 调试输出 (返回文本)<br /> .计次循环首 (行数, i)<br />     文本_分割文本 (返回文本 [ i ], “----”, , 返回文本2)<br />     .如果真 (取数组成员数 (返回文本2) ≥ 2)<br />         写到文件 (取特定目录 (3) ＋ “\哈哈\新建文本文档.txt”, 读入文件 (取特定目录 (3) ＋ “\哈哈\新建文本文档.txt”) ＋ 到字节集 (返回文本 [ i ]))<br />     .如果真结束<br /> .计次循环尾 ()

nhwsyyy

大司命 发表于 2023-7-24 20:05
[e=5].版本 2

' 文件是否存在 (“C:%users\哈哈\Desktop\处理完成---文本截取2.txt”)

谢谢哥  我明白我哪里错了