主题:Fortran程序如何读取下面TXT文档里面的内容,未知行数列数还含有字符
v1 1 0 pulse(0 12 0 0.001m 0.001m 0.06 0.08)(初值 幅值 延时 上升时间 下降时间 脉宽 周期)
r1 1 2 6k
r2 2 0 6k
r3 2 3 6k
c1 3 0 2uf
.tran 0.1ms 80ms
.probe
.end
这是文档里的内容
v1 1 0 pulse(0 12 0 0.001m 0.001m 0.06 0.08)(初值 幅值 延时 上升时间 下降时间 脉宽 周期)
r1 1 2 6k
r2 2 0 6k
r3 2 3 6k
c1 3 0 2uf
.tran 0.1ms 80ms
.probe
.end
这是文档里的内容
沙发
program main
character aline*256, aa*2
open(1,file=' ',status='old')
1 continue
read(1,'(a)',end =2) aline
read(aline,*,err=3) aa, i1 i2 ......
3 continue
read(aline,*,err=4) aa, i1 i2 ......
4 continue
goto 1
2 continue
....
.....
您尚未登录,请登录后再回复。点此登录或注册