应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

Znn3bq.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【求助】请问如何删除文件的重复行
81/1返回列表
查看: 2328  |  回复: 7
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

astringent

铜虫 (著名写手)

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

初学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
回复此楼

» 猜你喜欢

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

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

查看全部散金贴
1楼 2011-01-19 04:52:15
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

davidwang83

铁杆木虫 (著名写手)
astringent(金币+1): 2011-01-19 17:26:23
沙发
回复此楼
2楼2011-01-19 08:29:03
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

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
赞一下(1人) 回复此楼
3楼2011-01-19 11:06:23
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)
astringent(金币+6): 2011-01-19 17:27:08
不过话又说回来，用一些传统的小程序可能效果更好……

先 sort，然后 uniq 完事儿，呵呵……
赞一下 回复此楼
4楼2011-01-19 11:34:00
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zhai-lili

金虫 (正式写手)
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的回帖

xioooli

金虫 (小有名气)
★ ★
余泽成(金币+2): 谢谢参与应助，欢迎常来程序语言版！ 2011-02-09 16:16:35
cat file | sort -u
回复此楼
6楼2011-01-25 16:29:31
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

nbjnh

木虫 (正式写手)
★ ★ ★
余泽成(金币+3): 谢谢参与应助，欢迎常来程序语言版！ 2011-02-09 16:15:51
不用编程的。EXCEL2007里“数据”选项卡里就有一个按钮“删除重复项”可以满足你的要求。EXCEL之前的版本也可以通过“高级筛选”来删除重复的行。
赞一下(1人) 回复此楼
7楼2011-01-25 21:39:42
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

hezhizih

金虫 (小有名气)
如果还是这组数据，之是删掉一行怎么改fortran
程序
赞一下 回复此楼
8楼2011-03-19 20:49:55
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 astringent 的主题更新
81/1返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考博] 申博自荐 +3 Linxia林夏 2026-04-13 3/150 2026-04-16 12:55 by 墨荷之露
[考研] 327求调剂 +26 Xxjc1107. 2026-04-13 29/1450 2026-04-16 10:52 by Espannnnnol
[考研] 一志愿沪9，生物学326求调剂 +8 刘墨墨 2026-04-15 8/400 2026-04-16 10:29 by 圆心602
[考研] 恳请有学校收留 +6 柯淮然 2026-04-12 6/300 2026-04-16 07:23 by 学员JpLReM
[考研] 273求调剂 +6 白居不易. 2026-04-09 8/400 2026-04-15 22:02 by wooluyong
[考研] 求调剂学校 +14 不会吃肉 2026-04-13 16/800 2026-04-15 21:59 by noqvsozv
[考研] 291 求调剂 +40 化工2026届毕业� 2026-04-09 41/2050 2026-04-15 21:54 by noqvsozv
[考研] 296求调剂 +12 汪！？！ 2026-04-09 13/650 2026-04-15 20:01 by 学员JpLReM
[考研] 复试调剂 +21 积极向上； 2026-04-10 23/1150 2026-04-15 12:50 by 西北望—风沙
[考研] 26药学专硕105500求调剂 +6 喽哈加油 2026-04-13 6/300 2026-04-14 16:40 by zhouxiaoyu
[考研] 279求调剂 +12 张番茄不炒蛋 2026-04-11 12/600 2026-04-14 15:38 by zs92450
[考研] 调剂 +12 月@163.com 2026-04-11 12/600 2026-04-14 15:37 by zs92450
[考研] 农学0904 312求调剂 +4 Say Never 2026-04-11 4/200 2026-04-14 09:10 by zs92450
[考研] 一志愿西北工业大学289 085602 +33 yang婷 2026-04-10 34/1700 2026-04-12 08:11 by Art1977
[考研] 283求调剂 +22 那个噜子 2026-04-09 22/1100 2026-04-11 10:41 by 逆水乘风
[考研] 22408 352分求调剂0854类 +4 努力的夏末 2026-04-09 4/200 2026-04-11 09:57 by zhq0425
[考研] 22408 327分求调剂 +4 韵风kon 2026-04-10 4/200 2026-04-11 09:51 by 猪会飞
[考研] 311求调剂 +13 xyp想读书 2026-04-10 14/700 2026-04-11 09:41 by 猪会飞
[考研] 中药学调剂 初试324 +4 洋甘菊、 2026-04-10 6/300 2026-04-11 09:41 by gong120082
[考研] 085402通信工程调剂，有4项学科竞赛国奖（电赛国二），硕士研究生调剂自荐信。 +5 m永o不v言o弃m 2026-04-09 5/250 2026-04-11 09:33 by zhq0425
信息提示
关闭
请填处理意见
关闭