日志
fortran读取CSV数据：读取数据并根据时间进行筛选出
http://bbs.fcode.cn/thread-1393-1-1.html
| Program Main |
| 02 | Implicit None |
| 03 | Character(len=1024) :: c |
| 04 | integer :: k |
| 05 | Open(12,File="文件名.csv") |
| 06 | Open(13,File="输出文件名.csv") |
| 07 | Do |
| 08 | Read(12,'(a1024)',iostat=k) c |
| 09 | if( k /= 0 ) exit |
| 10 | if( index( c , '2017/3' ) > 0 ) write(13,'(a)') trim(c) |
| 11 | End Do |
| 12 | Close(12) |
| 13 | End Program Main |