作者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