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的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 275求调剂 +7 1624447980 2026-04-08 8/400 2026-04-11 00:45 by dc19971224
[考研] 342电子信息专硕求调剂 +8 你让我怎么荔枝 2026-04-10 9/450 2026-04-10 21:46 by fxue1114
[考研] 284求调剂 +19 梵@@ 2026-04-06 21/1050 2026-04-10 21:12 by zhouxiaoyu
[考研] 吉大计算机技术331分,英语六级,求调剂 +3 峰峰021116 2026-04-09 3/150 2026-04-10 20:01 by chemisry
[考研] 283求调剂,工科! +10 苏打水7777 2026-04-08 10/500 2026-04-10 18:54 by chemisry
[考研] 269求调剂 +10 啊啊我我 2026-04-07 10/500 2026-04-10 10:38 by 高维春
[考研] 化工调剂求导师收留!一志愿失利,踏实肯干,有植物提取科研经历 +17 yzyzx 2026-04-09 17/850 2026-04-10 10:29 by wp06
[考研] 308求调剂 +21 倘若起风了呢 2026-04-05 21/1050 2026-04-10 08:13 by Sammy2
[考研] 一志愿 江南大学 085602 化工专硕 338分求调剂 +16 路痴小琪 2026-04-05 16/800 2026-04-10 08:08 by kangsm
[考研] 288求调剂,一志愿华南理工大学071005 +16 ioodiiij 2026-04-08 16/800 2026-04-09 23:08 by wolf97
[考研] 计算机11408,286分求调剂 +9 木子念晞 2026-04-05 9/450 2026-04-09 20:04 by vgtyfty
[考研] 材料299专硕求调剂 +10 +21 2026-04-09 10/500 2026-04-09 17:34 by 1753564080
[考研] 求调剂材料科学与工程一志愿985初试365分 +5 材化李可 2026-04-08 5/250 2026-04-09 17:00 by Lilly_Li
[考研] 083200 初试305分 求调剂 暂不考虑跨专业 +15 Claireyyyy 2026-04-09 15/750 2026-04-09 16:11 by zhuimr
[考研] 262求调剂 +10 天下第一文 2026-04-04 13/650 2026-04-09 15:16 by 探123
[考研] 264求调剂 +11 麦小叮当 2026-04-07 11/550 2026-04-08 16:05 by 一只好果子?
[考研] 专硕304找调剂,一线城市最好 +3 李lsl李 2026-04-05 3/150 2026-04-06 12:16 by ffffjjjj
[考研] 296求调剂 +3 汪!?! 2026-04-05 4/200 2026-04-05 20:13 by 啵啵啵0119
[考研] 081200-11408-276学硕求调剂 +4 崔wj 2026-04-04 5/250 2026-04-05 14:06 by imissbao
[考研] 求生物学学硕调剂——364分 +7 云朵遛弯指南 2026-04-04 7/350 2026-04-04 22:49 by zhyzzh
信息提示
请填处理意见