TC官方合作论坛

标题: 求助，大家帮我看看是不是我哪里写错了 [打印本页]

作者: 迷糊咖啡厅 时间: 2014-8-21 13:55
标题: 求助，大家帮我看看是不是我哪里写错了
空间 NPC查询
//默认空间

功能初始化()
遍历(i=-200;i<3000;i++)

      文件路径=系统.获取程序路径()&"data\npc\\"

      如果(文件.是否存在(文件路径&i.txt))

         变量单行内容,行数,单个字段

         源串=文件.读文件(文件路径)
         字符串.分割(源串,"\r\n",单行内容)
         数组空间.大小(单行内容,行数)

         表格.设置大小("表格0",行数+1,9)

         遍历(M=0;M<行数;M++)
            字符串.分割(单行内容[i],",",单个字段)
            表格.设置内容("表格0",M+1,0,单个字段[0])
            表格.设置内容("表格0",M+1,1,单个字段[1])
            表格.设置内容("表格0",M+1,2,单个字段[2])
            表格.设置内容("表格0",M+1,3,单个字段[3])
            表格.设置内容("表格0",M+1,4,单个字段[4])
            表格.设置内容("表格0",M+1,5,单个字段[5])
            表格.设置内容("表格0",M+1,6,单个字段[6])
            表格.设置内容("表格0",M+1,7,单个字段[7])
            表格.设置内容("表格0",M+1,8,单个字段[8])
         遍历结束
      如果结束
遍历结束
功能结束

空间结束
//空间结束语句

***************************************
我大致的说明一下
这个程序，每次打开以后，读取  同目录下的/data/npc/【x】.txt文档。x是-200到3000
读取完后，显示在表格0里

我写完了，并且在  同目录下的/data/npc/ 目录下建了3个txt文档（都是有内容的）
运行后，一个字都没有显示
求助各位，看看是不是我哪里写错了？

作者: rainshine 时间: 2014-8-21 14:14
读文件还要打开的啊= =。。。。。BOOL WINAPI ReadFile(
  _In_       HANDLE hFile,
  _Out_       LPVOID lpBuffer,
  _In_       DWORD nNumberOfBytesToRead,
  _Out_opt_ LPDWORD lpNumberOfBytesRead,
  _Inout_opt_  LPOVERLAPPED lpOverlapped
);
hFile= =。

作者: 迷糊咖啡厅 时间: 2014-8-21 14:24

