避免「文件結束」錯誤

Question

我試圖將製表符分隔文件導入到表中。

問題是，SOMETIMES，該文件將包含一個含有兩個「空值」的尷尬記錄，並導致我的程序拋出「意外的文件結束」。

例如，每個記錄將有20個字段。但最後一條記錄只有兩個字段（兩個空值），因此也就是意外的EOF。

當前我正在使用StreamReader。

我試過計算行數，並告訴bcp在「幻像零位」之前停止讀取，但StreamReader由於「幻像零位」而得到不正確的行數。

我試過下面的代碼來擺脫所有僞代碼（代碼從網上借用）。但它只是用空格替換字段（我希望不留行的結果）。

Public Sub RemoveBlankRowsFromCVSFile2(ByVal filepath As String) 
    If filepath = DBNull.Value.ToString() Or filepath.Length = 0 Then Throw New ArgumentNullException("filepath") 

    If (File.Exists(filepath) = False) Then Throw New FileNotFoundException("Could not find CSV file.", filepath) 


    Dim tempFile As String = Path.GetTempFileName() 

    Using reader As New StreamReader(filepath) 
     Using writer As New StreamWriter(tempFile) 
      Dim line As String = Nothing 
      line = reader.ReadLine() 
      While Not line Is Nothing 

       If Not line.Equals(" ") Then writer.WriteLine(line) 

       line = reader.ReadLine() 
      End While 
     End Using 
    End Using 


    File.Delete(filepath) 
    File.Move(tempFile, filepath) 
End Sub 

我試過使用SSIS，但它遇到了EOF意外的錯誤。

我在做什麼錯？

Answer 1

這是使用位陣列解決的，一次檢查一位嫌疑位。

Answer 2

如果你將整個文件讀入一個字符串變量（使用reader.ReadToEnd（））你會得到整個事情嗎？還是隻是將數據提供給那些幻像空值？

您是否嘗試過使用Reader.ReadBlock（）函數嘗試讀取文件長度？

Answer 3

在我們公司，我們每週都會進行數百次進口。如果文件沒有以正確的，同意的格式發送給我們的自動過程，我們會將其發回給發件人。如果最後一行錯誤，則不應該處理該文件，因爲它可能缺少信息或以其他方式損壞。

Answer 4

避免錯誤的一種方法是使用ReadAllLines，然後處理文件行數組，而不是通過文件進度。這也比streamreader更有效率。

Dim fileLines() As String 
fileLines = File.ReadAllLines("c:\tmp.csv") 
... 
for each line in filelines 
    If trim(line) <> "" Then writer.WriteLine(line) 
next line 

您也可以使用保存在相同的或不同的字符串數組和使用File.WriteAllLines輸出線寫入文件的一次。

Answer 5

您可以嘗試使用內置的.Net對象來讀取製表符分隔的文件。它是Microsoft.VisualBasic.FileIO.TextFileParser。