文本问题！无法写出文件

wunan2002

不知道哪里有问题
写到文件没有问题
单独写是可以写出的
但是在这里分割对比之后就无法写出了
是否文本第一家物流被分割了 所以无法在次写入内容？
还是说打开了第一家物流园.txt 还需要关闭一下在对比？
求大神指点

我想实现的代码是
判断\第一家物流园.txt 内容 里面是否有新的物流公司名称
如果有就跳过
如果没有就添加到第一家物流园.txt里面


——————————————————————以下是代码
.版本 2
文件号 ＝ 打开文件 (取运行目录 () ＋ “\第一家物流园.txt”, 1, )
文件号1 ＝ 打开文件 (取运行目录 () ＋ “\第二家物流园.txt”, 1, )
文件号2 ＝ 打开文件 (取运行目录 () ＋ “\第三家物流园.txt”, 1, )
文件内容 ＝ 读入文本 (文件号, )
文件内容1 ＝ 读入文本 (文件号1, )
文件内容2 ＝ 读入文本 (文件号2, )
内容数组 ＝ 分割文本 (文件内容, “ ”, )
内容数组1 ＝ 分割文本 (文件内容1, “ ”, )
内容数组2 ＝ 分割文本 (文件内容2, “ ”, )
物流公司名称 ＝ 编辑框_物流名称.内容
.计次循环首 (取数组成员数 (内容数组), x)
    文本1成员数 ＝ 内容数组 [x]
    .判断开始 (物流公司名称 ＝ 文本1成员数)
        跳出循环 ()
    .默认
        写到文件 (取运行目录 () ＋ “\第一家物流园.txt”, 读入文件 (取运行目录 () ＋ “\第一家物流园.txt”) ＋ 到字节集 (编辑框_物流名称.内容 ＋ “”))
    .判断结束
.计次循环尾 ()

Decat

  

文件号 ＝ 打开文件 (取运行目录 () ＋ “\第一家物流园.txt”, 1, )
文件号1 ＝ 打开文件 (取运行目录 () ＋ “\第二家物流园.txt”, 1, )
文件号2 ＝ 打开文件 (取运行目录 () ＋ “\第三家物流园.txt”, 1, )
文件内容 ＝ 读入文本 (文件号, )
文件内容1 ＝ 读入文本 (文件号1, )
文件内容2 ＝ 读入文本 (文件号2, )
内容数组 ＝ 分割文本 (文件内容, “ ”, )
内容数组1 ＝ 分割文本 (文件内容1, “ ”, )
内容数组2 ＝ 分割文本 (文件内容2, “ ”, )
物流公司名称 ＝ 编辑框_物流名称.内容
计次循环首 (取数组成员数 (内容数组), x)
文本1成员数 ＝ 内容数组 [x]
判断 (物流公司名称 ＝ 文本1成员数)
跳出循环 ()
写到文件 (取运行目录 () ＋ “\第一家物流园.txt”, 读入字节集 (文件号) ＋ 到字节集 (编辑框_物流名称.内容 ＋ “”))

计次循环尾 ()

.版本 2<br /> <br /> 文件号 ＝ 打开文件 (取运行目录 () ＋ “\第一家物流园.txt”, 1, )<br /> 文件号1 ＝ 打开文件 (取运行目录 () ＋ “\第二家物流园.txt”, 1, )<br /> 文件号2 ＝ 打开文件 (取运行目录 () ＋ “\第三家物流园.txt”, 1, )<br /> 文件内容 ＝ 读入文本 (文件号, )<br /> 文件内容1 ＝ 读入文本 (文件号1, )<br /> 文件内容2 ＝ 读入文本 (文件号2, )<br /> 内容数组 ＝ 分割文本 (文件内容, “ ”, )<br /> 内容数组1 ＝ 分割文本 (文件内容1, “ ”, )<br /> 内容数组2 ＝ 分割文本 (文件内容2, “ ”, )<br /> 物流公司名称 ＝ 编辑框_物流名称.内容<br /> .计次循环首 (取数组成员数 (内容数组), x)<br />     文本1成员数 ＝ 内容数组 [x]<br />     .判断开始 (物流公司名称 ＝ 文本1成员数)<br />         跳出循环 ()<br />     .默认<br />         写到文件 (取运行目录 () ＋ “\第一家物流园.txt”, 读入字节集(文件号) ＋ 到字节集 (编辑框_物流名称.内容 ＋ “”))<br />     .判断结束<br /> <br /> .计次循环尾 ()

补充内容 (2017-12-15 13:28):
错了错了。。

Decat

因为你这个文件已经打开了所以不能在向里面写数据，得先关闭文件。

wunan2002

AloneLove 发表于 2017-12-15 13:25
[e=2].版本 2

文件号 ＝ 打开文件 (取运行目录 () ＋ “\第一家物流园.txt”, 1, )

错误(10048): “读入字节集”库命令的参数“欲读入数据的长度”不能接受空数据。

Decat

wunan2002 发表于 2017-12-15 13:31
错误(10048): “读入字节集”库命令的参数“欲读入数据的长度”不能接受空数据。

把源码发给我帮你修改

wunan2002

AloneLove 发表于 2017-12-15 13:31
把源码发给我帮你修改

怎么发给你?

Decat

wunan2002 发表于 2017-12-15 13:35
怎么发给你?

QQ207422175

wunan2002

有大神解答吗

夏天的雨

打开文件这个命令设置读写  或者用读入文件

wunan2002

感谢大家 我已经知道怎么回事了
在跳出循环 前面加一个 关闭文件  上面的TXT 文件打开了之后没有关闭所以写不进去
已经解决了 谢谢大家