Fortran Coder

查看: 368|回复: 2

[文件读写] 跳转到文件的下一个段落

[复制链接]

16

帖子

7

主题

0

精华

入门

F 币
113 元
贡献
59 点
发表于 2018-3-21 10:56:54 | 显示全部楼层 |阅读模式
[Fortran] 纯文本查看 复制代码
$DMP$DMP$DMP$DMPSTARTBLOCK               0
 RANGE              0.4648748E-11        1   9
 E3  -#1.1
  45
 CHIPIC VERSION: January 2018    DATE: 3/13/18
   0
   5
 Z (m)
   3
 V/M
  32
 RANGE PLOT AT TIME: 4.65E-12 SEC
  12
 Ez COMPONENT
  55
 RANGING FROM (0.005,0.000,0.000) TO (0.005,0.000,0.600)
   0
   0
        10
      0.5000000E-03      0.000000            
      0.1500000E-02      0.000000            
      0.2500000E-02      0.000000            
      0.3500000E-02      0.000000            
      0.4500000E-02      0.000000            
      0.5500000E-02      0.000000            
      0.6500000E-02      0.000000            
      0.7499999E-02      0.000000            
      0.8500000E-02      0.000000            
      0.9500000E-02      0.000000                       
 $DMP$DMP$DMP$DMPSTARTBLOCK               0
 RANGE              0.4648748E-11        2   9
 B1ST-#2.1
  45
 CHIPIC VERSION: January 2018    DATE: 3/13/18
   0
   5
 Z (m)
   5
 TESLA
  32
 RANGE PLOT AT TIME: 4.65E-12 SEC
  16
 BrhoST COMPONENT
  55
 RANGING FROM (0.005,0.000,0.000) TO (0.005,0.000,0.600)
   0
   0
        11
       0.000000         0.1070656E-06        
      0.1000000E-02     0.1125550E-06        
      0.2000000E-02     0.1183259E-06        
      0.3000000E-02     0.1243925E-06        
      0.4000000E-02     0.1307704E-06        
      0.5000000E-02     0.1374750E-06        
      0.6000000E-02     0.1445237E-06        
      0.6999999E-02     0.1519334E-06        
      0.7999999E-02     0.1597231E-06        
      0.9000000E-02     0.1679124E-06        
      0.1000000E-01     0.1765214E-06   



现在我有这么一个文件,如果第一段里面读到第三行,通过判断字符串发现这段不是我想要的,能直接跳到下面一段的开头位置 $DMP$DMP$DMP$DMPSTARTBLOCK吗
回复

使用道具 举报

470

帖子

4

主题

0

精华

大宗师

F 币
3176 元
贡献
1881 点

水王勋章元老勋章热心勋章

发表于 2018-3-21 12:45:05 | 显示全部楼层

1323

帖子

12

主题

5

精华

论坛跑堂

Fcode跑堂伙计

F 币
220 元
贡献
260 点

新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

发表于 2018-3-21 20:31:11 | 显示全部楼层
[Fortran] 纯文本查看 复制代码
character(len=512) :: cStr
Do
  Read( 12 , "(a512)" ) cStr
  if( cStr(1:4) == "$DMP" ) exit
End Do
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

QQ|捐赠本站|Archiver|关于我们 About Us|群聊|Fcode

GMT+8, 2018-12-12 15:08

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表