求助，如何将文本文件自动转入数据库中

ccczzz

如何将文本文件自动转入数据库中，

ccczzz

请各位多多关照

zhuyiwen

看了你的Rec01.txt和Rec02.txt文件, 由于文件中包含了一些无法显示的字符, 因此:

首先你必须将这些无法显示的字符去掉, 具体办法是将文件读到一个字符数组中, 遍历数组中的每一个字符, 将字符的ASCII小于32的都变成32(即空格,但为ASCII为10或13的不要转,因为它们一为回车,一为换行), 然后再来进行数据转换操作.

ccczzz

斑竹能否抽空帮助做个范例？谢谢

zhuyiwen

这段代码，你试试：

Public Sub Turn(ByVal Filename As String)
    Dim intFileNo As Integer
    Dim BLOB() As Byte
    Dim lngFile As Long
    Dim i As Long
   
    intFileNo = FreeFile
    Open Filename For Binary As intFileNo
    lngFile = LOF(intFileNo)
    ReDim BLOB(lngFile)
   
    Get intFileNo, , BLOB
    Close intFileNo
   
    For i = 0 To lngFile - 1
        If BLOB(i) < 32 And BLOB(i) <> 10 Then BLOB(i) = 32
    Next
   
   
    intFileNo = FreeFile
    Open Filename & "-n.txt" For Binary As intFileNo
    Put intFileNo, , BLOB
    Close intFileNo

    Dim ss As String
    Dim kk
    Dim jj, dd
   
    Open Filename & "-n.txt" For Input As intFileNo
    Line Input #1, ss
    Close intFileNo
    kk = Split(ss, Chr(10))
    lngFile = UBound(kk)
   
    Dim rs As New ADODB.Recordset
    rs.Open "[表2]", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    rs.AddNew
   
    For i = 0 To lngFile - 1
        ss = "": dd = ""
        kk(i) = LTrim(kk(i))
        
        If kk(i) <> "" Then
            If InStr(1, kk(i), " ") > 0 Then ss = Left(kk(i), InStr(1, kk(i), " ") - 1)
            dd = LTrim(Mid(kk(i), Len(ss) + 5))
            If InStr(1, dd, " ") > 0 Then dd = Left(dd, InStr(1, dd, " ") - 1)
            Select Case ss
            Case "Date":        rs("Date") = dd & " "
            Case "Operator":    rs("OperatorID") = dd & " "
            Case "atient":     rs("atientID") = dd & " "
            Case "Type":        rs("Type") = dd & " "
            Case "Temp":        rs("Temp") = dd & " "
            Case "tHb":         rs("tHb") = dd & " "
            Case "FIO2":        rs("FIO2") = dd & " "
            Case "pH(T)":       rs("pH") = dd & " "
            Case "pCO2(T)":     rs("pCO2") = dd & " "
            Case "pO2(T)":      rs("pO2") = dd & " "
            Case "HCO3-":       rs("HCO3-") = dd & " "
            Case "SBC":         rs("SBC") = dd & " "
            Case "ABE":         rs("ABE") = dd & " "
            Case "SBE":         rs("SBE") = dd & " "
            Case "tCO2":        rs("tCO2") = dd & " "
            Case "sO2":         rs("sO2") = dd & " "

            End Select
            
        End If
    Next
    rs.Update
    rs.Close
    Set rs = Nothing
End Sub

==============
例如：
Call Turn(currentproject.Path & "\rec01.txt")


祝你好运！

ccczzz

调试出现错误，见附件，谢谢

zhuyiwen

[quote]以下是引用ccczzz在2004-4-30 13:08:56的发言：
调试出现错误，见附件，谢谢

ccczzz

下载了您得例程，同样出错，同样的提示，我的环境是win98+access2000,好像也没有丢失引用，请指点，谢谢

zhuyiwen

    kk = Split(ss, Chr(10))

Split函数是VBA的内置函数, 不应该出错. 你最好检查一下你ACCESS是否正常.

ccczzz

重装office,测试成功，谢谢您的帮助。