Finden Sie chinesische Zeichen in Texten mit VB

VB Chinesische Zeichen im Text finden

Private Sub Command1_Click()

Dim AR() als String, AR2() als 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 0 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)

Für i = L bis U

tmp = Trim(AR(i))

AR2 = Split(tmp, ＂ ＂)

'Ausgabe

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

Als nächstes

End Sub

VB Text suchen

Erste Frage: Es müssen eine Schaltfläche und zwei Textfelder vorhanden sein

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

Zweite Frage:

Private Sub Command1_Click()

Dim a As Integer

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

Wenn a > 0, dann

Text1.SetFocus

Text1.SelStart = a - 1

SendKeys ＂{down}＂

Ende wenn

End Sub

Recherchieren Sie bei Bedarf selbst, hehe

VB-Textsuchproblem

3 Textfelder, 1 Schaltfläche

text1 ist der Text, text2 zeigt die Ergebnisse an und text3 ist der zu suchende Text

Private Sub Command1_Click()

Dim p As Long, s As Long

L als String dimmen

p = -1

Do While True

s = p + 2

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

Wenn p = 0, dann

Text1.SelStart = s - 1

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

Sonst

Text1.SelStart = s - 1

Text1.SelLength = p - s + 1

Ende wenn

Wenn InStr(1, Text1.SelText, Text3.Text) > 0 Dann

If Text2.Text = ＂＂Then

Text2.Text = Text1.SelText

Sonst

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

Ende wenn

Ende wenn

Wenn p = 0, dann beenden Sie Do

Schleife

End Sub

Das obige ist der detaillierte Inhalt vonFinden Sie chinesische Zeichen in Texten mit VB. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!