在IBM i（OS/400）中使用RPGLE读取CSV文件

本示例展示了如何使用RPGLE编程语言在IBM i（OS/400）中从CSV文件中读取数据并将其打印到控制台上。该程序在调用API函数QCSVDTAA读取文件内容并解析CSV行。

     DCL-F CSVFILE   WORKSTN SFILE(CSVFMT)

     DCL-DS CSVRecord;
     Name      CHAR(10);
     Age       CHAR(5);
     Gender    CHAR(1);
     DCL-DS CSVRecordEof Bit(1) INZ(0);
     END-DS;

     EXFMT CSVFILE;
     DOU CSVRecordEOF;
        CSVRecord = %NULL;
        QCSVDTAA('mycsvpath/mycsvfile.csv': '*FIRST': '*NEXT': CSVRecord);
        CSVRecordEOF = CSVRecordEof;
        IF NOT CSVRecordEOF;
            PRINT(CSVRecord.Name + ', ' + CSVRecord.Age + ', ' + CSVRecord.Gender);
            EXFMT CSVFILE;
        ENDIF;
     ENDDO;

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