如何将混合数据从.csv读取到Fortran中，作为字符串，整数和实数

Question

我有一个子例程，即在CSV中读取并最终将其保存到数据数组中。 但是，我无法让它正确读取字符串值。 我可以很好地获得实数和整数值，但字符串每次都是空的。 数据文件始终具有完全相同的格式(F10.6,1x，I3,1x，A64(，但行数未知。 我的输出只是浮点值，后跟整数，后跟空格。 我错过了什么？

我的数据的格式为：

  1.100000,100,TEST STRING                                                     
  1.106667,100,TEST STRING                                                     
  1.106667, 48,TEST STRING                                                     
  1.106667, 14,TEST STRING                                                     

我的代码是：

      SUBROUTINE GET_TRIP_DATA(FILENAME, NUMROWS)
      CHARACTER(len=256) :: FILENAME
      INTEGER NUMROWS, IOSTATUS, I
      REAL TIMEVAL
      INTEGER PERCENTVAL
      CHARACTER TEXTSTR
      NUMROWS = 0
      OPEN(5,FILE=FILENAME)
      DO
        READ(5, *, IOSTAT=IOSTATUS) DUMMYV
        IF(IOSTATUS .NE. 0) THEN
            EXIT
        ELSE
            NUMROWS = NUMROWS + 1
        ENDIF
      ENDDO
      WRITE(ITERM,*) 'NUMROWS IS: ', NUMROWS
      REWIND(5)
      DO I=1,NUMROWS
       READ(5, 901, IOSTAT=IOSTATUS) TIMEVAL, PERCENTVAL, TEXTSTR
       WRITE(ITERM,901) TIMEVAL, PERCENTVAL, TRIM(ADJUSTL(TEXTSTR))
      ENDDO
      CLOSE(5)
      RETURN
901   FORMAT (F10.6,1x,I3,1x,A64)      
      ENDSUBROUTINE

Answer 1

您的字符TEXTSTR声明为单个字符。所以你只读一个字符，然后打印它。

也不要使用小于 10 的单位号打开文件。特别是不要使用单元 5 和 6。它们几乎总是出于特殊目的而预先连接。