求助，大家帮我看看是不是我哪里写错了

迷糊咖啡厅

空间 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

读文件还要打开的啊= =。。。。。BOOL WINAPI ReadFile(
  _In_         HANDLE hFile,
  _Out_        LPVOID lpBuffer,
  _In_         DWORD nNumberOfBytesToRead,
  _Out_opt_    LPDWORD lpNumberOfBytesRead,
  _Inout_opt_  LPOVERLAPPED lpOverlapped
);
hFile= =。

迷糊咖啡厅

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])
        遍历结束
    如果结束
功能结束

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

一楼写的那个就是根据这个改编的
这个好像没有你说的那个打开的步骤呀

贱哥

不顶楼上
下面是你的代码片段

1. 遍历(i=-200;i<3000;i++)   //这个地方I都-200开始
   
2.         
   
3.         文件路径=系统.获取程序路径()&"data\npc\\"
   
4.         
   
5.         如果(文件.是否存在(文件路径&i.txt))
   
6.             
   
7.             变量 单行内容,行数,单个字段
   
8.             
   
9.             源串=文件.读文件(文件路径)
   
10.             字符串.分割(源串,"\r\n",单行内容)
    
11.             数组空间.大小(单行内容,行数)
    
12.             
    
13.             表格.设置大小("表格0",行数+1,9)
    
14.             
    
15.             遍历(M=0;M<行数;M++)
    
16.                 字符串.分割(单行内容[i],",",单个字段) //这个地方的i值起始就是-200 怎么能分割到东西呢
    

复制代码

rainshine

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

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

rainshine

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

楼下贱哥说的挺好的，然后我还发现一个问题。。。。好像，，应该这样吧、
文件路径&i&“.txt”

迷糊咖啡厅

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

我把16行的  单行内容  改成  单行内容[M]
结果运行以后还是空白的

znyyjk

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


读的东西就不对

迷糊咖啡厅

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])
            遍历结束
        如果结束
    遍历结束
功能结束   


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

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

上面写的是结合各位指出的问题，修改后的


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

迷糊咖啡厅

运行后还是空白