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

登錄注冊

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

24小時熱門版塊排行榜

返回列表

本帖產(chǎn)生 1 個程序強(qiáng)帖，點(diǎn)擊這里進(jìn)行查看

onexf766

木蟲 (正式寫手)

應(yīng)助: 0 (幼兒園)
金幣: 3258.2
帖子: 476
在線: 185.9小時
蟲號: 455243

[交流] 【求助】從文件讀入數(shù)組遇到困難

文件A中第一行有n個數(shù)，另一文件B中第一行有m個數(shù)。(其中n,m<100)
我要分別將上面的文件讀入另一個文件C，我用下面的遇到困難：
INTEGER num1(100),num2(100)
OPEN (20,FILE="A.txt" )
OPEN (21,FILE="B.txt" )
OPEN (22,FILE="C.txt" )
READ(20,*)(numb1(i),i=1,n)
READ(21,*)(numb2(i),i=1,m)
WRITE(22,*)(numb(i),i=1,n)
WRITE(22,*)(numb(i),i=1,m)
END

現(xiàn)在的問題是讀入的數(shù)據(jù)個數(shù)如果和數(shù)組的大小不等的話，就無法讀入。
由于類似文件很多，不要人為的讀入n或m的值，如何辦？

想過用動態(tài)數(shù)組，也沒能搞定。
INTEGER, allocatable::numb(

; ! 聲明動態(tài)數(shù)組，可以是多維的，類似a(:,:,

allocate(numb(50)); ! 給動態(tài)數(shù)組分配內(nèi)存
numb(50)=1.0; ! 操作和平常的數(shù)組一樣
deallocate(numb);

請高手貼出具體的程序解決，誠盼！！�。�！

[ Last edited by onexf766 on 2010-12-25 at 20:43 ]

回復(fù)此樓

» 猜你喜歡

277調(diào)劑已經(jīng)有6人回復(fù)
341求調(diào)劑已經(jīng)有7人回復(fù)
328求調(diào)劑，英語六級551，有科研經(jīng)歷已經(jīng)有8人回復(fù)
293求調(diào)劑已經(jīng)有12人回復(fù)
070300化學(xué)319求調(diào)劑已經(jīng)有4人回復(fù)
268求調(diào)劑已經(jīng)有9人回復(fù)
301求調(diào)劑已經(jīng)有4人回復(fù)
0703化學(xué)336分求調(diào)劑已經(jīng)有5人回復(fù)
301求調(diào)劑已經(jīng)有4人回復(fù)
材料專碩306英一數(shù)二已經(jīng)有9人回復(fù)

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

增大數(shù)組后執(zhí)行窗口只是一閃已經(jīng)有14人回復(fù)
求助：在GUI界面中顯示m文件中的數(shù)組圖片已經(jīng)有3人回復(fù)
畢赤酵母基因重組時遇到困難了已經(jīng)有9人回復(fù)
混合基組中,如何讀入前一基組的CHK文件? 已經(jīng)有4人回復(fù)
三維數(shù)組換行輸入到文件（intel fortran 編譯器）已經(jīng)有6人回復(fù)
關(guān)于c語言的一個小問題坐等回復(fù)啊急啊是關(guān)于建立數(shù)組的已經(jīng)有9人回復(fù)
從txt文件讀數(shù)據(jù)到二維數(shù)組已經(jīng)有4人回復(fù)
【求助】關(guān)于ansys讀入荷載文件已經(jīng)有4人回復(fù)
【求助】一個求數(shù)組絕對值的小問題已經(jīng)有7人回復(fù)
.txt格式的文件怎么讀入Jade5啊？已經(jīng)有4人回復(fù)
【求助】module里面能夠讓數(shù)組從外部接受一些數(shù)據(jù)嗎？【已完結(jié)】已經(jīng)有8人回復(fù)
【求助】ANSYS定義數(shù)組時，如何從TXT文件中導(dǎo)入？已經(jīng)有7人回復(fù)

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

查看全部散金貼

1樓 2010-12-25 20:40:47

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

snoopyzhao

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

★ ★ ★
余澤成(金幣+3):謝謝參與應(yīng)助！ 2010-12-31 16:39:29
onexf766(金幣+20): 不錯，能給解釋下不？ 2011-04-09 10:59:49

關(guān)于讀數(shù)據(jù)的部分，可參考下面的代碼：

CODE:

      PROGRAM MAIN

      CHARACTER*265 LINE

      INTEGER NUM1(100)

      OPEN (20,FILE="AA.TXT" )

      READ(20,'(A)')LINE

      READ(LINE, *, END = 20) (NUM1(I), I = 1,100)

20    CONTINUE      

      PRINT *, I

      WRITE(*,*) (NUM1(J), J = 1,I-1)

      END

贊一下(1人)

回復(fù)此樓

2樓2010-12-25 22:24:32

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

zhaooming

新蟲 (初入文壇)

應(yīng)助: 0 (幼兒園)
金幣: 36.2
帖子: 44
在線: 3.7小時
蟲號: 614127

可以看看這個

★ ★ ★
余澤成(金幣+3):謝謝參與應(yīng)助！ 2010-12-31 16:39:38
onexf766(金幣+4): xx! 2011-04-09 11:00:00

在附件中

贊一下(1人)

回復(fù)此樓

3樓2010-12-29 09:31:52

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

snoopyzhao

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

onexf766(金幣+6): 非常謝謝！呵呵 2011-04-09 18:01:49
余澤成(程序強(qiáng)帖+1): 2011-04-20 22:43:28

引用回帖:

不錯，能給解釋下不？

CODE:

      PROGRAM MAIN

      CHARACTER*265 LINE

      INTEGER NUM1(100)

      OPEN (20,FILE="AA.TXT" )

      READ(20,'(A)')LINE

      READ(LINE, *, END = 20) (NUM1(I), I = 1,100)

20    CONTINUE      

      PRINT *, I

      WRITE(*,*) (NUM1(J), J = 1,I-1)

      END

這里關(guān)鍵的是下面兩行

CODE:

      READ(20,'(A)')LINE

      READ(LINE, *, END = 20) (NUM1(I), I = 1,100)

第一行很容易理解，就是從文件中讀入一行，以字符串的形式讀入，由于你的一行中全部是數(shù)值，所以，我們可以用 Fortran 的內(nèi)部文件機(jī)制解決數(shù)據(jù)的讀取問題。這就是第二行的代碼。在第二行中，LINE 不再是一個字符串，而是一個內(nèi)部文件，這個文件的內(nèi)容就是前一行讀入的那個字符串。END 表示遇到文件尾部時的處理方式，在這里，遇到尾部就跳到標(biāo)號為 20 的行。由于你問題中說到數(shù)據(jù)不超過 100，所以我就設(shè)了后面讀入100個數(shù)，比如你的數(shù)據(jù)是 70 個，當(dāng)讀第 71 個數(shù)據(jù)時，其實(shí)已經(jīng)是尾部了，因此，就直接跳到標(biāo)號為 20 的行了……

大概就是這個樣子的……

贊一下(1人)

回復(fù)此樓

4樓2011-04-09 11:19:27

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

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

返回列表

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

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

[考研] 0703化學(xué)336分求調(diào)劑 +4	zbzihdhd 2026-03-15	5/250	2026-03-17 17:33 by ruiyingmiao
[考研] 材料專碩326求調(diào)劑 +6	墨煜姒莘 2026-03-15	7/350	2026-03-17 17:10 by ruiyingmiao
[基金申請] 被我言中：新模板不強(qiáng)調(diào)格式了，假專家開始管格式了 +3	beefly 2026-03-14	3/150	2026-03-17 16:45 by RRRKKK
[考研] 271求調(diào)劑 +12	生如夏花… 2026-03-11	14/700	2026-03-17 10:56 by lovewei0727
[考研] 285化工學(xué)碩求調(diào)劑（081700） +9	柴郡貓_ 2026-03-12	9/450	2026-03-17 10:18 by Sammy2
[考研] 278求調(diào)劑 +3	Yy7400 2026-03-13	3/150	2026-03-17 08:24 by laoshidan
[考研] 藥學(xué)383 求調(diào)劑 +3	藥學(xué)chy 2026-03-15	4/200	2026-03-16 20:51 by 元子^0^
[考研] 一志愿985，本科211，0817化學(xué)工程與技術(shù)319求調(diào)劑 +5	Liwangman 2026-03-15	5/250	2026-03-16 17:10 by 我的船我的海
[考研] 304求調(diào)劑 +5	素年祭語 2026-03-15	5/250	2026-03-16 17:00 by 我的船我的海
[考研] 304求調(diào)劑 +4	ahbd 2026-03-14	4/200	2026-03-16 16:48 by 我的船我的海
[考研] 070300化學(xué)學(xué)碩求調(diào)劑 +6	太想進(jìn)步了0608 2026-03-16	6/300	2026-03-16 16:13 by kykm678
[考研] 277材料科學(xué)與工程080500求調(diào)劑 +3	自由煎餅果子 2026-03-16	3/150	2026-03-16 14:10 by 運(yùn)氣yunqi
[考研] 080500，材料學(xué)碩302分求調(diào)劑學(xué)校 +4	初識可樂 2026-03-14	5/250	2026-03-14 21:08 by peike
[考研] 279求調(diào)劑 +3	抓著星星的女孩 2026-03-10	3/150	2026-03-13 23:47 by userper
[考研] 26調(diào)劑/材料/英一數(shù)二/總分289/已過A區(qū)線 +6	步川酷紫123 2026-03-13	6/300	2026-03-13 21:59 by 星空星月
[考研] 290求調(diào)劑 +9	ADT 2026-03-11	9/450	2026-03-13 21:55 by JourneyLucky
[考研] 工科278分求調(diào)劑 +5	周慢熱啊 2026-03-12	7/350	2026-03-13 15:49 by JourneyLucky
[考研] 一志愿211化學(xué)學(xué)碩310分求調(diào)劑 +8	努力奮斗112 2026-03-12	9/450	2026-03-13 15:41 by JourneyLucky
[考研] 化工學(xué)碩306求調(diào)劑 +9	42838695 2026-03-12	9/450	2026-03-13 10:16 by houyaoxu
[考研] 270求調(diào)劑 085600材料與化工專碩 +3	YXCT 2026-03-11	3/150	2026-03-13 10:13 by houyaoxu

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

24小時熱門版塊排行榜

onexf766

[交流] 【求助】從文件讀入數(shù)組遇到困難

» 猜你喜歡

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

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

snoopyzhao

zhaooming

可以看看這個

snoopyzhao

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

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

查看全部散金貼