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