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

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

→ awer89:A21,F5.2 ?? 03/30 02:00

推 btoker:REAL::SEC 03/30 09:49

→ btoker:READ(10,"(A80)") LENGTH 03/30 09:49

→ btoker:IF(LENGTH(1:19)=="#RecordLength(sec):") THEN 03/30 09:50

→ btoker:READ(LENGTH(23:),*) SEC 03/30 09:50

→ btoker:END IF 03/30 09:50

→ btoker:WRITE(*,*)SEC 03/30 09:50

推 kkarthur:READ(10,*) length,sec 即可 03/30 10:22

推 btoker:@@" 我傻了 03/30 10:47

解決了果真 READ(10,*) length,sec 即可... 其實這個格式是我從別人的格式中COPY下來的所以完全不了解在幹嘛== 只知道數字代表格數... 多謝大家的幫忙也謝謝MKKAR大的幫忙感恩 ※ 編輯: sunnywei 來自: 220.132.38.13 (03/30 19:49)