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

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

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

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

Private Sub Command1_Click()

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

filepath = IIf(Right$(AppPath, 1) <> "\" And Right$(AppPath, 1) <> "/", AppPath & "\wordstxt", AppPath & "wordstxt")

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)

Text1Text = Text1Text & vWord & vbTab & vAcceptation & vbTab & vExplain & vbCrLf

End If

Stream = ""

Loop

Close #1

End Sub

Private Sub Form_Load()

'Text1MultiLine = True

'Text1ScrollBars = 2

Text1Text = ""

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

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

你把

Text1Text = Text1Text & vWord & vbTab & vAcceptation & vbTab & vExplain & vbCrLf

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

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

string str = "公关部[030201]";

int begin=strIndexOf("[");

int end = strIndexOf("]");

string show = strSubstring(begin + 1, end - begin-1);

ResponseWrite(show);

从sqlserver数据库中提取日期应该使用，并把年月日分别截取出来应该使用

数据库提供的时间函数。

1：使用year,month,day用来提取年月日

如：select

year(getdate()),month(getdate()),day(getdate())

2：使用DATEPART

获取年月日

如：select

DATEPART('year',getdate()),DATEPART('month',getdate()),DATEPART('day',getdate())

----------------------------------------------------------------------------

如果字段是varchar类型的话，可以先将字段转换为日期类型。

使用类型转换函数convert或者cast

如：cast('2015-07-14'

as

datetime）

以上就是关于vb 截取批量截取指定字符串加入数据库全部的内容，包括:vb 截取批量截取指定字符串加入数据库、在c#各C#。NET中如何截取数据库中的字段啊、从sqlserver数据库中提取日期，并把年月日分别截取出来等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！