Cari aksara Cina dalam teks menggunakan VB

VB Cari Aksara Cina dalam Teks

Sub Perintah Peribadi1_Klik()

Malapkan AR() Sebagai Rentetan, AR2() Sebagai Rentetan

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 004 0 8 F4 003 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)

Untuk i = L Kepada U

tmp = Trim(AR(i))

AR2 = Split(tmp, ＂ ＂)

'output

Saya.Cetak AR2(LBound(AR2)) & Space(2);

Seterusnya i

Tamat Sub

VB Cari Teks

Soalan pertama: Perlu ada satu butang dan 2 kotak teks

Sub Perintah Peribadi1_Klik()

Malapkan Sebagai Integer

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

Teks1.SetFokus

Teks1.SelStart = a - 1

Teks1.SelLength = Len(Teks2.Teks)

Tamat Sub

Soalan kedua:

Sub Perintah Peribadi1_Klik()

Malapkan Sebagai Integer

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

Jika a > 0 Maka

Teks1.SetFokus

Teks1.SelStart = a - 1

SendKeys ＂{down}＂

Tamat Jika

Tamat Sub

Selidik sendiri mengikut keperluan, hehe

Masalah carian teks VB

3 kotak teks, 1 butang

teks1 ialah teks, teks2 memaparkan keputusan, dan teks3 ialah teks untuk ditemui

Sub Perintah Peribadi1_Klik()

Malapkan p Selagi, s Selagi

Malapkan L Sebagai Rentetan

p = -1

Lakukan Walaupun Benar

s = p + 2

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

Jika p = 0 Maka

Teks1.SelStart = s - 1

Teks1.SelLength = Len(Teks1.Teks) - s + 1

Lain

Teks1.SelStart = s - 1

Teks1.SelLength = p - s + 1

Tamat Jika

Jika InStr(1, Text1.SelText, Text3.Teks) > 0 Kemudian

Jika Teks2.Teks = ＂＂Kemudian

Teks2.Teks = Teks1.SelText

Lain

Teks2.Teks = Teks2.Teks & vbCrLf & Teks1.SelText

Tamat Jika

Tamat Jika

Jika p = 0 Kemudian Keluar Buat

Gelung

Tamat Sub

Atas ialah kandungan terperinci Cari aksara Cina dalam teks menggunakan VB. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!