在线等待:将一个txt文件（无汉字）的内容转入一个access数据库

Question

将一个txt文件（无汉字）的内容转入一个access数据库，该数据库字段为：id,word,number。id是自增序号，word字段存储英文单词和其他字符（包括空格、数字、\ 等等），number只记录英文单词和数字的序号。用VB或VF或VC写的函数实现,见示例
txt内容:
// name: Kyle Bur
// date: 2/26/02
生成的access结果:
id word number
1 / 0
2 / 0
3 0
4 name 1
5 : 0
6 0
7 Kyle 2
8 0
9 Bur 3
10 / 0
11 / 0
12 0
13 date 4
14 : 0
15 0
16 2 5
17 / 0
18 26 6
19 / 0
20 02 7
22 / 0
23 / 0
如果答案很长可发入我的油箱:[email protected]成功立即加分

Answer 1

Const strAlphNum As String ="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"Dim strLine As String, strTmp As String, i As Integer, n As IntegerOpen "C:\my documents\test.txt" For Input As #1
Do Until EOF(1)
Line Inpu #1, strLine
n = 0
For i = 1 To Len(strLine)
If InStr(strAlphNum, Mid(strLine, i , 1)) >= 1 Then
strTmp = strTmp + Mid(strLine, i , 1)
Else
If strTmp > "" Then
n = n + 1
rs.AddNew
rs("word") = strTmp
rs("number") = n
rs.Update
strTmp = ""
End If
rs.AddNew
rs("word") = Mid(strLine, i , 1)
rs("number") = 0
End If
Next i
Loop
Close #1