版塊導航: 正在加載中...

登錄注冊

應《網(wǎng)絡安全法》要求，自2017年10月1日起，未進行實名認證將不得使用互聯(lián)網(wǎng)跟帖服務。為保障您的帳號能夠正常使用，請盡快對帳號進行手機號驗證，感謝您的理解與支持！

24小時熱門版塊排行榜

北京石油化工學院2026年研究生招生接收調(diào)劑公告

返回列表

當前只顯示滿足指定條件的回帖，點擊這里查看本話題的所有回帖

astringent

銅蟲 (著名寫手)

應助: 16 (小學生)
金幣: 2210.7
帖子: 1180
在線: 354.8小時
蟲號: 900839

[交流] 【求助】請問如何刪除文件的重復行

初學fortran，我的文本文件中有一些重復行，我想把讓這些重復行只輸出一次，該如何操作�。空埓蠹�?guī)蛶兔Α?br /> 我的數(shù)據(jù)是：
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

回復此樓

» 猜你喜歡

299求調(diào)劑已經(jīng)有8人回復
一志愿北京理工大學本科211材料工程294求調(diào)劑已經(jīng)有6人回復
300求調(diào)劑，材料科學英一數(shù)二已經(jīng)有8人回復
招收生物學/細胞生物學調(diào)劑已經(jīng)有5人回復
070305高分子化學與物理 304分求調(diào)劑已經(jīng)有7人回復
289求調(diào)劑已經(jīng)有13人回復
一志愿哈爾濱工業(yè)大學材料與化工方向336分已經(jīng)有9人回復
081200-11408-276學碩求調(diào)劑已經(jīng)有6人回復
調(diào)劑求院校招收已經(jīng)有5人回復
調(diào)劑310 已經(jīng)有8人回復

» 本主題相關(guān)價值貼推薦，對您同樣有幫助:

【求助】如何用DELPHI實現(xiàn)對多種類型文件的管理功能已經(jīng)有9人回復
【求助】請問，如何只刪除晶胞中的某一個原子呢？有圖已經(jīng)有4人回復
【求助成功】請問perl怎么刪除一個set呢？謝謝！已經(jīng)有3人回復
【求助】關(guān)于VC 6.0，請教一個小問題。先謝謝啦已經(jīng)有2人回復
青年基金匯總（供大家分享）已經(jīng)有25人回復
【求助】刪除文件中的某一條記錄？已經(jīng)有3人回復
【求助】出國時攜帶的電腦安裝正版軟件的問題已經(jīng)有6人回復
【求助】如何只刪除晶胞中的某一個原子呢？已經(jīng)有8人回復
【求助】如何在DIAMOND里面批量刪除鍵已經(jīng)有5人回復
【整理】《提問的智慧》——獻給那些不會提問的人已經(jīng)有78人回復

» 搶金幣啦！回帖就可以得到:

查看全部散金貼

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

已閱回復此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

nbjnh

木蟲 (正式寫手)

應助: 14 (小學生)
金幣: 4670.3
帖子: 556
在線: 219小時
蟲號: 1103994

★ ★ ★
余澤成(金幣+3): 謝謝參與應助，歡迎常來程序語言版！ 2011-02-09 16:15:51

不用編程的。EXCEL2007里“數(shù)據(jù)”選項卡里就有一個按鈕“刪除重復項”可以滿足你的要求。EXCEL之前的版本也可以通過“高級篩選”來刪除重復的行。

贊一下(1人)

回復此樓

7樓2011-01-25 21:39:42

已閱回復此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

查看全部 8 個回答

snoopyzhao

至尊木蟲 (職業(yè)作家)

