作者sunnywei (魏桑)
看板Fortran
标题[问题] 读取文字和数值的问题
时间Fri Mar 30 01:52:51 2012
各位大大好~
最近要读一笔资料
#RecordLength(sec): 44.00
我主要是想读 44.00那个数值
我的概念是
先把前面文字读掉 在读後面的值
所以我写成 read (10,'(a21,a5)') length,sec
文字得格式 应该是没问题
但是我後面那个SEC 读到的却是另外一个差异很大值(几乎=0)
之後又想到另外一种
read(10,'(a21)') length
read(10,'(a5)') sec
这样读两层...
但是出来的值却变得非常大
实在是令我非常苦恼啊!!
拜托各位大大解惑啊!!
--
j&= y+ y* jv+ yy-v v &
wE!" j17$T 7MPC NU$E- Ej&v-
O*K^ yHH:Ovm+ UMMK BMNTO: H1="7'
jO&OH: "OH7"E~ U0H1 BB71` jCf'U:
vM1H1 jB-j1 wHhHh*-/$B]B- BKJUK
^HI'OH j""^N1 "OHOK~ H$H"Da jP'N ^ 这次，是我的真心话...
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.132.38.13
1F：→ awer89:A21,F5.2 ?? 03/30 02:00
2F：推 btoker:REAL::SEC 03/30 09:49
3F：→ btoker:READ(10,"(A80)") LENGTH 03/30 09:49
4F：→ btoker:IF(LENGTH(1:19)=="#RecordLength(sec):") THEN 03/30 09:50
5F：→ btoker:READ(LENGTH(23:),*) SEC 03/30 09:50
6F：→ btoker:END IF 03/30 09:50
7F：→ btoker:WRITE(*,*)SEC 03/30 09:50
8F：推 kkarthur:READ(10,*) length,sec 即可 03/30 10:22
9F：推 btoker:@@" 我傻了 03/30 10:47
解决了 果真 READ(10,*) length,sec 即可...
其实这个 格式是我从别人的格式中COPY下来的
所以完全不了解在干嘛== 只知道数字代表格数...
多谢大家的帮忙 也谢谢MKKAR大的帮忙 感恩
※ 编辑: sunnywei 来自: 220.132.38.13 (03/30 19:49)