COBOL如何读取和写入CSV文件

这个示例代码展示了使用COBOL读取和写入CSV文件的方法。它使用了COBOL内置的SEQUENTIAL ACCESS和DELIMITED BY文本文件处理功能，可以方便地处理常见的CSV文件。该示例代码有一个包含学生信息的CSV文件，读取该文件并根据学生成绩算出各科平均分并将结果写入一个新的CSV文件。

IDENTIFICATION DIVISION.
   PROGRAM-ID. CSV-FILE-PROCESSING.
   ENVIRONMENT DIVISION.
   INPUT-OUTPUT SECTION.
   FILE-CONTROL.
       SELECT IN-FILE ASSIGN "students.csv"
           ORGANIZATION LINE SEQUENTIAL
           ACCESS MODE SEQUENTIAL
           FILE STATUS MSD-STATUS.
       SELECT OUT-FILE ASSIGN "output.csv"
           ORGANIZATION LINE SEQUENTIAL
           ACCESS MODE SEQUENTIAL
           FILE STATUS MSD-STATUS.
   DATA DIVISION.
   FILE SECTION.
   FD IN-FILE.
   01 STUDENT-REC.
       05 S-NAME         PIC X(10).
       05 S-MATH-SCORE  PIC 9(3).
       05 S-ENG-SCORE   PIC 9(3).
       05 S-SCI-SCORE   PIC 9(3).
   FD OUT-FILE.
   01 OUT-REC.
       05 O-NAME        PIC X(10).
       05 O-MATH-SCORE  PIC 9(3).
       05 O-ENG-SCORE   PIC 9(3).
       05 O-SCI-SCORE   PIC 9(3).
       05 O-AVG-SCORE   PIC 9(3).

   WORKING-STORAGE SECTION.
   01 WS-COUNTER         PIC 9(3)    VALUE 0.
   01 WS-MATH-TOTAL      PIC 9(5)    VALUE 0.
   01 WS-ENG-TOTAL       PIC 9(5)    VALUE 0.
   01 WS-SCI-TOTAL       PIC 9(5)    VALUE 0.
   01 WS-MATH-AVG        PIC 9(3)V9  VALUE 0.0.
   01 WS-ENG-AVG         PIC 9(3)V9  VALUE 0.0.
   01 WS-SCI-AVG         PIC 9(3)V9  VALUE 0.0.
   01 WS-OUT-NAME        PIC X(10).
   01 WS-OUT-MATH-SCORE  PIC 9(3).
   01 WS-OUT-ENG-SCORE   PIC 9(3).
   01 WS-OUT-SCI-SCORE   PIC 9(3).
   01 WS-OUT-AVG-SCORE   PIC 9(3).

   PROCEDURE DIVISION.
   Main.
       OPEN INPUT IN-FILE
           OUTPUT OUT-FILE.
       READ IN-FILE
           AT END
               GO TO Finish.
       PERFORM ReadStudentInfo
       PERFORM CalculateAndWriteStudentInfo
       ADD 1 TO WS-COUNTER
           GO TO Main.
   Finish.
       CLOSE IN-FILE
           OUT-FILE.
       STOP RUN.

   ReadStudentInfo.
       MOVE S-NAME TO WS-OUT-NAME
       MOVE S-MATH-SCORE TO WS-OUT-MATH-SCORE
       MOVE S-ENG-SCORE TO WS-OUT-ENG-SCORE
       MOVE S-SCI-SCORE TO WS-OUT-SCI-SCORE.

   CalculateAndWriteStudentInfo.
       COMPUTE WS-MATH-TOTAL = WS-MATH-TOTAL + WS-OUT-MATH-SCORE
       COMPUTE WS-ENG-TOTAL = WS-ENG-TOTAL + WS-OUT-ENG-SCORE
       COMPUTE WS-SCI-TOTAL = WS-SCI-TOTAL + WS-OUT-SCI-SCORE
       DIVIDE WS-MATH-TOTAL BY WS-COUNTER GIVING WS-MATH-AVG
       DIVIDE WS-ENG-TOTAL BY WS-COUNTER GIVING WS-ENG-AVG
       DIVIDE WS-SCI-TOTAL BY WS-COUNTER GIVING WS-SCI-AVG
       MOVE WS-MATH-AVG TO WS-OUT-MATH-SCORE
       MOVE WS-ENG-AVG TO WS-OUT-ENG-SCORE
       MOVE WS-SCI-AVG TO WS-OUT-SCI-SCORE
       MOVE WS-OUT-NAME TO O-NAME
       MOVE WS-OUT-MATH-SCORE TO O-MATH-SCORE
       MOVE WS-OUT-ENG-SCORE TO O-ENG-SCORE
       MOVE WS-OUT-SCI-SCORE TO O-SCI-SCORE
       COMPUTE WS-OUT-AVG-SCORE = (WS-OUT-MATH-SCORE + WS-OUT-ENG-SCORE + WS-OUT-SCI-SCORE) / 3
       MOVE WS-OUT-AVG-SCORE TO O-AVG-SCORE
       WRITE OUT-REC.

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