24小时热门版块排行榜    

查看: 5841  |  回复: 11

906527107

金虫 (小有名气)

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

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

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

欲速则不达!!!
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
回帖支持 ( 显示支持度最高的前 50 名 )

heyzol

金虫 (正式写手)

小木虫:沙发+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 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 一志愿西南交通 专硕 材料355 本科双非 求调剂 +3 西南交通专材355 2026-03-19 3/150 2026-03-20 09:34 by 每天只摆一小会
[考研] 298-一志愿中国农业大学-求调剂 +8 手机用户 2026-03-17 8/400 2026-03-20 09:32 by 陆伶越
[考研] 一志愿武汉理工材料工程专硕调剂 +6 Doleres 2026-03-19 6/300 2026-03-20 09:03 by xingguangj
[考研] 求调剂 +3 暗涌afhb 2026-03-16 3/150 2026-03-20 00:28 by 河南大学校友
[考博] 申博26年 +3 八6八68 2026-03-19 3/150 2026-03-19 19:43 by nxgogo
[考研] 0703化学调剂 ,六级已过,有科研经历 +12 曦熙兮 2026-03-15 12/600 2026-03-19 19:42 by maocaozhuxi
[考研] 0703化学调剂 +4 18889395102 2026-03-18 4/200 2026-03-19 16:13 by 30660438
[考研] 一志愿南昌大学,327分,材料与化工085600 +3 Ncdx123456 2026-03-19 3/150 2026-03-19 13:18 by houyaoxu
[考研] 材料考研调剂 +3 xwt。 2026-03-19 3/150 2026-03-19 11:22 by w沐阳w
[考研] 346求调剂[0856] +3 WayneLim327 2026-03-16 6/300 2026-03-19 11:21 by WayneLim327
[考研] 一志愿天大材料与化工(085600)总分338 +5 蔡大美女 2026-03-13 5/250 2026-03-19 10:44 by 是小刘呀~
[考研] 一志愿985,本科211,0817化学工程与技术319求调剂 +10 Liwangman 2026-03-15 10/500 2026-03-19 10:25 by 无际的草原
[考研] 0703化学调剂,求各位老师收留 +10 秋有木北 2026-03-14 10/500 2026-03-19 05:52 by anny19840123
[考研] 【同济软件】软件(085405)考研求调剂 +3 2026eternal 2026-03-18 3/150 2026-03-18 19:09 by 搏击518
[考研] 293求调剂 +11 zjl的号 2026-03-16 16/800 2026-03-18 08:10 by zhukairuo
[考研] 085601求调剂 +4 Du.11 2026-03-16 4/200 2026-03-17 17:08 by ruiyingmiao
[考研] 机械专硕325,寻找调剂院校 +3 y9999 2026-03-15 5/250 2026-03-16 19:58 by y9999
[基金申请] 今年的国基金是打分制吗? 50+3 zhanghaozhu 2026-03-14 3/150 2026-03-16 17:07 by 北京莱茵润色
[考研] 297一志愿上交085600求调剂 +5 指尖八千里 2026-03-14 5/250 2026-03-14 17:26 by a不易
[考研] 304求调剂 +7 7712b 2026-03-13 7/350 2026-03-13 21:42 by peike
信息提示
请填处理意见