Question

每天都有一个作为计划任务运行的函数从文本文件导入文本：

Public Function ImportPersons(ByVal strImportFile As String) As Variant
Dim intFile As Integer, strRecord As String, strFields() As String
Dim lngReadCount As Long, blnChanged As Boolean

On Error GoTo GenErr:
    intFile = FreeFile
    Open strImportFile For Input As #intFile
    Set rs = New ADODB.Recordset

    DoEvents
    Do While Not EOF(intFile)
        Line Input #intFile, strRecord
        lngReadCount = lngReadCount + 1
        If strRecord <> "" Then
            If InStr(strRecord, "|") > 0 Then
                strFields = Split(strRecord, "|")
            Else
                strFields = Split(strRecord, ",")
            End If
            blnChanged = False
            If Trim(strFields(3)) <= " " Then  ' otherwise this is a company name entry and there are no person details
                rs.Open "Select * from dbPerson where Reference = '" & strFields(0) & "'", objCon.ActiveCon, adOpenStatic, adLockPessimistic
                If rs.EOF Then
                    rs.AddNew
                    rs("Reference") = Trim(strFields(0))
                    rs("FirstNames") = Trim(strFields(1))
                    rs("Surname") = Trim(strFields(2))
                    rs("DateOfBirth") = strFields(4)
                    rs("Height") = strFields(6)
                    rs("Mobile") = Trim(strFields(7))
                    rs("PNCID") = Trim(strFields(5))
                    rs("LastUpdated") = Now
                    rs.Update
                Else
                    If rs("FirstNames") <> Trim(strFields(1)) Then
                        rs("FirstNames") = Trim(strFields(1))
                        blnChanged = True
                    End If
                    If rs("Surname") <> Trim(strFields(2)) Then
                        rs("Surname") = Trim(strFields(2))
                        blnChanged = True
                    End If
                    If rs("DateOfBirth") <> strFields(4) Then
                        rs("DateOfBirth") = strFields(4)
                        blnChanged = True
                    End If
                    If rs("Height") <> strFields(6) Then
                        rs("Height") = strFields(6)
                        blnChanged = True
                    End If
                    If rs("Mobile") <> Trim(strFields(7)) Then
                        rs("Mobile") = Trim(strFields(7))
                        blnChanged = True
                    End If
                    If rs("PNCID") <> Trim(strFields(5)) Then
                        rs("PNCID") = Trim(strFields(5))
                        blnChanged = True
                    End If
                    If blnChanged Then
                        rs("LastUpdated") = Now
                        rs.Update
                    End If
                End If
                rs.Close
            End If
        End If
    Loop
    Close #intFile

    ImportPersons = "Total: " & lngReadCount

    Exit Function
GenErr:
    WriteError Err, Error$ & " in ImportPersons.", strErrorLog
    ImportPersons = Error$
    Exit Function
    Resume

End Function

以下是一些示例数据（不是真实数据）：

11123455|Super|Woman||14/07/1962|02/111/111|L765|01110101010

计划任务报告今天早上文本文件中有一行（通常大约有50,000行）。我已经逐步完成了代码，看起来VB6忽略了回车。

我已经使用记事本打开了文件，我可以看到没有回车符。当我使用textpad打开文件时，我可以看到回车。有什么问题？

Answer 1

我通过以下方式解决了这个问题：

1）将文本复制到textpad中 2）文件/另存为，然后选择纯文本 3）正常导入生成的文件

这是一个临时修复。我必须自动化它。

Answer 2

问题是文件来自不同的系统。通常，在基于Windows的系统中，新行由CR和LF字符定义。在UNIX环境中，新行由单个LF定义。

所以你的问题是，你的传入文件有一堆LF而没有任何CR。您的手动方法有效，因为文件在Windows环境中被覆盖，从而产生CR LF组合。这是个好消息。坏消息，就我所知，没有简单的方法来解决这个问题。

我可以想到几种方法：

1）如果您的文件不是太大，请将整个文件读入内存并将LF替换为CR LF或仅将LF替换为SPLIT，并获取您的记录;

2）如果您的文件不是太大，请在遇到LF时一次阅读一个字符，检查以前的字符是否不是CR并在前面添加CR LF（这种方法对于大文件来说很慢，它是最不可取的，但如果方法1和3不可行则更容易实现）

3）如果您的文件长度固定且大，请阅读固定的文本块。你甚至不需要关心新的行

4）如果文件长度可变且大且方法2花费太多时间，则读取固定长度的文本。您将不得不编写一个稍微复杂的函数来拆分和连接这些数据块，因为它们可能包含0到几个实际记录

即使记事本也会忽略回车

2 个答案: