24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

astringent

铜虫 (著名写手)

应助: 16 (小学生)
金币: 2210.7
帖子: 1180
在线: 354.8小时
虫号: 900839

[交流] 【求助】请问如何删除文件的重复行

初学fortran，我的文本文件中有一些重复行，我想把让这些重复行只输出一次，该如何操作啊？请大家帮帮忙。
我的数据是：
820  -38.208827972412109    -19.916282653808594 -21.833311080932617
820  -38.208827972412109    -19.916282653808594 -21.833311080932617
820  -38.208827972412109    -19.916282653808594 -21.833311080932617
883  -23.923450469970703    -52.054363250732422 -53.736301422119141
1048  -18.068826675415039    -47.927806854248047  -43.957603454589844
1126  -42.303085327148438    -28.146203994750977    -16.566274642944336
1192  -41.314952850341797    -31.519393920898438    -47.647663116455078
1201  -22.678596496582031    -37.613601684570313    -41.853523254394531
1333  -38.131767272949219    -31.827587127685547    -55.348121643066406
1333  -38.131767272949219    -31.827587127685547    -55.348121643066406
1522  -30.504835128784180    -17.426969528198242    -23.815391540527344
1522  -30.504835128784180    -17.426969528198242    -23.815391540527344

回复此楼

» 猜你喜欢

依托企业入选了国家启明计划青年人才。有无高校可以引进的。已经有9人回复
有时候真觉得大城市人没有县城人甚至个体户幸福已经有11人回复
表哥与省会女结婚，父母去帮带孩子被省会女气回家生重病了已经有7人回复
同年申请2项不同项目，第1个项目里不写第2个项目的信息，可以吗已经有8人回复
依托企业入选了国家启明计划青年人才。有无高校可以引进的。已经有10人回复
天津大学招2026.09的博士生，欢迎大家推荐交流（博导是本人）已经有9人回复
有院领导为了换新车，用横向课题经费买了俩车已经有10人回复
AI 太可怕了，写基金时，提出想法，直接生成的文字比自己想得深远，还有科学性已经有6人回复

» 本主题相关价值贴推荐，对您同样有帮助:

» 抢金币啦！回帖就可以得到:

查看全部散金贴

1楼 2011-01-19 04:52:15

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

zhai-lili

金虫 (正式写手)

应助: 3 (幼儿园)
金币: 1412.4
帖子: 390
在线: 131.2小时
虫号: 1126500

astringent(金币+6): 2011-01-19 17:26:48
astringent(金币+1): 2011-04-25 20:03:34

我觉得可以导到数据库的表里面
删除重复的行之后再导出来文本，简单可行！

我一般都这么干！

赞一下

回复此楼

5楼2011-01-19 15:45:09

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

查看全部 8 个回答

snoopyzhao

至尊木虫 (职业作家)

★ ★ ★
余泽成(金币+3): 谢谢参与应助！ 2011-01-19 14:45:48
astringent(金币+6): 2011-01-19 17:26:34

下面是一个简单的 Fortran 90 程序，至少对你的这个例子应该是可行的。

CODE:

program test

   character(len=80) :: line1, line2

   integer :: ios

   read(*,'(a)', iostat=ios) line1

   do

      read(*,'(a)', iostat=ios) line2

      if (ios < 0) exit

      if (index(line1, line2) /= 0) then 

         line1 = line2

         cycle

      else

         write (*,'(a)') line1

         line1 = line2

      end if

   end do

   write (*,'(a)') line2

end program test