又是文本转ACCESS,三十分在线等!

SFMN 2003-12-10 09:33:33

文本内容为:
32132132 2132 132132132 1231321321321321 2123132 32123132
12312313212 00 1212323 23123132123123132 212312 3213223
54564556 4545 4545454 45456465464646 5465 5545456
.
.
.
.

怎么样从这一列列字符中,以空格为准,截取字段???

...全文

63 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

yoki 2003-12-12

打赏
举报

'测试如下：
date time strip_id stat widt thik wrw_1 twid1 bwid1 wrw_2 twid2 bwid2 wrw_3 twid3 bwid3 wrw_4 twid4 bwid4 wrw_5 twid5 bwid5 wrw_6 twid6 bwid6
02.11.03 15:47:57 203110240160 0128 1269 412 0 25016 25033 0 27012 27011 0 25044 25045 0 7094 7674 0 7068 7677 50 7088 7047
02.11.03 15:53:02 203110250170 0128 1269 412 0 25016 25033 0 27012 27011 0 25044 25045 5 7094 7674 4 7068 7677 54 7088 7047
02.11.03 15:56:19 203110250180 0128 1269 412 0 25016 25033 0 27012 27011 0 25044 25045 10 7094 7674 9 7068 7677 57 7088 7047
02.11.03 16:00:38 203110250190 0128 1269 412 0 25016 25033 0 27012 27011 1 25044 25045 16 7094 7674 14 7068 7677 60 7088 7047
02.11.03 16:07:38 203110250200 0128 1269 412 0 25016 25033 1 27012 27011 1 25044 25045 21 7094 7674 19 7068 7677 64 7088 7047
02.11.03 16:12:41 103110260010 0128 1269 412 1 25016 25033 1 27012 27011 2 25044 25045 25 7094 7674 22 7068 7677 66 7088 7047
02.11.03 16:16:08 203110250210 0128 1269 412 1 25016 25033 1 27012 27011 2 25044 25045 30 7094 7674 27 7068 7677 69 7088 7047
02.11.03 16:22:19 103110260020 0128 1269 399 1 25016 25033 2 27012 27011 3 25044 25045 35 7094 7674 32 7068 7677 73 7088 7047
02.11.03 16:26:04 203110250220 0128 1269 399 1 25016 25033 2 27012 27011 3 25044 25045 41 7094 7674 37 7068 7677 76 7088 7047

'将以上你给的例子数据拷贝放到一个文本文件c:\text.txt中
'经过分析，你的文本文件的第一行是以制表符分割，而其他的则是以不定数的空格分割，不是特别有规律，所以在转之前要分别处理,过程FormatTxt就是起这个作用
'程序将生成一个格式化后以"|"为分割符的文本文件c:\zz.txt和一个数据库c:\a.mdb和一个格式符号文件c:\schema.ini
Private Sub StartChange()
Call WriteTempSchemia("zz.txt", "|") '空格吗？
Call FormatTxt("c:\test.txt", "c:\zz.txt")
Call TxtToMdb("c:\", "zz.txt", "c:\a.mdb", "NewTempTable")
End Sub

Public Sub WriteTempSchemia(strFileName As String, strSeparator As String)
'写入格式符号文件
Open "c:\Schema.ini" For Output As #1
Print #1, "[" & strFileName & "]"
Print #1, "Format=Delimited(" & strSeparator & ")"
Close #1
End Sub

Private Sub TxtToMdb(sTxtPath As String, sTxtFileName As String, sAccessFullFileName As String, sAccessTable As String)
'功能：将文本文件导入到Access中的表
'调用：Call TxtToMdb("c:\","zz.txt","c:\a.mdb","NewTempTable")
'结果：将c:\zz.txt导入到c:\a.mdb中的NewTempTable表中
Dim db As DAO.Database
On Error Resume Next
Set db = DBEngine.CreateDatabase(sAccessFullFileName, dbLangGeneral)
If Err.Number = 3204 Then
Set db = Workspaces(0).OpenDatabase(sAccessFullFileName)
End If
On Error GoTo err_exit
db.Execute "SELECT * into " & sAccessTable & " FROM [Text;HDR=NO;DATABASE=" & sTxtPath & "]." & sTxtFileName
db.Close
Set db = Nothing
Exit Sub
err_exit:
Set db = Nothing
MsgBox Err.Description
End Sub

Private Sub FormatTxt(strFromName As String, strToName As String)
'开始格式化文本文件
Dim strTmp As String
Dim strArray() As String
Dim a() As String
Dim i As Integer
Dim flag As Boolean
Dim j As Integer
Dim k As Integer
Dim p As String
Dim q As String

Open strFromName For Input As #1
strTmp = StrConv(InputB(LOF(1), #1), vbUnicode)
Close #1
strArray = Split(strTmp, vbCrLf)
For i = 0 To UBound(strArray)
k = k + 1
strTmp = ""
If k = 1 Then
Open strToName For Output As #1
flag = True
a() = Split(strArray(i), vbTab)
For j = 0 To UBound(a)
strTmp = strTmp & "|" & a(j)
Next j
Print #1, Right(strTmp, Len(strTmp) - 1)
Else
strTmp = strArray(i)
For j = 0 To Len(strTmp)
If Trim(Left(strTmp, 1) & "|") <> "|" Then
p = p & Left(strTmp, 1)
Else
If p <> "" Then
q = q & "|" & p
p = ""
End If
End If
If Len(strTmp) <= 1 Then
strTmp = strTmp
Else
strTmp = Right(strTmp, Len(strTmp) - 1)
End If
Next j
If Len(q) >= 1 Then Print #1, Right(q, Len(q) - 1)
q = ""
End If
Next i
If flag Then Close #1
End Sub

Private Sub Command1_Click()
Call StartChange
End Sub

yoki 2003-12-12