fortran 如何删除文本中的重复行

lanxueren121

fortran 如何删除文本中的重复行

fcode

读到数组里，然后判断是否与前面的相等，相等则不输出，不相等就输出。

lanxueren121

fcode 发表于 2014-12-24 20:59
读到数组里，然后判断是否与前面的相等，相等则不输出，不相等就输出。

还是不太清楚，要如何实现，有没有什么小列子什么的谢谢大师了

vvt

[Fortran] 纯文本查看 复制代码

查看代码

打印?

01	Program www_fcode_cn

02	Implicit None

03	Integer , parameter :: N = 2000 ! 2000 行

04	Character(len=256) :: cList(N) , c

05	integer :: i , k , io

06	Open( 12 , File = "list.txt" ) !// 输入文件

07	Open( 13 , File = "output.txt" ) !// 输出文件

08	read( 12 , '(a256)' ) cList(1)

09	write(13,*) trim(cList(1))

10

k = 1

11	Do i = 2 , N

12	read( 12 , '(a256)' , iostat = io ) c

13	if ( io /= 0 ) exit

14	if ( all(cList(:k)/=trim(c)) ) then

15	write(13,*) Trim( c )

16

k = k + 1

17	cList(k) = c

18

end if

19

End Do

20	Close( 12 )

21	Close( 13 )

22	End Program www_fcode_cn

lanxueren121

vvt 发表于 2014-12-26 16:22
[mw_shl_code=fortran,true]Program www_fcode_cn
  Implicit None
  Integer , parameter :: N = 2000 !  ...

大师太感谢了！！太牛了··