应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 用fortran怎么读.CSV文件
121/2返回列表12下一页
查看: 5802  |  回复: 11
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

906527107

金虫 (小有名气)

[求助] 用fortran怎么读.CSV文件

求助：
   哪位高手知道怎么用fortran读.CSV格式的文件？
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
欲速则不达！！！
1楼 2013-11-25 20:50:54
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
回帖支持 ( 显示支持度最高的前 50 名 )

heyzol

金虫 (正式写手)
用fortran怎么读.CSV文件
这么试试
赞一下(1人) 回复此楼
小木虫:沙发+99，金币+99,恭喜抢个沙发，再给个红包
6楼2013-11-26 11:04:45
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通回帖

jerkwin

专家顾问 (正式写手)

【答案】应助回帖

感谢参与，应助指数 +1
知道格式，和普通文件读法没区别
赞一下 回复此楼
2楼2013-11-25 22:38:54
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

virtualzx

木虫 (著名写手)

【答案】应助回帖

★ ★
感谢参与，应助指数 +1
906527107: 金币+2, ★有帮助 2013-11-26 10:15:10
取决于你要读什么样的文件了，文件的内容是什么样子的，每行是否列数相同，是否字符串、整数与小数数据混杂，是否指定类型出现在指定列，还是读取之前未知，有没有引号引起的字符串之类的。

不论什么情况都可以读入，但是你知道的信息越多编程量越低。

总的来说，最好先确定数据的尺寸，给存储数据的变量分配内存空间，（当然你想随读取随分配也没问题，就是慢点）
然后是用read逐行读入，对每一行用index函数逐个找到逗号，对每个子字符串根据变量类型存储到对应存储空间。

最简单的情形是每列宽度一定且已知，数据类型也已知，那么一个带格式的read就搞定了，都不需要找逗号。

最复杂的是如果每个元素的类型未知，就必须要用动态类型了。
赞一下 回复此楼
3楼2013-11-26 01:21:35
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

906527107

金虫 (小有名气)
引用回帖:
3楼: Originally posted by virtualzx at 2013-11-26 01:21:35
取决于你要读什么样的文件了，文件的内容是什么样子的，每行是否列数相同，是否字符串、整数与小数数据混杂，是否指定类型出现在指定列，还是读取之前未知，有没有引号引起的字符串之类的。

不论什么情况都可以读 ...

谢谢您的回复！

我的数据格式就是普通的.csv格式（和excel格式一样），我可以给你看下我的数据,谢谢！
1,1.000
  ...
10,2.000
  ...
100，3.000
  ...
1000,4.000
赞一下 回复此楼
欲速则不达！！！
4楼2013-11-26 10:24:32
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

heyzol

金虫 (正式写手)

【答案】应助回帖

★ ★
感谢参与，应助指数 +1
906527107: 金币+2, ★★★很有帮助 2013-11-26 13:50:50
正常read就行，fortran会自动跳过逗号
赞一下 回复此楼
小木虫:沙发+99，金币+99,恭喜抢个沙发，再给个红包
5楼2013-11-26 10:57:15
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

heyzol

金虫 (正式写手)

【答案】应助回帖

记事本中的红字是【行标号】，不是文本的内容。
赞一下 回复此楼
小木虫:沙发+99，金币+99,恭喜抢个沙发，再给个红包
7楼2013-11-26 11:07:22
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

virtualzx

木虫 (著名写手)
引用回帖:
4楼: Originally posted by 906527107 at 2013-11-25 21:24:32
谢谢您的回复！

我的数据格式就是普通的.csv格式（和excel格式一样），我可以给你看下我的数据,谢谢！
1,1.000
  ...
10,2.000
  ...
100，3.000
  ...
1000,4.000...

如果数据类型这么固定的话就比较容易，假设你所有整数都没有小数点，所有小数都有小数点或者是指数形式，那么就很简单：
integer :: a(1000)
double precision :: b(1000)
  open (file="filename.csv",unit=uid)
  read(uid,*)(a(i),b(i),i=1,1000)
赞一下 回复此楼
8楼2013-11-26 12:24:57
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

906527107

金虫 (小有名气)
引用回帖:
6楼: Originally posted by heyzol at 2013-11-26 11:04:45
这么试试