★ ★ ★
余澤成(金幣+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

已閱回復此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

snoopyzhao

至尊木蟲 (職業(yè)作家)

astringent(金幣+6): 2011-01-19 17:27:08

不過話又說回來，用一些傳統(tǒng)的小程序可能效果更好……

先 sort，然后 uniq 完事兒，呵呵……

贊一下

回復此樓

4樓2011-01-19 11:34:00

已閱回復此樓關(guān)注TA 給TA發(fā)消息送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

我覺得可以導到數(shù)據(jù)庫的表里面
刪除重復的行之后再導出來文本，簡單可行！

我一般都這么干！

贊一下

回復此樓

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

已閱回復此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

查看全部 8 個回答

普通表情龍兔虎貓高級回復 (可上傳附件)

最具人氣熱帖推薦 [查看全部]		作者	回/看	最后發(fā)表

[考研] 0856材料化工調(diào)劑總分330 +11	zhubinhao 2026-03-27	11/550	2026-03-28 20:22 by 418490947
[考研] 化學0703 調(diào)劑 306分一志愿211 +4	26要上岸 2026-03-28	4/200	2026-03-28 15:30 by 1018329917
[考研] 304求調(diào)劑 +6	曼殊2266 2026-03-27	6/300	2026-03-28 14:10 by 唐沐兒
[考研] 085701環(huán)境工程求調(diào)劑 +9	多久上課 2026-03-27	9/450	2026-03-28 03:58 by fmesaito
[考研] 070300化學求調(diào)劑 +4	起個名咋這么難 2026-03-27	4/200	2026-03-27 21:39 by 83503孫老師
[有機交流] 高溫高壓反應求助 10+4	chibby 2026-03-25	4/200	2026-03-27 21:08 by BT20230424
[考研] 266求調(diào)劑 +11	陽陽哇塞 2026-03-27	12/600	2026-03-27 17:56 by yu221
[考研] 308求調(diào)劑 +7	墨墨漠 2026-03-25	7/350	2026-03-27 14:47 by 狂炫麥當當
[考研] 08開頭275求調(diào)劑 +4	拉誰不重要 2026-03-26	4/200	2026-03-27 14:12 by Delta2012
[考研] 一志愿211，335分，0856，求調(diào)劑院校和導師 +4	傾____蕭 2026-03-27	5/250	2026-03-27 11:52 by zhshch
[考研] 調(diào)劑 +3	李嘉圖·S·路 2026-03-27	3/150	2026-03-27 11:19 by wangjy2002
[考研] 求調(diào)劑，一志愿南京航空航天大學大學，080500材料科學與工程學碩 +4	@taotao 2026-03-26	5/250	2026-03-27 08:10 by hypershenger
[考研] 336材料求調(diào)劑 +7	陳瀅瑩 2026-03-26	9/450	2026-03-27 00:20 by wxiongid
[考研] 材料調(diào)劑 5+4	想要一壺桃花水 2026-03-25	10/500	2026-03-26 19:56 by 不吃魚的貓
[考研] 生物學 296 求調(diào)劑 +4	朵朵- 2026-03-26	6/300	2026-03-26 19:01 by 不吃魚的貓
[考研] 中國科學院深圳先進技術(shù)研究院-光纖傳感課題組招生-中國科學院大學、深圳理工大學聯(lián)培 +5	YangTyu1 2026-03-26	5/250	2026-03-26 18:27 by 貓咪貓咪呀
[考研] 求b區(qū)院校調(diào)劑 +4	周56 2026-03-24	5/250	2026-03-25 17:12 by yishunmin
[考研] 285求調(diào)劑 +3	AZMK 2026-03-24	3/150	2026-03-25 12:23 by userper
[考研] 一志愿吉林大學材料與化工303分求調(diào)劑 +4	為學666 2026-03-24	4/200	2026-03-25 11:27 by BruceLiu320
[考研] 材料專碩找調(diào)劑 +5	哈哈哈吼吼吼哈 2026-03-23	5/250	2026-03-24 19:07 by 了了了了。。

亭亭五月天在线观看,亭亭五月天在线观看,国产最新av一区二区,国产 高清 中文字幕,99re热久久亚洲综合精品成人,熟妇 一区二区三区,一级做a爰片性色毛片武则天,美女的骚穴视频播放,国产美女午夜免费视频

24小時熱門版塊排行榜

astringent

[交流] 【求助】請問如何刪除文件的重復行

» 猜你喜歡

» 本主題相關(guān)價值貼推薦，對您同樣有幫助:

» 搶金幣啦！回帖就可以得到: 查看全部散金貼

nbjnh

snoopyzhao

snoopyzhao

zhai-lili

亭亭五月天在线观看,亭亭五月天在线观看,国产最新av一区二区,国产高清中文字幕,99re热久久亚洲综合精品成人,熟妇一区二区三区,一级做a爰片性色毛片武则天,美女的骚穴视频播放,国产美女午夜免费视频

» 本主題相關(guān)價值貼推薦，對您同樣有幫助:

» 搶金幣啦！回帖就可以得到:

查看全部散金貼