[問題] 讀取文字和數值的問題

看板Fortran作者 (魏桑)時間12年前 (2012/03/30 01:52), 編輯推噓3(3推 0噓 6→)
留言9則, 3人參與, 最新討論串1/1
各位大大好~ 最近要讀一筆資料 #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
→
03/30 02:00, , 1F
A21,F5.2 ??
03/30 02:00, 1F
推
03/30 09:49, , 2F
REAL::SEC
03/30 09:49, 2F
→
03/30 09:49, , 3F
READ(10,"(A80)") LENGTH
03/30 09:49, 3F
→
03/30 09:50, , 4F
IF(LENGTH(1:19)=="#RecordLength(sec):") THEN
03/30 09:50, 4F
→
03/30 09:50, , 5F
READ(LENGTH(23:),*) SEC
03/30 09:50, 5F
→
03/30 09:50, , 6F
END IF
03/30 09:50, 6F
→
03/30 09:50, , 7F
WRITE(*,*)SEC
03/30 09:50, 7F
推
03/30 10:22, , 8F
READ(10,*) length,sec 即可
03/30 10:22, 8F
推
03/30 10:47, , 9F
@@" 我傻了
03/30 10:47, 9F
解決了 果真 READ(10,*) length,sec 即可... 其實這個 格式是我從別人的格式中COPY下來的 所以完全不了解在幹嘛== 只知道數字代表格數... 多謝大家的幫忙 也謝謝MKKAR大的幫忙 感恩 ※ 編輯: sunnywei 來自: 220.132.38.13 (03/30 19:49)
‣ 更多 sunnywei 的文章
文章代碼(AID): #1FTA5si2 (Fortran)