24小时热门版块排行榜    

Znn3bq.jpeg
查看: 5891  |  回复: 11
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

906527107

金虫 (小有名气)

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

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

» 猜你喜欢

欲速则不达!!!
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

virtualzx

木虫 (著名写手)

【答案】应助回帖


906527107: 金币+1, ★★★★★最佳答案 2013-11-27 12:14:42
引用回帖:
10楼: Originally posted by 906527107 at 2013-11-26 03:08:15
谢谢您的回复!现在已经用fortran读出了.csv文件。
但是我现在有上百个相同格式的文件(.csv),文件名称分别为temp1.csv~temp50.csv,请问怎样才能一次将这些文件全部读进去?
求程序!...

设立一个do循环,依次读取就行了
integer :: i
character(len=4) :: indstr
integer,parameter:: uid=...
do i=1,9999
  write(indstr,"(I4)"indstr
  open(file="temp"//trim(adjust(indstr))//".csv",unit=uid)
  读入数据
  close(uid)
end do
11楼2013-11-27 07:08:22
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 12 个回答

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的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 085600材料与化工329分求调剂 +12 叶zilin 2026-04-10 12/600 2026-04-11 09:19 by bgjbz
[考研] 283求调剂,工科! +11 苏打水7777 2026-04-08 11/550 2026-04-11 08:46 by zhq0425
[考研] 290求调剂 +6 luoziheng 2026-04-10 6/300 2026-04-10 23:22 by babysonlkd
[考研] 284求调剂 +9 让我上岸吧阿西 2026-04-09 11/550 2026-04-10 19:18 by 靖jing
[考研] 071000生物学调剂求助 +17 zzzzwww 2026-04-09 20/1000 2026-04-10 15:55 by 求调剂zz
[考研] 求调剂 +11 雪逢冬 2026-04-10 11/550 2026-04-10 14:38 by Abskk
[考研] 296求调剂 +12 汪!?! 2026-04-08 13/650 2026-04-10 12:09 by 汪!?!
[考研] 一志愿中科大070300化学,314分求调剂 +12 wakeluofu 2026-04-09 12/600 2026-04-10 09:57 by liuhuiying09
[考研] 267求调剂 +5 再忙也要吃饭啊 2026-04-09 5/250 2026-04-09 18:47 by stone_128
[考研] 266求调剂,一志愿哈工程电子信息,本科获多项国奖和省奖 +4 lumine1 2026-04-06 4/200 2026-04-09 17:38 by vgtyfty
[考研] 材料工程调剂 +12 小刘同学吖吖 2026-04-06 13/650 2026-04-09 17:07 by luoyongfeng
[考研] 一志愿985初试354分生物调剂 +3 031001 2026-04-06 3/150 2026-04-09 00:30 by Evan_Liu
[考研] 软件工程求调剂22软工296分求调剂,接受跨调 +4 yangchen2017 2026-04-08 5/250 2026-04-08 21:56 by 土木硕士招生
[考研] 266调剂 +8 daya sun 2026-04-07 9/450 2026-04-08 20:27 by yutian743
[考研] 机械工程264学硕求调剂 +3 qiushangxian 2026-04-06 3/150 2026-04-08 01:53 by Linzejun
[考研] 344求调剂 +11 魏子per 2026-04-07 11/550 2026-04-07 23:01 by JourneyLucky
[考研] 318求调剂 +5 李青山山山 2026-04-07 5/250 2026-04-07 18:24 by 蓝云思雨
[考研] 求调剂 +10 Hll胡 2026-04-04 10/500 2026-04-05 20:09 by nepu_uu
[考研] 288求调剂,一志愿华南理工大学071005 +6 ioodiiij 2026-04-04 6/300 2026-04-05 10:09 by guoweigw
[考研] 求生物学学硕调剂——364分 +7 云朵遛弯指南 2026-04-04 7/350 2026-04-04 22:49 by zhyzzh
信息提示
请填处理意见