把TXT文件里的内容导入到ACCESS里,数据格式如下1.70#2.70#3.70#4.70#5.70#6.70#7.70#8.70#9.70#

Question

把TXT文件里的内容导入到ACCESS里,数据格式如下1.70#2.70#3.70#4.70#5.70#6.70#7.70#8.70#9.70#
要求导入到ACCESS表中的三个字段下,字段名分别为A,B,C 
导入格式要求如下:
字段A 字段B 字段C
1.70  2.70 3.70
4.70  5.70 6.70
7.70  8.70 9.70也就是每三个换一行.请那位大虾帮忙,最好给个代码例子.谢谢

Answer 1

测试,在C盘创建一个test.txt文件,内容为:
1.70#2.70#3.70#4.70#5.70#6.70#7.70#8.70#9.70#
1.70#2.70#3.70#4.70#5.70#6.70#7.70#8.70#9.70#
1.70#2.70#3.70#4.70#5.70#6.70#7.70#8.70#9.70#以下为程序  
 Option Explicit
Private Sub Command1_Click()
    Dim sFile As String
    Dim Stemp As String
    Dim SSplit() As String
    sFile = "C:\test.txt"    Dim i As Long    i = FreeFile()    Open sFile For Input As #i    Stemp = Input$(LOF(i), i)    Close #i    Stemp = Replace(Stemp, vbCrLf, "")    SSplit() = Split(Stemp, "#")
    For i = 0 To UBound(SSplit) - 1 Step 3        Debug.Print SSplit(i) & "  "; SSplit(i + 1) & "  "; SSplit(i + 2)  '这里为需要的数据    NextEnd Sub

Answer 2

csdn 又出问题了?  传不上去, 睡觉去了....'****** 工程引用Microsoft ActiveX Data Objects 2.5 Library
'添加 Command1'数据库名与表名自己改,并把它与程序放在同一路径Public conn As New ADODB.Connection '定义数据连接字符串
Public rs As New ADODB.Recordset '定义记录集
Dim i%, j%, db$, Appdisk$, aa$, sPrivate Sub Form_Load()
   Appdisk = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\")
   db = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Appdisk & "bwscale.mdb"
   conn.CursorLocation = adUseClient
   conn.Open db '打开数据库连接
   rs.Open "bwmain", conn, adOpenKeyset, adLockPessimistic '打开记录集
   If rs.RecordCount > 0 Then rs.MoveFirst
End SubPrivate Sub Form_Unload(Cancel As Integer)
   rs.Close
   conn.Close
   End
End SubPrivate Sub Command1_Click()
   aa = "1.70#2.70#3.70#4.70#5.70#6.70#7.70#8.70#9.70#"
   If Right(aa, 1) = "#" Then aa = Mid(aa, 1, Len(aa) - 1)
   s = Split(aa, "#")
   j = 0
   rs.AddNew
   For i = 0 To UBound(s)
      rs.Fields(j) = s(i)
      j = j + 1
      If j Mod 3 = 0 Then j = 0: rs.Update: rs.AddNew
   Next i
End Sub