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

24小时热门版块排行榜    

Znn3bq.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 用fortran怎么读.CSV文件
121/2返回列表12下一页
查看: 5875  |  回复: 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下一页
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 291 求调剂 +12 化工2026届毕业� 2026-04-09 12/600 2026-04-10 05:18 by chenzhimin
[考研] 071000生物学调剂求助 +10 zzzzwww 2026-04-09 11/550 2026-04-10 02:52 by mch6301012
[考研] 268分085602化学工程调剂 +22 月照花林。 2026-04-09 22/1100 2026-04-10 00:29 by 孙小小12457
[考研] 本科211 工科085400 280分求调剂 可跨专业 +3 LZH（等待调剂中 2026-04-09 3/150 2026-04-09 21:29 by wutongshun
[考研] 电子信息279求调剂，有书读就行 +3 wwwooden 2026-04-08 5/250 2026-04-09 17:05 by 大三不四
[考研] 求调剂材料科学与工程一志愿985初试365分 +5 材化李可 2026-04-08 5/250 2026-04-09 17:00 by Lilly_Li
[硕博家园] 有没有学校材料专业收跨调(一志愿085410) +5 momo(上岸版) 2026-04-06 8/400 2026-04-09 15:07 by only周
[考研] 298求调剂 +4 manman511 2026-04-05 4/200 2026-04-08 16:50 by tjzhao
[考研] 284求调剂 +17 梵@@ 2026-04-06 17/850 2026-04-08 11:35 by 1shin_ichi
[考研] 材料调剂 +13 汉123456 2026-04-07 14/700 2026-04-07 22:53 by 来看流星雨10
[考研] 305分求调剂 +3 哈_哈_哈_哈_哈 2026-04-04 5/250 2026-04-07 14:49 by 哈_哈_哈_哈_哈
[考研] 081200-11408-276学硕求调剂 +5 崔wj 2026-04-05 5/250 2026-04-06 15:40 by lin-da
[考研] 求调剂 +7 张.1 2026-04-05 7/350 2026-04-05 20:40 by 啵啵啵0119
[考研] 生物与医药调剂 +4 十七sa 2026-04-05 4/200 2026-04-05 20:05 by lys0704
[考研] 322求调剂 +3 嗯哼哼恒 2026-04-05 3/150 2026-04-05 19:52 by nepu_uu
[考研] 313求调剂 +5 海日海日 2026-04-04 5/250 2026-04-05 15:52 by jndximd
[考研] 一志愿沪9，求生物学调剂，326分 +6 刘墨墨 2026-04-04 6/300 2026-04-04 19:44 by 唐沐儿
[考研] 一志愿南农090401，268，求调剂 +5 一木鸟然 2026-04-04 5/250 2026-04-04 17:07 by babysonlkd
[考研] 求调剂，一志愿南京航空航天大学 ，080500材料科学与工程学硕 +10 @taotao 2026-04-03 10/500 2026-04-04 09:01 by T可可西里T
[考研] 268求调剂 +8 你好tg 2026-04-03 9/450 2026-04-04 05:08 by gswylq
信息提示
关闭
请填处理意见
关闭