vb截取批量截取指定字符串加入数据库

给一个示例你 已经可以截取分列显示数据

当然代码是不完整的 至少不能完全符合你的要求 但最主要的三个

英文单词 词类 中文解释已经截取出来了 你自己加工一下再使用就可以了

Private Sub Command1_Click()

Dim Stream$, filepath$, vWord$, vAcceptation$, vExplain$, vS%, vE%

filepath = IIf(Right$(App.Path, 1) <>"\" And Right$(App.Path, 1) <>"/", App.Path &"\words.txt", App.Path &"words.txt")

Open filepath For Input As #1

Do While Not EOF(1)

Line Input #1, Stream

If Stream <>"" Then

vS = InStr(Stream, " ") '方法一:寻找第一个空格 如果所有单词中间均没空格隔断 则推荐用这个

vE = Len(Stream) - InStr(StrReverse(Stream), ".") + 1 '取反字串 查找最后一个英文句号

vWord = Mid$(Stream, 1, vS - 1)

vAcceptation = Mid$(Stream, vS, vE - vS + 2)

vExplain = Mid$(Stream, vE + 2)

Text1.Text = Text1.Text &vWord &vbTab &vAcceptation &vbTab &vExplain &vbCrLf

End If

Stream = ""

Loop

Close #1

End Sub

Private Sub Form_Load()

'Text1.MultiLine = True

'Text1.ScrollBars = 2

Text1.Text = ""

End Sub

'下面这两个自定义函数没继续写下去

'主要是构思另一种方法

'即循环匹配一个词类集合

'vFindStr调用vInStr

Function vFindStr(ByVal vStr As String) As String

Dim KeyWords() As String

End Function

Function vInStr(ByVal vStr As String, ByVal vKWord As String) As String

End Function

'what pron. &adj. 什么

'is v. 是

'your pron. 你的；你们的

'name n. 名字

'my pron.我的

'yes adv. 是；是的

=================================

我可以提供的就这么多 反正数据提取出来了

回答就这么多~~~~~~``

================================

啊

vWord

vAcceptation

vExplain

这三个变量不就是对应的数据了吗？

你把

Text1.Text = Text1.Text &vWord &vbTab &vAcceptation &vbTab &vExplain &vbCrLf

这句改成对应的INSERT INTO 就可以了嘛

抱歉 我对数据库不太感冒 会一点但在VB中少用

假如文本文件是按如下格式:

D,356,ABC,12.765,.....,L

.....

C,35.6,ABD,45678,.....,M

定义一个1维数组，对文本文件逐行读入，然后逐条添加到数据库的表中，代码如下，本人调试时用了10个字段数据，你可依据你的情况作修改：

Option Explicit

Dim data(10) As String

Dim i As Integer

Private Sub Command1_Click()

Open "c:\txt_mdb\mdlk_sj.txt" For Input As #1

Do Until EOF(1)

Input #1, data(0), data(1), data(2), data(3), data(4), data(5), data(6), data(7), data(8), data(9)

Adodc1.Recordset.AddNew

For i = 0 To 9

Adodc1.Recordset(i) = Trim(data(i))

Next i

Loop

Close

End Sub

Private Sub Form_Load()

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=C:\TXT_MDB\db1.mdbPersist Security Info=False"

Adodc1.RecordSource = "select * from tabel1"

Adodc1.Refresh

Text1 = ""

End Sub

Me.Controls(ADODC.RECORDSET.FIELDS("CONN")).Caption =ADODC.RECORDSET.FIELDS("VAL1")

另外,在这句之前最好加上一句On Error Resume Next

因为如果没有这个名称的控件,就一会出错.

---