ACCESS自动读取TXT

xmtt

VB代码自动读取txt文本的每一行数据，现最前两行不需要读取，怎么改才能跳过。谢谢！代码如下：
Do
     para = f.readline
     paraq = Split(para, "|")
      With rst
      .AddNew
       s = Format(paraq(0), "!@@@@@@@@@@") '左对齐
    .Fields(0) = s
      .Fields(1) = Format(paraq(1) * 100, "00000000")
      .Fields(2) = Date
      .Update
     End With
   Loop Until f.AtEndOfLine

roych

1. Do
   
2.      para = f.readline
   
3.      i=i+1
   
4. '读取到第三行再开始执行
   
5.     if i>2 then
   
6.      paraq = Split(para, "|")
   
7.       With rst
   
8.       .AddNew
   
9.        s = Format(paraq(0), "!@@@@@@@@@@") '左对齐
   
10.     .Fields(0) = s
    
11.       .Fields(1) = Format(paraq(1) * 100, "00000000")
    
12.       .Fields(2) = Date
    
13.       .Update
    
14.      End With
    
15. end if
    
16.    Loop Until f.AtEndOfLine

复制代码

xmtt

roych 发表于 2015-2-9 16:57

谢谢高手的回复，问题已解决！