Re: [問題] 指定讀取文字資料

[kkarthur (aa)]

※ 引述《btoker (阿瑞)》之銘言：
: line,framesections, point coordinates三個都算是標題
: 我想只抓framesections裡的八個frame
: 輸出答案為" 8 "
: 請問是否有指令可以去做判別"我要從哪裡開始讀"
: 或是" 讀到空白處結束" 並計算個數
: 謝謝各位
CHARACTER(LEN=80) LLEN
INTEGER :: IERR,COUNT

OPEN(UNIT=11,FILE="xx.txt")

COUNT = 0
DO WHILE(.TRUE.)
       READ(11,"(A80)",IOSTAT=IERR) LLEN
       IF(IERR==-1) EXIT
       IF(LLEN(1:13)=="framesections") THEN
                DO WHILE(.TRUE.)
                        IF(IERR==-1) EXIT
                        READ(11,"(A80)",IOSTAT=IERR) LLEN
                        IF(LLEN(1:5)=="frame") THEN
                                COUNT = COUNT + 1
                        END IF
                END DO
       END IF
END DO


試試看吧

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 114.33.208.120
推 btoker:感謝指教^^
→ roythepigmy:原來可以用if判斷前幾個字元!   真的上了一課