1506496188(1).jpg (32 KB, 下载次数: 414)
Program Main
Implicit None
Character(len=1024) :: c
integer :: k
Open(12,File="文件名.csv")
Open(13,File="输出文件名.csv")
Do
Read(12,'(a1024)',iostat=k) c
if( k /= 0 ) exit
if( index( c , '2017/3' ) > 0 ) write(13,'(a)') trim(c)
End Do
Close(12)
End Program Main
fcode 发表于 2017-9-28 08:04
是否含有汉字,并不影响本问题。
以筛选 2017 年 3 月为例:
[mw_shl_code=fortran,true]Program Main
fcode 发表于 2017-10-6 10:00
并不是因为文件太大。
可能的原因是:
@%(SZ_6R_BU{FZ$UAJS`I~F.png (12.59 KB, 下载次数: 388)
1]}M$OX%L4E(_X4V0%FS$CN.png (15.56 KB, 下载次数: 373)
fcode 发表于 2017-10-8 11:18
我这里没有你的数据,我自己编纂了几行数据来测试,是OK的。
数据量大,本身并不是问题。但数据量大,可能 ...
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |