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 0 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 = 분할(sTxt, "D3 01")

L = LB바운드(AR) + 1

U = 유바운드(AR)

For i = L To U

tmp = 다듬기(AR(i))

AR2 = 분할(tmp, "")

'출력

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

다음엔 나

끝 서브

VB 텍스트 찾기

첫 번째 질문: 버튼 1개와 텍스트 상자 2개가 있어야 합니다

비공개 하위 명령1_Click()

정수로 Dim

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

Text1.SetFocus

Text1.SelStart = a - 1

Text1.SelLength = 길이(Text2.Text)

끝 서브

두 번째 질문:

비공개 하위 명령1_Click()

정수로 Dim

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

a > 0이면

Text1.SetFocus

Text1.SelStart = a - 1

SendKeys "{down}"

끝나면

끝 서브

필요하면 직접 조사해 보세요 ㅎㅎ

VB 텍스트 검색 문제

텍스트 상자 3개, 버튼 1개

text1은 텍스트이고, text2는 결과를 표시하며, text3은 찾을 텍스트입니다

비공개 하위 명령1_Click()

딤피는 길면 길수록

Dim L을 문자열로

p = -1

진실한 동안 수행하세요

s = p + 2

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

p = 0이면

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

Text2.Text = "" 그렇다면

Text2.Text = Text1.SelText

그밖에

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

끝나면

끝나면

p = 0이면 종료하세요

루프

끝 서브

위 내용은 VB를 사용하여 텍스트에서 한자 찾기의 상세 내용입니다. 자세한 내용은 PHP 중국어 웹사이트의 기타 관련 기사를 참조하세요!