急，我用TextStream对象打开一个文本文件一行一行的读出数据，可用SkipLine方法,怎么不是一行一行的读呢？

Question

我用TextStream对象打开一个文本文件一行一行的读出数据，当我不用SkipLine方法时，怎么会每一行读两次再跳到下一行；
当我用SkipLine方法时，却读陋了一行，即读了第一行，第二行没有读到了；
怎么回事啊？到底是怎么让它一行一行往下跑啊？？？？
例如：
     Dim txtStream As TextStream
'.....
        Set txtStream = fs.OpenTextFile(strVIPFile, ForReading, True)
        Do While Not txtStream.AtEndOfLine
            str1 = txtStream.ReadLine
            If str1 <> "" Then
                'import database
'.......
            End If
            If Not txtStream.AtEndOfLine Then txtStream.SkipLine
        Loop
        txtStream.Close

Answer 1

用READLINE
但是每次READLINE的时候,它都会取下一行了
所在声明个变量
dim a as string
每次READLIN之前,先赋值