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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 读取数据问题
51/1返回列表
查看: 470  |  回复: 4
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

遗忘消失的灆

木虫 (正式写手)

[求助] 读取数据问题 已有2人参与

我有不同时刻产生的数据文件，一共有6000个，如文件名polymer1.xml、polymer2.xml..........polymer 6000.xml，那么我想把这些数据文件里的数据都转移到同一个文件里（polymer.xml），请问如何操作，最好能写一段相关的程序代码
谢谢
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
走出科学迷信
1楼 2014-09-08 15:50:22
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jiangxingge

金虫 (正式写手)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +1
遗忘消失的灆: 金币+9, ★★★★★最佳答案, 谢谢 2014-09-10 20:46:59
如果 都是 文本文件，且每行的长度有限。可以做个程序。
character*300 ch
character*4 ccn
open(22,file='polymer.xml')
n=3  ! 有几个文件就改几
do i=1,n
write(ccn,'(i3)') i
filein='polymer'//adjustl(ccn)//'.xml'
open（11，file=filein)
11  continue
read(11,('a'),end=113) ch
write(22,('a')) ch
goto 11
113 close(11)
enddo
close(22)
end

上述程序就是表达个意思，供你参考，你自己可以根据需要修改。
赞一下 回复此楼
4楼2014-09-10 13:27:34
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 5 个回答

fish.yfyh

铜虫 (小有名气)

【答案】应助回帖

★
感谢参与，应助指数 +1
遗忘消失的灆: 金币+1, ★有帮助 2014-09-09 20:59:19
在Linux系统下的话，直接用cat命令吧，不用写其他代码实现. 当然如果需要按顺序的话，写个循环
CODE:
for id in `seq 1 6000`
do
  cat polymer$id.xml >> polymer.xml
done
赞一下 回复此楼
2楼2014-09-08 23:38:18
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

遗忘消失的灆

木虫 (正式写手)
引用回帖:
2楼: Originally posted by fish.yfyh at 2014-09-08 23:38:18
在Linux系统下的话，直接用cat命令吧，不用写其他代码实现. 当然如果需要按顺序的话，写个循环

for id in `seq 1 6000`
do
  cat polymer$id.xml >> polymer.xml
done

抱歉，我需要的是Fortran，不是c语言，但还是谢谢你啊
赞一下 回复此楼
走出科学迷信
3楼2014-09-09 20:59:03
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jiangxingge

金虫 (正式写手)
引用回帖:
4楼: Originally posted by jiangxingge at 2014-09-10 13:27:34
如果 都是 文本文件，且每行的长度有限。可以做个程序。
character*300 ch
character*4 ccn
open(22,file='polymer.xml')
n=3  ! 有几个文件就改几
do i=1,n
write(ccn,'(i3)') i
filein='polymer'//adjustl ...

头上加一句
character*100 filein
赞一下 回复此楼
5楼2014-09-10 13:28:53
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 5 个回答
普通表情 龙 兔 虎 猫
信息提示
关闭
请填处理意见
关闭