注册 登录
编程论坛 VB6论坛

怎么用 vb 过滤读取文件的表头部分,然后才开始按行读数

Milita29 发布于 2014-05-11 09:51, 342 次点击
   2.10           NAVIGATION DATA     G (GPS)             RINEX VERSION / TYPE
DAT2RINW 3.10 001   EE                  25MAY13 11:58:25    PGM / RUN BY / DATE
                                                            COMMENT            
     .1583D-07   .2235D-07  -.1192D-06  -.1192D-06          ION ALPHA           
     .1147D+06   .1475D+06  -.1311D+06  -.4588D+06          ION BETA            
    -.279396772385D-08 -.532907051820D-14    61440     1742 DELTA-UTC: A0,A1,T,W
    16                                                      LEAP SECONDS        
                                                            END OF HEADER      
 3 13  5 24  6  0  0.0  .210946425796D-03  .511590769747D-11  .000000000000D+00
     .270000000000D+02  .278437500000D+02  .512342769704D-08 -.167112487251D+01
     .169873237610D-05  .162271062145D-01  .902451574802D-05  .515369411278D+04
     .453600000000D+06  .279396772385D-06 -.253231851126D+01  .176951289177D-06
     .934571968217D+00  .185593750000D+03  .128843147314D+01 -.813355308085D-08
     .775389440940D-09  .100000000000D+01  .174100000000D+04  .000000000000D+00
     .240000000000D+01  .000000000000D+00 -.465661287308D-08  .270000000000D+02
     .453198000000D+06  .400000000000D+01
我需要从 END OF HEADER 的下一行开始读数
1 回复
#2
风吹过b2014-05-11 23:16
一行一行的读会吧

每读一行,就判断一下 所读的内容是不是所期望的内容。
比如读后的变量是 s
if trim(s)="END OF HEADER" then
   设置一个标志位
end if
如果有结束读取的标志位,那就再加一组判断,再重设标志位。

if dateY then        '数据需要保存的
   保存 s
end if

希望你能看懂。
1