Read a File Using File Layout and insert data into a record

最新推荐文章于 2022-06-01 16:07:54 发布

weixin_34148508

最新推荐文章于 2022-06-01 16:07:54 发布

阅读量369

点赞数

原文链接：http://www.cnblogs.com/GoDevil/archive/2008/08/08/1263896.html

版权

   Local 
  File &MYFILE; 
  
 Local Record &REC; 
  
 Local array of string &ARRAY; 
  
 Local string &FILE_DIRECTORY, &FileName; 
  
 
  
 &FileName = 
  "MY_FILE_NAME.txt"; 
  
 &FILE_DIRTORY = 
  "/MYDIRECTORY/" 
  
 
  /*open file for reading*/ 
  
 &MYFILE = GetFile 
  (&FILE_DIRECTORY | &FileName, 
  "R", %FilePath_Absolute 
  ); 
  
 
  /*create record object*/ 
  
 &REC = CreateRecord 
  (Record. 
  MY_RECORD 
  ); 
  
 &ARRAY = CreateArrayRept 
  ( 
  "", 
  0 
  ); 
  
 
  /*check if file is open*/ 
  
 
  If &MYFILE. 
  IsOpen Then 
  
 
  /*The SetFileLayout method is a file layout method. It associates a specific file layout definition with the file object executing this method, providing easy access to rowset data.(PeopleBooks)*/ 
  
     
  If &MYFILE. 
  SetFileLayout 
  (FileLayout. 
  FILE_LAYOUT_NAME 
  ) Then 
  
 
  /*read line into &STRING*/ 
  
       
  While &MYFILE. 
  ReadLine 
  (&STRING 
  ); 
  
          &ARRAY = Split 
  (&STRING, 
  "," 
  ); 
  
           
  For &I = 
  1 To &REC. 
  FieldCount 
  
             &REC. 
  GetField 
  (&I 
  ). 
  Value = RTrim 
  (LTrim 
  (&ARRAY 
  [&I 
  ] 
  ) 
  ); 
  
          End- 
  For; 
  
           
  /* do additional processing here for converting values */ 
  
          &REC. 
  Insert 
  ( 
  ); 
  
 
  /*count rows inserted into record*/ 
  
          &COUNT = &COUNT + 
  1; 
  
       End- 
  While; 
  
     
  Else 
  
       
  /* do error processing - filelayout not correct */ 
  
    End- 
  If; 
  
 
  Else 
  
     
  /* do error processing - file not open */ 
  
 End- 
  If; 
 