VB查找文本中文字

VB查找文本中文字

private sub command1_click()

Dim AR() As String, AR2() As String

sTxt = ＂2 01 01 00 00 00 00 00 00 00 F4 44 0C 00 08 01 29 01 03 00 00 00 00 00 00 00 F4 44 0C 00 08 01 D3 01 04 00 00 00 00 00 00 00 F4 44 0C 00 08 01 2A 01 06 00 00 00 00 00 00 00 F4 44 0C 00 08 01＂

AR = Split(sTxt, ＂D3 01＂)

L = LBound(AR) + 1

U = UBound(AR)

For i = L To U

tmp = Trim(AR(i))

AR2 = Split(tmp, ＂ ＂)

'输出

Me.Print AR2(LBound(AR2)) & Space(2);

Next i

End Sub

VB查找文本

第一问：要有一个按钮，2个textbox

private sub command1_click()

Dim a As Integer

a = InStr(1, Text1.Text, Text2.Text, vbTextCompare)

Text1.SetFocus

Text1.SelStart = a - 1

Text1.SelLength = Len(Text2.Text)

End Sub

第二问：

private sub command1_click()

Dim a As Integer

a = InStr(1, Text1.Text, Text2.Text, vbTextCompare)

If a > 0 Then

Text1.SetFocus

Text1.SelStart = a - 1

SendKeys ＂{down}＂

End If

End Sub

根据需要自己研究吧，嘿嘿

VB文本查找问题

3个文本框，1个按钮

text1中是文本，text2显示结果，text3需要查找的文字

private sub command1_click()

Dim p As Long, s As Long

Dim L As String

p = -1

Do While True

s = p + 2

p = InStr(s + 1, Text1.Text, vbCrLf)

If p = 0 Then

Text1.SelStart = s - 1

Text1.SelLength = Len(Text1.Text) - s + 1

Else

Text1.SelStart = s - 1

Text1.SelLength = p - s + 1

End If

If InStr(1, Text1.SelText, Text3.Text) > 0 Then

If Text2.Text = ＂＂ Then

Text2.Text = Text1.SelText

Else

Text2.Text = Text2.Text & vbCrLf & Text1.SelText

End If

End If

If p = 0 Then Exit Do

Loop

End Sub

以上就是VB查找文本中文字的详细内容，更多请关注php中文网其它相关文章！