从fortran向excel输出文件的方法

从fortran向excel输出文件的方法2007年03月28日 星期三 下午 03:57(by vqimwr)

从fortran向excel输出文件的方法(增加了lm_lx用shell32打开xls的句子)：

1、xls格式

excel的默认格式，估计是大家所期望的输出格式。方法很简单，只要知道xls文件的分列符号是tab键就行了，于

 

是在同行的各数据间加上"     "字符(按一下tab键，在fortran输出时两边加上英文引号)就搞定了。

 

例子如下：

!VF6.6通过。Fortran将数据输出到xls文件的例子。

program main

Use shell32

implicit none

integer::i,j

real::a(10,10)

real::f_open

a=2

open(1,file="result.xls")

do i=1,10

   write(1,"(10(f3.1,' '))") (a(i,1),j=1,10)

!   write(1,"(10(f3.1,a))") (a(i,1)," ",j=1,10) !当然，也可以这样

end do

close(1)

f_open=ShellExecute(0, "open", "result.xls", NULL, NULL, 1)

stop

end program main

 

★要说明的是，其实，在实质上这并不是真正意义上的excel格式的文件，而仍然是txt文件，只不过能默认excel软件能打开并正确显示。用excel打开后，点击保存文件，这时候excel会提醒是否转为真正的xls格式，如果是，则会另存一份“正版”的excel文件。

------------------------------------------------------------------------

 

2、csv格式

csv也可以用excel打开。一般情况下，windows系统下装了excel的话，excel就是csv的默认打开方式。需要知道的是，csv的分列符号是有别于xls格式的，它是默认分列符号是英文逗号。

 

下面引用一段文字吧（百度上查的）:

CSV其实就是COMMA SEPARATED VALUE的缩写，出现在档案总管中的档案类型是「逗号分格」，依计算机原来的设定，如果直接点选该档案，计算机将以EXCEL的模式开启该档案。但建议您千万不要这么做，因为CSV档如果以EXCEL开启，由于计算机档案数据转换的原因，会将其CRC之数值改做科学记号方式储存，而造成档案中的 CRC值发生错误。这也是笔者初出茅庐时所得到的惨痛经验，但如果想一窥CSV档的真实面貌，笔者建议您使用WORDPAD或是记事本（NOTE）来开启，再则先另存新档后用EXCEL开启，也是方法之一。开启后的CSV档包含了四或五个字段（部分），由左至右分别记载着：文件名称（XXXX.JPG）、档案大小（以BYTE为单位）、CRC32值（八个英文字母或数字组成）、档案路径（档案储存的子目录名称）和档案内容描述（一般来说都是明星的英文姓名甚或是专辑名称，也可能空白）。而其中第四栏「档案路径」因为每个人储存整理图档的方式不同，所以本栏通常不存在，而一般有含有「档案路径」这栏的CSV档，又称为ECSV档案

 

例子：

!注： CVF6.6通过。Fortran将数据输出到csv文件的例子。

program main

use shell32

implicit none

integer::i,j

real::a(10,10)

real::f_OpenFile

a=2

open(1,file="result.csv") !csv格式

do i=1,10

   write(1,"(10(f3.1,','))") (a(i,1),j=1,10)

!   write(1,"(10(f3.1,a))") (a(i,1),',',j=1,10)  

end do

close(1)

f_Openfile=ShellExecute(0,"open","result.csv",null,null,1)

stop

end program main