作者kkarthur (aa)
看板Fortran
標題Re: [問題] 指定讀取文字資料
時間Sat Feb 4 20:20:44 2012
※ 引述《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
1F：推 btoker:感謝指教^^ 02/05 10:37
2F：→ roythepigmy:原來可以用if判斷前幾個字元! 真的上了一課 02/07 00:08