Fortran Coder

查看: 15038|回复: 6
打印 上一主题 下一主题

[文件读写] Fortran读取含有汉字的CSV文件,并根据时间筛选数据

[复制链接]

1963

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1357 元
贡献
574 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

楼主
发表于 2017-9-28 08:04:14 | 显示全部楼层
是否含有汉字,并不影响本问题。
以筛选 2017 年 3 月为例:
[Fortran] 纯文本查看 复制代码
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


1963

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1357 元
贡献
574 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

沙发
发表于 2017-10-6 10:00:47 | 显示全部楼层
并不是因为文件太大。

可能的原因是:
1.你的文件路径有问题。
2.你的年份设置有问题。
3.其他

1963

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1357 元
贡献
574 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

板凳
发表于 2017-10-8 11:18:10 | 显示全部楼层
我这里没有你的数据,我自己编纂了几行数据来测试,是OK的。

数据量大,本身并不是问题。但数据量大,可能增加数据文件里有错误的几率。建议你多输出一些内容,比如每次循环输出一个计数,观察第几个计数时停止了?到对应的数据文件的行去找原因。
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-5-2 12:26

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表