如何在IBM i上使用RPGLE程序读取CSV文件中的数据？

本示例代码展示了如何在IBM i (OS/400)上使用RPGLE程序读取CSV文件中的数据。

/free 
     //打开CSV文件 
     FileName = '/home/myuser/myfile.csv';
     Open FileName:  
         ofm_input: 
         type(*text): 
         accunp(*read): 
         denyw(*no): 
         nowait(*no): 
         share(*no); 

     //读取CSV文件的数据 
     Dow Not %Eof;
         Read FileName Rec;
         If %Eof;
             Leave;
         EndIf;
         //对CSV文件中的每个字段进行解析 
         For i = 1 To %elem(Fields);
             Fields(i) = %subst(Rec:%scan(',',Rec,i - 1) + 1:%scan(',',Rec,i) - %scan(',',Rec,i - 1) - 1);
         EndFor;
         //在控制台打印读取的数据 
         dsply ('Field 1 : ' + Fields(1));
         dsply ('Field 2 : ' + Fields(2));
         dsply ('Field 3 : ' + Fields(3));
         //清空字段数组 
         %memset(Fields:*char:' '); 
     EndDo; 

     //关闭CSV文件 
     Close FileName;

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com