版塊導(dǎo)航: 正在加載中...

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

24小時(shí)熱門版塊排行榜

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

返回列表

astringent

銅蟲(chóng) (著名寫(xiě)手)

應(yīng)助: 16 (小學(xué)生)
金幣: 2210.7
帖子: 1180
在線: 354.8小時(shí)
蟲(chóng)號(hào): 900839

[交流] 【求助】請(qǐng)問(wèn)如何刪除文件的重復(fù)行

初學(xué)fortran，我的文本文件中有一些重復(fù)行，我想把讓這些重復(fù)行只輸出一次，該如何操作啊？請(qǐng)大家?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

回復(fù)此樓

» 猜你喜歡

2026年華南師范大學(xué)歡迎化學(xué)，化工，生物，生醫(yī)工等專業(yè)優(yōu)秀學(xué)子加入！已經(jīng)有5人回復(fù)
298求調(diào)劑已經(jīng)有3人回復(fù)
數(shù)一英一271專碩（085401）求調(diào)劑，可跨已經(jīng)有8人回復(fù)
295求調(diào)劑已經(jīng)有4人回復(fù)
0856求調(diào)劑已經(jīng)有5人回復(fù)
材料學(xué)碩333求調(diào)劑已經(jīng)有10人回復(fù)
299求調(diào)劑已經(jīng)有6人回復(fù)
一志愿鄭州大學(xué)，080500學(xué)碩，總分317分求調(diào)劑已經(jīng)有6人回復(fù)
289求調(diào)劑已經(jīng)有12人回復(fù)
070305高分子化學(xué)與物理 304分求調(diào)劑已經(jīng)有6人回復(fù)

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

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

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

查看全部散金貼

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

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

davidwang83

鐵桿木蟲(chóng) (著名寫(xiě)手)

應(yīng)助: 0 (幼兒園)
貴賓: 0.02
金幣: 6345.8
帖子: 1677
在線: 113小時(shí)
蟲(chóng)號(hào): 414088

astringent(金幣+1): 2011-01-19 17:26:23

沙發(fā)

回復(fù)此樓

2樓2011-01-19 08:29:03

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

snoopyzhao

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

程序強(qiáng)帖: 16
應(yīng)助: 157 (高中生)
貴賓: 0.02
金幣: 18844.7
帖子: 3803
在線: 1422.4小時(shí)
蟲(chóng)號(hào): 183750

★ ★ ★
余澤成(金幣+3): 謝謝參與應(yīng)助！ 2011-01-19 14:45:48
astringent(金幣+6): 2011-01-19 17:26:34

下面是一個(gè)簡(jiǎn)單的 Fortran 90 程序，至少對(duì)你的這個(gè)例子應(yīng)該是可行的。

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人)

回復(fù)此樓

3樓2011-01-19 11:06:23

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

snoopyzhao

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

程序強(qiáng)帖: 16
應(yīng)助: 157 (高中生)
貴賓: 0.02
金幣: 18844.7
帖子: 3803
在線: 1422.4小時(shí)
蟲(chóng)號(hào): 183750

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

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

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

贊一下

回復(fù)此樓

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

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

zhai-lili

金蟲(chóng) (正式寫(xiě)手)

應(yīng)助: 3 (幼兒園)
金幣: 1412.4
帖子: 390
在線: 131.2小時(shí)
蟲(chóng)號(hào): 1126500

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

我覺(jué)得可以導(dǎo)到數(shù)據(jù)庫(kù)的表里面
刪除重復(fù)的行之后再導(dǎo)出來(lái)文本，簡(jiǎn)單可行！

我一般都這么干！

贊一下

回復(fù)此樓

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

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

xioooli

金蟲(chóng) (小有名氣)

程序強(qiáng)帖: 1
應(yīng)助: 2 (幼兒園)
金幣: 744
帖子: 82
在線: 33小時(shí)
蟲(chóng)號(hào): 940951

★ ★
余澤成(金幣+2): 謝謝參與應(yīng)助，歡迎常來(lái)程序語(yǔ)言版！ 2011-02-09 16:16:35

cat file | sort -u

回復(fù)此樓

