24小时热门版块排行榜    

查看: 5727  |  回复: 11

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的回帖

806940059

新虫 (初入文坛)

目测楼主也是搞ABAQUS二次开发且搞温度场分析的,,对不对??我这刚入手、、、被老板讲解的头都大了参考你们讨论的内容学得经验了,谢谢!!
12楼2014-05-07 11:29:15
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 906527107 的主题更新
信息提示
请填处理意见