读取txt文件

GTX_AI

1. dev_update_off()
   
2. File_Name := 'AItrainloss.txt'
   
3. open_file (File_Name, 'input', FileHandle)
   
4. IsEOF := 0
   
5. nums := []
   
6. while (IsEOF == 0)
   
7.   fread_string (FileHandle, Number, IsEOF)
   
8.   Number := number(Number)
   
9.   nums := [nums, Number]
   
10. endwhile
    
11. close_file (FileHandle)

复制代码

对于tuple的操作

1.     for (int i=0; i<=(int)((new HTuple(hv_nums.TupleLength()))-1); i = i + 1)
   
2.     {
   
3.       hv_x = hv_nums.TupleSelect(i);
   
4.     }

复制代码