您所在位置：主题：求教关于读取某一段数据
那兰1220
[专家分：50] 发布于 2012-02-16 15:22:00
要读取的数据格式是这样的
TX3R, , , Int, 60,
TB4O, , , Int, 1,
T2VI, , , Int, 1,
INIT, , , Int, 1,
TDSP, , , UTC, 1980-01-01 00:00:39,
写的小程序：
program main
IMPLICIT NONE
INTEGER::m,RX,RY,RZ
Character*20 :: NFF,ERXY
DO m=1,5
READ(*,*)NFF,RX,RY,ERXY,RZ
WRITE(*,*)NFF,RX,RY,ERXY,RZ
ENDDO
END PROGRAM
会出错。对于第一列数据 这样的 应该把他设置成什么样的数据格式（Character不对？），还有就是逗号是用来隔开数据的，这个到底要不要进行读取？？；再有就是最后一行的这个时间 数据的格式又怎么处理呢？
TX3R, , , Int, 60,
TB4O, , , Int, 1,
T2VI, , , Int, 1,
INIT, , , Int, 1,
TDSP, , , UTC, 1980-01-01 00:00:39,
写的小程序：
program main
IMPLICIT NONE
INTEGER::m,RX,RY,RZ
Character*20 :: NFF,ERXY
DO m=1,5
READ(*,*)NFF,RX,RY,ERXY,RZ
WRITE(*,*)NFF,RX,RY,ERXY,RZ
ENDDO
END PROGRAM
会出错。对于第一列数据 这样的 应该把他设置成什么样的数据格式（Character不对？），还有就是逗号是用来隔开数据的，这个到底要不要进行读取？？；再有就是最后一行的这个时间 数据的格式又怎么处理呢？