6樓2011-01-25 16:29:31

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

nbjnh

木蟲(chóng) (正式寫(xiě)手)

應(yīng)助: 14 (小學(xué)生)
金幣: 4670.3
帖子: 556
在線: 219小時(shí)
蟲(chóng)號(hào): 1103994

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

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

贊一下(1人)

回復(fù)此樓

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

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

hezhizih

金蟲(chóng) (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 1000.6
帖子: 59
在線: 7.4小時(shí)
蟲(chóng)號(hào): 902778

如果還是這組數(shù)據(jù)，之是刪掉一行怎么改fortran
程序

贊一下

回復(fù)此樓

8樓2011-03-19 20:49:55

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

相關(guān)版塊跳轉(zhuǎn) 我要訂閱樓主 astringent 的主題更新

返回列表

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

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

[考研] 各位老師好，我的一志愿為北京科技大學(xué)085601材料專碩 +5	Koxui 2026-03-28	5/250	2026-03-28 22:08 by 運(yùn)氣yunqi
[考研] 一志愿211 初試270分求調(diào)劑 +7	谷雨上岸 2026-03-23	8/400	2026-03-28 21:47 by lbsjt
[考研] 一志愿北京理工大學(xué)本科211材料工程294求調(diào)劑 +4	mikasa的圍巾 2026-03-28	4/200	2026-03-28 20:44 by lbsjt
[考研] 394求調(diào)劑 +3	好事多磨靜候佳?/a> 2026-03-26	5/250	2026-03-28 14:24 by 唐沐兒
[考研] 347求調(diào)劑 +3	山頂見(jiàn)α 2026-03-25	3/150	2026-03-28 14:13 by 唐沐兒
[考研] 0703化學(xué) +10	妮妮ninicgb 2026-03-27	10/500	2026-03-28 14:07 by 噠噠噠呱呱呱
[考研] 材料求調(diào)劑一志愿哈工大324 +7	閆旭東 2026-03-28	9/450	2026-03-28 08:51 by Xu de nuo
[考研] 292求調(diào)劑 +14	鵝鵝鵝額額額額?/a> 2026-03-25	15/750	2026-03-28 08:45 by WYUMater
[考研] 0703化學(xué)/290求調(diào)劑/本科經(jīng)歷豐富/工科也可 +9	丹青奶蓋 2026-03-26	10/500	2026-03-28 07:45 by barnett0632
[考研] 295求調(diào)劑 +5	1428151015 2026-03-27	6/300	2026-03-28 04:04 by fmesaito
[考研] 266求調(diào)劑 +11	陽(yáng)陽(yáng)哇塞 2026-03-27	12/600	2026-03-27 17:56 by yu221
[考博] 26申博 +3	加油沖�。� 2026-03-26	3/150	2026-03-27 15:38 by cls512
[考研] 考研化學(xué)308分求調(diào)劑 +10	你好明天你好 2026-03-23	12/600	2026-03-27 14:43 by shangxh
[考研] 08開(kāi)頭275求調(diào)劑 +4	拉誰(shuí)不重要 2026-03-26	4/200	2026-03-27 14:12 by Delta2012
[考研] 085601 材料工程 313分求調(diào)劑 +5	Ong3 2026-03-27	5/250	2026-03-27 12:24 by goldfish51
[考研] 286求調(diào)劑 +4	lim0922 2026-03-26	4/200	2026-03-27 10:28 by guoweigw
[考研] 求調(diào)劑 +8	Auroracx 2026-03-22	8/400	2026-03-26 19:55 by 不吃魚(yú)的貓
[考研] 293求調(diào)劑 +7	加一一九 2026-03-24	7/350	2026-03-25 12:02 by userper
[考研] 求調(diào)劑 +6	研研，接電話 2026-03-24	7/350	2026-03-24 17:01 by barlinike
[考研] 384求調(diào)劑 +3	子系博 2026-03-22	6/300	2026-03-23 21:45 by 子系博

24小時(shí)熱門版塊排行榜

[交流] 【求助】請(qǐng)問(wèn)如何刪除文件的重復(fù)行

» 猜你喜歡

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

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

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

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

查看全部散金貼