Fortran Coder

查看: 11656|回复: 2
打印 上一主题 下一主题

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

[复制链接]

17

帖子

8

主题

0

精华

熟手

F 币
120 元
贡献
65 点
跳转到指定楼层
楼主
发表于 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吗
分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

490

帖子

4

主题

0

精华

大宗师

F 币
3298 元
贡献
1948 点

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

沙发
发表于 2018-3-21 12:45:05 | 只看该作者

2015

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1574 元
贡献
676 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

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

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-11-15 07:18

Powered by Tencent X3.4

© 2013-2024 Tencent

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