从Fortran向excel输出文件的方法

从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

via 从fortran向excel输出文件的方法_vqimwr_百度空间.

发表评论

电子邮件地址不会被公开。 必填项已用*标注

CAPTCHA

*