求将DAT文件转换成TXT文件的fortran源程序代码

凌晨24点

求助：将DAT文件转换成TXT文件的fortran源程序代码！急急急！！

何永利

你要是知道dat里数据的格式，直接读取就可以了，转成txt干吗？若是不知道格式，又怎么转txt

凌晨24点

何永利 发表于 2011-9-5 20:45

                               
登录/注册后可看大图

你要是知道dat里数据的格式，直接读取就可以了，转成txt干吗？若是不知道格式，又怎么转txt

我知道的，但是这个DAT文件是我用其他软件转换出来的，现在想用fortran把他转成TXT的，这样方便使用！

mofangbao

老兄，你这样我想帮你都无从下手，要转换是必须要知道你的源数据排列方式，以及转换后的数据排列方式，数据格式转换并不是单纯的哪个软件能打开的问题，要知道数据排列才行，，

凌晨24点

mofangbao 发表于 2011-9-5 21:02

                               
登录/注册后可看大图

老兄，你这样我想帮你都无从下手，要转换是必须要知道你的源数据排列方式，以及转换后的数据排列方式，数据 ...

不需要，你只要给我一个常用的转换程序就行了，我自己改一下就行，同学

mofangbao

抱歉啦，这个没有通用的，要是说如何把二进制转为ascii格式，可以参考本论坛fortran版块有很多可以参考

言深深

mofangbao 发表于 2011-9-5 21:40

                               
登录/注册后可看大图

抱歉啦，这个没有通用的，要是说如何把二进制转为ascii格式，可以参考本论坛fortran版块有很多可以参考

@凌晨24点才回来，晚上出去吃饭，呵呵，之前和另一个同学讨论的时候写过一个转换的程序，不知道是不是你要的，直接贴在下面了，希望对你有用。一些参数，自己看着改一下吧，其实学习的过程是痛苦的，但结果往往是令人幸福的，加油哦
  parameter(n=40,m=17)

   dimension  wtr(n,m),wtm(n,m),wte(n,m)

       open(21,file='nhr_re.dat',access='direct',form='binary',recl=n*m*4)
       open(61,file='nhr_mse.dat',access='direct',form='binary',recl=n*m*4)
       open(31,file='nhr_mod.dat',access='direct',form='binary',recl=n*m*4)

        read(21,rec=1) ((wtr(j,i),j=1,n),i=1,m)
        read(31,rec=1) ((wtm(j,i),j=1,n),i=1,m)
        read(61,rec=1) ((wte(j,i),j=1,n),i=1,m)


       open(22,file='nhr_re.txt')
       open(62,file='nhr_mse.txt')
       open(32,file='nhr_mod.txt')

        write(22,*) ((wtr(j,i),j=1,n),i=1,m)
        write(32,*) ((wtm(j,i),j=1,n),i=1,m)
        write(62,*) ((wte(j,i),j=1,n),i=1,m)

   END

残月

言深深 发表于 2011-9-5 22:03

                               
登录/注册后可看大图

@凌晨24点才回来，晚上出去吃饭，呵呵，之前和另一个同学讨论的时候写过一个转换的程序，不知道是不是你要 ...

言版，我有个弱智的问题，为什么 纪录长度需要乘以4啊 。。我自己经常不乘以4 感觉也对，这是为什么啊，能解释下吗？谢谢了

言深深

残月 发表于 2011-9-6 09:01

                               
登录/注册后可看大图

言版，我有个弱智的问题，为什么 纪录长度需要乘以4啊 。。我自己经常不乘以4 感觉也对，这是为什么啊，能 ...

介个，介个，我也不知道呢······值得研究下下··嘿嘿，搞定之后告诉你

残月

言深深 发表于 2011-9-6 09:03

                               
登录/注册后可看大图

介个，介个，我也不知道呢······值得研究下下··嘿嘿，搞定之后告诉你

恩哈