VB を使用してテキスト内の漢字を検索する

VB テキスト内の漢字を検索

プライベートサブコマンド1_Click()

Dim AR() を文字列として、AR2() を文字列とする

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 = トリム(AR(i))

AR2 = スプリット(tmp, " ")

＃＃＃'出力＃＃＃

Me.Print AR2(LBound(AR2)) & スペース(2);

次のi

エンドサブ

VB テキストの検索

最初の質問: ボタンが 1 つとテキストボックスが 2 つ必要です

プライベートサブコマンド1_Click()

整数として寸法を調整する

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

Text1.SetFocus

Text1.SelStart = a - 1

Text1.SelLength = Len(Text2.Text)

エンドサブ

2 番目の質問:

プライベートサブコマンド1_Click()

整数として寸法を調整する

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

If a > 0 then

Text1.SetFocus

Text1.SelStart = a - 1

SendKeys "{down}"

終了の場合

エンドサブ

必要に応じて自分で調べてください、えへへ

VB テキスト検索の問題

3 テキスト ボックス、1 ボタン

text1 はテキスト、text2 は結果を表示、text3 はテキストを見つける必要があります

プライベートサブコマンド1_Click()

Dim p と同じ長さ、s も同じ長さ

Dim L を文字列として使用する

p = -1

真実のうち​​に実行する

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

＃＃＃それ以外＃＃＃

Text1.SelStart = s - 1

Text1.SelLength = p - s 1

終了の場合

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

If Text2.Text = ＂＂ then

Text2.Text = Text1.SelText

＃＃＃それ以外＃＃＃

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

終了の場合

終了の場合

If p = 0 then Exit Do

＃＃＃ループ＃＃＃

エンドサブ

以上がVB を使用してテキスト内の漢字を検索するの詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。