24小时热门版块排行榜    

查看: 5811  |  回复: 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 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 285求调剂 +3 满头大汗的学生 2026-02-28 3/150 2026-02-28 16:22 by 无际的草原
[考研] 265分求调剂不调专业和学校有行学上就 +4 礼堂丁真258 2026-02-28 6/300 2026-02-28 16:18 by 求调剂zz
[考研] 312求调剂 +4 吃宵夜1 2026-02-28 5/250 2026-02-28 16:11 by gjm133
[考博] 26申博 +3 想申博! 2026-02-26 3/150 2026-02-28 16:07 by nxgogo
[考研] 材料类求调剂 +3 wana_kiko 2026-02-28 3/150 2026-02-28 15:03 by lature00
[考研] 290求调剂 +4 材料专硕调剂; 2026-02-28 5/250 2026-02-28 13:32 by houyaoxu
[考研] 0856调剂 +3 刘梦微 2026-02-28 3/150 2026-02-28 13:22 by houyaoxu
[考研] 寻找调剂 +3 LYidhsjabdj 2026-02-28 3/150 2026-02-28 12:59 by miniwendy
[考研] 304求调剂 +5 曼殊2266 2026-02-28 6/300 2026-02-28 12:44 by 迷糊CCPs
[考研] 0856材料求调剂 +7 hyf hyf hyf 2026-02-28 8/400 2026-02-28 12:36 by 52hz~~
[硕博家园] 博士自荐 +6 科研狗111 2026-02-26 9/450 2026-02-28 12:32 by seaskyy
[考研] 272求调剂 +3 田智友 2026-02-28 3/150 2026-02-28 12:31 by 王加浩to
[考研] 311求调剂 +3 南迦720 2026-02-28 3/150 2026-02-28 12:24 by houyaoxu
[考研] 280求调剂 +6 Qq206./ 2026-02-21 6/300 2026-02-28 11:20 by 我!要一战成硕
[考博] 博士推荐 +3 花儿笑? 2026-02-21 4/200 2026-02-27 18:30 by 黑!在干嘛
[高分子] 求环氧树脂研发1名 +3 孙xc 2026-02-25 10/500 2026-02-27 13:22 by ichall
[基金申请] 什么是人一生最重要的? +10 瞬息宇宙 2026-02-21 10/500 2026-02-27 08:46 by tfang
[基金申请] 面上可以超过30页吧? +12 阿拉贡aragon 2026-02-22 13/650 2026-02-26 22:09 by Hahaxia
[教师之家] 版面费该交吗 +14 苹果在哪里 2026-02-22 17/850 2026-02-26 11:55 by AGI智创机器人
[硕博家园] 【博士招生】太原理工大学2026化工博士 +4 N1ce_try 2026-02-24 8/400 2026-02-26 08:40 by N1ce_try
信息提示
请填处理意见