如何在SSIS VBScript中指定EOF？

Question

在SSIS VBScript中读取文件的结尾的语法是什么？

Dim readFile As FileInfo = New FileInfo(logHourlyName) 
If readFile.Exists() Then 
    Dim textStream As StreamReader = readFile.OpenText() 
    Dim strLine As String 
    Do While Not EOF <--- what goes here? 
     curLine = textStream.ReadLine() 
    Loop 
    textStream.Close() 
End If 

编辑：我实际上试图获取文件中最后一行的值。所以阅读直到不EOF不完全相同的阅读到文件的末尾。但是我削减了很多，以至于我的代码很差。

Answer 1

从http://msdn.microsoft.com/en-us/library/system.io.streamreader.aspx：

Dim readFile As FileInfo = New FileInfo(logHourlyName) 
If readFile.Exists() Then 
    Dim textStream As StreamReader = readFile.OpenText() 
    Dim strLine As String 
    Do 
     curLine = textStream.ReadLine() 
    Loop Until curLine Is Nothing 
    textStream.Close() 
End If 

如果你只是想最后一行：

Dim readFile As FileInfo = New FileInfo(logHourlyName) 
Dim lastLine As String 
If readFile.Exists() Then 
    Dim textStream As StreamReader = readFile.OpenText() 
    Dim strLine As String 
    Do 
     curLine = textStream.ReadLine() 
     If Not curLine Is Nothing Then lastLine = curLine 
    Loop Until curLine Is Nothing 
    textStream.Close() 
End If 

Answer 2

这里只需要读取的最后一行，而无需通过整个文件循环的方式。 它到文件末尾并开始向后读取，直到它遇到另一个LF字符，它表示倒数第二行的结束，然后它只是读取该行。

在一个包含数百万的大文件的行，这降低了读取几个字节的成本。

您可以取消注释Dts.Events.FireInformation代码在输出窗口中发生了什么。

Dim i As Integer 
    Dim CurrentByte As Integer 
    Dim Trailer As String 

    i = 1 

    Using reader As StreamReader = New StreamReader("c:\temp\SourceFile.txt") 
     Do While CurrentByte <> 10 'while we are not finding the next LF character 
      reader.BaseStream.Seek((-1 * i) - 2, SeekOrigin.End) 'seeking backwards from the last position in the file minus the last CRLF 
      'Dts.Events.FireInformation(0, "Now at position", reader.BaseStream.Position().ToString, "", 0, False) 
      CurrentByte = reader.BaseStream.ReadByte 'read the next byte, this will advance pointer position 
      'Dts.Events.FireInformation(0, "Current ASCII Code", CurrentByte & " Character:" & Chr(CurrentByte), "", 0, False) 
      i = i + 1 'go to the next character     
     Loop 
     Trailer = reader.ReadLine 'we exited on the LF character, so we are at the beginning of trailer line 
     Dts.Events.FireInformation(0, " Trailer:", Trailer, "", 0, False) 
    End Using