Rechercher des caractères chinois dans un texte en utilisant VB

VB Rechercher des caractères chinois dans le texte

Sous-commande privée1_Click()

Dim AR() comme chaîne, AR2() comme chaîne

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 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 = LLié(AR) + 1

U = UBound(AR)

Pour i = L à U

tmp = Trim(AR(i))

AR2 = Divisé(tmp, ＂ ＂)

'sortie

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

Suivant je

Fin du sous-marin

VB Rechercher du texte

Première question : il doit y avoir un bouton et 2 zones de texte

Sous-commande privée1_Click()

Dim un comme entier

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

Texte1.SetFocus

Texte1.SelStart = a - 1

Text1.SelLength = Len(Text2.Text)

Fin du sous-marin

Deuxième question :

Sous-commande privée1_Click()

Dim un comme entier

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

Si un > 0 Alors

Texte1.SetFocus

Texte1.SelStart = a - 1

Envoyer des clés ＂{bas}＂

Fin si

Fin du sous-marin

Recherchez par vous-même au besoin, hehe

Problème de recherche de texte VB

3 zones de texte, 1 bouton

text1 est le texte, text2 affiche les résultats et text3 est le texte à trouver

Sous-commande privée1_Click()

Dim p aussi longtemps, c'est aussi longtemps

Dim L comme chaîne

p = -1

Faire pendant que c'est vrai

s = p + 2

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

Si p = 0 Alors

Texte1.SelStart = s - 1

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

Autre

Text1.SelStart = s - 1

Text1.SelLength = p - s + 1

Fin si

Si InStr(1, Text1.SelText, Text3.Text) > 0 Alors

Si Text2.Text = ＂＂Alors

Texte2.Texte = Text1.SelText

Autre

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

Fin si

Fin si

Si p = 0 alors quittez Do

Boucle

Fin du sous-marin

Ce qui précède est le contenu détaillé de. pour plus d'informations, suivez d'autres articles connexes sur le site Web de PHP en chinois!