版塊導(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í)熱門(mén)版塊排行榜

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

返回列表

當(dāng)前只顯示滿足指定條件的回帖，點(diǎn)擊這里查看本話題的所有回帖

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ù)此樓

» 猜你喜歡

309求調(diào)劑已經(jīng)有8人回復(fù)
一志愿南航 335分 | 0856 | GPA 4.07 | 有科研經(jīng)歷已經(jīng)有8人回復(fù)
求調(diào)劑已經(jīng)有5人回復(fù)
求化學(xué)調(diào)劑已經(jīng)有5人回復(fù)
085600，材料與化工321分求調(diào)劑已經(jīng)有10人回復(fù)
0703 化學(xué) 求調(diào)劑，一志愿山東大學(xué) 342 分已經(jīng)有5人回復(fù)
一志愿南開(kāi)大學(xué)0710生物學(xué)359求調(diào)劑已經(jīng)有3人回復(fù)
085600，專業(yè)課化工原理，320分求調(diào)劑已經(jīng)有4人回復(fù)
材料與化工272求調(diào)劑已經(jīng)有16人回復(fù)
290求調(diào)劑已經(jīng)有3人回復(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的回帖

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的回帖

查看全部 8 個(gè)回答

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的回帖

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的回帖

查看全部 8 個(gè)回答

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

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

[考研] 總分293求調(diào)劑 +8	加一一九 2026-03-25	11/550	2026-03-29 19:53 by 無(wú)際的草原
[考研] 356求調(diào)劑 +3	gysy?s?a 2026-03-28	3/150	2026-03-29 00:33 by 544594351
[考研] 數(shù)一英一271專碩（085401）求調(diào)劑，可跨 +7	前行必有光 2026-03-28	8/400	2026-03-28 23:22 by 小木蟲(chóng)tim
[考研] 304求調(diào)劑 +6	曼殊2266 2026-03-27	6/300	2026-03-28 14:10 by 唐沐兒
[考研] 317求調(diào)劑 +6	十閑wx 2026-03-24	6/300	2026-03-28 13:27 by Iveryant
[考研] 0703一志愿9，初試成績(jī)：338，四六級(jí)已過(guò)，有科研經(jīng)歷，求調(diào)劑！ +4	Zuhui0306 2026-03-25	4/200	2026-03-28 13:07 by 唐沐兒
[考研] 311求調(diào)劑 +9	lin0039 2026-03-26	9/450	2026-03-28 13:05 by 唐沐兒
[考研] 張芳銘-中國(guó)農(nóng)業(yè)大學(xué)-環(huán)境工程專碩-298 +4	手機(jī)用戶 2026-03-26	4/200	2026-03-28 07:17 by mmm just
[考研] 279 分求調(diào)劑 +4	睡個(gè)好覺(jué)_16 2026-03-24	4/200	2026-03-27 15:05 by 醉在風(fēng)里
[考研] 085601 材料工程 313分求調(diào)劑 +5	Ong3 2026-03-27	5/250	2026-03-27 12:24 by goldfish51
[考研] 一志愿陜師大生物學(xué)071000，298分，求調(diào)劑 +5	SYA！ 2026-03-23	5/250	2026-03-27 09:29 by 不吃魚(yú)的貓
[考研] 材料調(diào)劑 5+4	想要一壺桃花水 2026-03-25	10/500	2026-03-26 19:56 by 不吃魚(yú)的貓
[考研] 總分322求生物學(xué)/生化與分子/生物信息學(xué)相關(guān)調(diào)劑 +5	星沉uu 2026-03-26	6/300	2026-03-26 19:02 by macy2011
[考研] 281求調(diào)劑 +6	Koxui 2026-03-24	7/350	2026-03-26 15:37 by 無(wú)際的草原
[考研] 303求調(diào)劑 +6	藍(lán)山月 2026-03-25	6/300	2026-03-25 22:47 by 418490947
[考研] 【2026考研調(diào)劑】制藥工程 284分求相關(guān)專業(yè)調(diào)劑名額 +4	袁奐奐 2026-03-25	8/400	2026-03-25 14:32 by lbsjt
[考研] 282求調(diào)劑 +3	wcq131415 2026-03-24	3/150	2026-03-25 12:16 by userper
[考研] 333求調(diào)劑 +3	ALULU4408 2026-03-23	3/150	2026-03-23 19:04 by macy2011
[考研] 336化工調(diào)劑 +4	王大坦1 2026-03-23	5/250	2026-03-23 18:32 by allen-yin
[考研] 接收2026碩士調(diào)劑(學(xué)碩+專碩) +4	allen-yin 2026-03-23	6/300	2026-03-23 15:04 by 汪！？！