作者snowanimal (依然動物先生)
看板Fortran
標題Re: [問題] 讀取檔案再另存檔案
時間Fri Feb 26 11:51:07 2010
※ 引述《smartyouba (氣恰碰)》之銘言:
: 請問各位高手一下...
: 如果想要在讀取完路徑c:\tran\a.txt這個文字檔
: 後再輸出一個一模一樣的的文字檔檔名為b.txt在同一路徑要怎麼打
: (有指令是會暫存讀取到的東西之後可以再另外輸出的指令嗎)
: 我都只有用read.write.open寫不出來...
: ------------以下是腦殘新手打的程式"可以忽略"-----------
: program ex01
: OPEN(1,FILE='a.txt',STATUS='SCRATCH')
: !SCRATCH有暫存檔的功能嗎?
: READ(1,*)
: READ(1,*)
: OPEN(2,FILE='b.TXT',STAUS='UNKNOWN')
: WRITE(2,1)
: WRITE(2,1)
你讀一行就要寫一行了,你code這樣的順序是:
"讀了a第一行"
"讀了a第二行"
開啟b.txt
"在b寫入a的第二行"
"在b寫入a的第二行"
還有,你沒有將你要讀取的東西設定好,根本不知道要讀啥,
read(1,*) <---這樣是只有讀....
write(2,1) <---是寫入沒錯啦,但是後面的1是format...
所以你需要設定好變數,還有讀取的東西,接著再把他寫進去。
: STOP
: END
以下是簡單範例:
character*999 adata <--- 假設你要讀的東西是一個長度999的字串
open (11,file="a.TXT",form="formatted") <--- 開啟a
open (22,file="b.TXT",form="formatted") <--- 開啟b
read (11,*) adata
write (22,*) adata
read (11,*) adada
write (22,*) adada
以下省略 大概就是類似這樣 (不用迴圈 只用write read open close)
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 163.24.72.117
1F:推 smartyouba:謝謝snowanimal大大! 02/26 12:03