lanxueren121 发表于 2014-12-24 15:37:53

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

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

fcode 发表于 2014-12-24 20:59:07

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

lanxueren121 发表于 2014-12-26 15:15:15

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

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

vvt 发表于 2014-12-26 16:22:04


Program www_fcode_cn
Implicit None
Integer , parameter :: N = 2000 ! 2000 行
Character(len=256) :: cList(N) , c
integer :: i , k , io
Open( 12 , File = "list.txt" ) !// 输入文件
Open( 13 , File = "output.txt" ) !// 输出文件
read( 12 , '(a256)' ) cList(1)
write(13,*) trim(cList(1))
k = 1
Do i = 2 , N
    read( 12 , '(a256)' , iostat = io ) c
    if ( io /= 0 ) exit
    if ( all(cList(:k)/=trim(c)) ) then
      write(13,*) Trim( c )
      k = k + 1
      cList(k) = c
    end if
End Do
Close( 12 )
Close( 13 )
End Program www_fcode_cn

lanxueren121 发表于 2014-12-26 17:00:54

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

:-handshake大师太感谢了！！太牛了··
页: [1]
查看完整版本: fortran 如何删除文本中的重复行