在IBM i (OS/400)上使用RPGLE读取CSV文件

本示例展示在IBM i (OS/400)上使用RPGLE语言读取并解析CSV文件的方法。本代码通过使用内置函数来将CSV文件解析为数组，并展示了如何对该数组进行处理。通过此方法可以方便地将CSV文件导入到IBM i系统中。

     **获取CSV文件：
        filename = '/path/to/file.csv'; 
        rec = %occur(CRLF:filename:recdata); //每个记录都包含CRLF分隔符

     **解析CSV文件：
        cnt=0;
        pos=1;
        dataidx=1;
        dataloc=1;
        len=%len(rec);
        dow pos<*len(rec) and cnt<99999;
          if %subst(rec:pos:1) = delimiter and not inquote;
            dataidx=dataidx+1;
            dataloc=1;
            cnt=cnt+1;
          elseif %subst(rec:pos:1) = quotechar;
            if not inquote;
              inquote=*on;
            elseif %subst(rec:pos+1:1) = quotechar;
              inquote=*on;
              dataloc=dataloc+1;
            else;
              inquote=*off;
            endif;
          else;
            data(dataidx,dataloc)= %subst(rec:pos:1);
            dataloc=dataloc+1;
          endif;
          pos=pos+1;
        enddo;

     **处理CSV数据
        for i=1 to dataidx;
          for j=1 to %elem(data,i);
            field=j;
            value=%trimr(data(i,j));
            //对读入数据进行处理...
          endfor;
        endfor;

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