谢谢您的回复！现在已经用fortran读出了.csv文件。
但是我现在有30个相同格式的文件（.csv），文件名称分别为temp1.csv~temp30.csv，请问怎样才能一次将这些文件全部读进去？
赞一下 回复此楼
欲速则不达！！！
9楼2013-11-26 13:50:26
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

906527107

金虫 (小有名气)
引用回帖:
8楼: Originally posted by virtualzx at 2013-11-26 12:24:57
如果数据类型这么固定的话就比较容易，假设你所有整数都没有小数点，所有小数都有小数点或者是指数形式，那么就很简单：
integer :: a(1000)
double precision :: b(1000)
  open (file="filename.csv&q ...

谢谢您的回复！现在已经用fortran读出了.csv文件。
但是我现在有上百个相同格式的文件（.csv），文件名称分别为temp1.csv~temp50.csv，请问怎样才能一次将这些文件全部读进去？
求程序！
赞一下 回复此楼
欲速则不达！！！
10楼2013-11-26 16:08:15
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 906527107 的主题更新
121/2返回列表12下一页
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[博后之家] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +6 3dfhjxgsh7 2026-02-22 9/450 2026-02-23 07:49 by w4l55oybr1
[考博] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +4 khieu8v8m0 2026-02-22 4/200 2026-02-23 06:46 by jsjzfl
[硕博家园] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +3 8rmuugja8q 2026-02-22 6/300 2026-02-23 06:39 by w4l55oybr1
[论文投稿] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +3 w89i99eaeh 2026-02-22 4/200 2026-02-23 06:36 by w4l55oybr1
[博后之家] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +4 khieu8v8m0 2026-02-22 5/250 2026-02-23 06:34 by w4l55oybr1
[公派出国] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +3 khieu8v8m0 2026-02-22 5/250 2026-02-23 06:29 by w4l55oybr1
[硕博家园] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +4 khieu8v8m0 2026-02-22 8/400 2026-02-23 06:24 by w4l55oybr1
[考研] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +4 usprnugpzw 2026-02-21 10/500 2026-02-23 04:58 by 5jlh3qtdvx
[论文投稿] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +3 khieu8v8m0 2026-02-22 6/300 2026-02-23 02:08 by 5jlh3qtdvx
[考博] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +5 3dfhjxgsh7 2026-02-22 6/300 2026-02-23 02:04 by 5jlh3qtdvx
[教师之家] 版面费该交吗 +7 苹果在哪里 2026-02-22 8/400 2026-02-22 22:37 by otani
[基金申请] 基金正文30页指的是报告正文还是整个申请书 +5 successhe 2026-02-16 6/300 2026-02-22 21:38 by 山西悬空寺空悬�
[基金申请] 面上可以超过30页吧？ +4 阿拉贡aragon 2026-02-22 4/200 2026-02-22 21:22 by 山西悬空寺空悬�
[教师之家] 为什么中国大学教授们水了那么多所谓的顶会顶刊，但还是做不出宇树机器人？ +5 欢乐颂叶蓁 2026-02-21 5/250 2026-02-22 21:15 by 山西悬空寺空悬�
[论文投稿] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +4 usprnugpzw 2026-02-21 6/300 2026-02-22 19:48 by w89i99eaeh
[公派出国] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +3 usprnugpzw 2026-02-21 4/200 2026-02-22 16:27 by khieu8v8m0
[基金申请] “人文社科而论，许多学术研究还没有达到民国时期的水平” +4 苏东坡二世 2026-02-18 5/250 2026-02-22 16:07 by liangep1573
[基金申请] 什么是人一生最重要的？ +4 瞬息宇宙 2026-02-21 4/200 2026-02-22 11:44 by huagongfeihu
[基金申请] 今年春晚有几个节目很不错，点赞！ +11 瞬息宇宙 2026-02-16 12/600 2026-02-21 21:14 by lq493392203
[基金申请] 体制内长辈说体制内绝大部分一辈子在底层，如同你们一样大部分普通教师忙且收入低 +9 瞬息宇宙 2026-02-20 12/600 2026-02-21 10:39 by 欢乐颂叶蓁
信息提示
关闭
请填处理意见
关闭