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

lanxueren121

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

fcode

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

lanxueren121

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

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

vvt

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

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

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

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