rainshine 发表于 2014-8-21 14:14
读文件还要打开的啊= =。。。。。BOOL WINAPI ReadFile(
_In_ HANDLE hFile,
_Out_ LPV ...

功能初始化()
//这里添加你要执行的代码
文件路径=系统.获取程序路径()&"data.txt"

如果(文件.是否存在(文件路径))

      变量单行内容,行数,单个字段

      源串=文件.读文件(文件路径)
      字符串.分割(源串,"\r\n",单行内容)
      数组空间.大小(单行内容,行数)

      表格.设置大小("表格0",行数+1,9)

      遍历(i=0;i<行数;i++)
         字符串.分割(单行内容,",",单个字段)
         表格.设置内容("表格0",i+1,0,单个字段[0])
         表格.设置内容("表格0",i+1,1,单个字段[1])
         表格.设置内容("表格0",i+1,2,单个字段[2])
         表格.设置内容("表格0",i+1,3,单个字段[3])
         表格.设置内容("表格0",i+1,4,单个字段[4])
         表格.设置内容("表格0",i+1,5,单个字段[5])
         表格.设置内容("表格0",i+1,6,单个字段[6])
         表格.设置内容("表格0",i+1,7,单个字段[7])
         表格.设置内容("表格0",i+1,8,单个字段[8])
      遍历结束
如果结束
功能结束

*****************************************

一楼写的那个就是根据这个改编的
这个好像没有你说的那个打开的步骤呀
作者: 贱哥 时间: 2014-8-21 14:27
不顶楼上
下面是你的代码片段

遍历(i=-200;i<3000;i++) //这个地方I都-200开始



      文件路径=系统.获取程序路径()&"data\npc\\"



      如果(文件.是否存在(文件路径&i.txt))



         变量单行内容,行数,单个字段



         源串=文件.读文件(文件路径)

         字符串.分割(源串,"\r\n",单行内容)

         数组空间.大小(单行内容,行数)



         表格.设置大小("表格0",行数+1,9)



         遍历(M=0;M<行数;M++)

            字符串.分割(单行内容[i],",",单个字段) //这个地方的i值起始就是-200 怎么能分割到东西呢

复制代码
作者: rainshine 时间: 2014-8-21 14:31

迷糊咖啡厅发表于 2014-8-21 14:24
功能初始化()
//这里添加你要执行的代码
文件路径=系统.获取程序路径()&"data.txt"

好吧好久没用tc的api了- -都忘了。。
呢啥，反正win系统下所有的文件读取都需要先打开。。。tc有个api不用打开的，全都出来。只不过是集成了一下而已
作者: rainshine 时间: 2014-8-21 14:32

迷糊咖啡厅发表于 2014-8-21 14:24
功能初始化()
//这里添加你要执行的代码
文件路径=系统.获取程序路径()&"data.txt"

楼下贱哥说的挺好的，然后我还发现一个问题。。。。好像，，应该这样吧、
文件路径&i&“.txt”
作者: 迷糊咖啡厅 时间: 2014-8-21 14:42

贱哥发表于 2014-8-21 14:27
不顶楼上
下面是你的代码片段

我把16行的  单行内容  改成  单行内容[M]
结果运行以后还是空白的
作者: znyyjk 时间: 2014-8-21 15:01
文件路径=系统.获取程序路径()&"data\npc\\"
。。。
源串=文件.读文件(文件路径)

读的东西就不对
作者: 迷糊咖啡厅 时间: 2014-8-21 15:06
本帖最后由迷糊咖啡厅于 2014-8-21 15:15 编辑

znyyjk 发表于 2014-8-21 15:01
文件路径=系统.获取程序路径()&"data\npc\\"
。。。
源串=文件.读文件(文件路径)

空间 NPC查询
//默认空间

功能初始化()
遍历(i=-200;i<3000;i++)

      文件路径=系统.获取程序路径()&"data\npc\\"

      如果(文件.是否存在(文件路径&i&".txt"))

         变量单行内容,行数,单个字段

         源串=文件.读文件(文件路径&i&".txt")
         字符串.分割(源串,"\r\n",单行内容)
         数组空间.大小(单行内容,行数)

         表格.设置大小("表格0",行数+1,9)

         遍历(M=0;M<行数;M++)
            字符串.分割(单行内容[M],",",单个字段)
            表格.设置内容("表格0",M+1,0,单个字段[0])
            表格.设置内容("表格0",M+1,1,单个字段[1])
            表格.设置内容("表格0",M+1,2,单个字段[2])
            表格.设置内容("表格0",M+1,3,单个字段[3])
            表格.设置内容("表格0",M+1,4,单个字段[4])
            表格.设置内容("表格0",M+1,5,单个字段[5])
            表格.设置内容("表格0",M+1,6,单个字段[6])
            表格.设置内容("表格0",M+1,7,单个字段[7])
            表格.设置内容("表格0",M+1,8,单个字段[8])
         遍历结束
      如果结束
遍历结束
功能结束

空间结束
//空间结束语句

********************************

上面写的是结合各位指出的问题，修改后的
[attach]16958[/attach]

我在同一个目录下/data/npc  文件夹里放了几个txt文件。文件里的内容全部是一样的

作者: 迷糊咖啡厅 时间: 2014-8-21 15:35
运行后还是空白
作者: znyyjk 时间: 2014-8-21 16:18
用调试输出() 调试看看哪赋值有问题，我这用着就能显示
作者: 迷糊咖啡厅 时间: 2014-8-21 19:28

znyyjk 发表于 2014-8-21 16:18
用调试输出() 调试看看哪赋值有问题，我这用着就能显示

怪了，我这里确实是不显示
[attach]16960[/attach]

作者: znyyjk 时间: 2014-8-21 20:14

迷糊咖啡厅发表于 2014-8-21 19:28
怪了，我这里确实是不显示

[attach]16961[/attach]

初始化在面板里没调用，估计是你自己写上去的，再有就是路径不对

作者: 迷糊咖啡厅 时间: 2014-8-21 20:20

znyyjk 发表于 2014-8-21 20:14
初始化在面板里没调用，估计是你自己写上去的，再有就是路径不对

谢谢，看来要学的东西还有很多

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/) Powered by Discuz! X3.1