찾다
소프트웨어 튜토리얼사무용 소프트웨어VB를 사용하여 텍스트에서 한자 찾기

VB를 사용하여 텍스트에서 한자 찾기

Jan 07, 2024 am 10:10 AM
VB에서 문자 함수 찾기VB 텍스트 중국어 문자 찾기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 중국어 웹사이트의 기타 관련 기사를 참조하세요!

성명
이 기사는 Excel办公网에서 복제됩니다. 침해가 있는 경우 admin@php.cn으로 문의하시기 바랍니다. 삭제
Excel에서 여러 확인란을 추가, 복사 및 삭제하는 방법Excel에서 여러 확인란을 추가, 복사 및 삭제하는 방법Apr 17, 2025 am 11:01 AM

이 튜토리얼은 Excel에서 여러 확인란을 효율적으로 추가, 수정 및 삭제하는 방법을 보여줍니다. 지난주 체크리스트, 조건부 서식, 대화식 보고서 및 동적 차트에 대한 확인란을 사용하여 살펴 보았습니다. 이번 주에 우리는 다음에 집중할 것입니다

Excel에 진드기 기호 (확인)를 삽입하는 방법Excel에 진드기 기호 (확인)를 삽입하는 방법Apr 17, 2025 am 09:53 AM

이 튜토리얼은 형식 및 계산 기술과 함께 체크 마크를 Excel에 삽입하는 6 가지 방법을 탐색합니다. Excel은 두 가지 체크 마크 유형의 대화 형 확인란과 진드기 기호를 제공합니다. 확인란은 마우스 클릭을 통해 선택/탈수를 허용합니다

생일부터 탁월한 나이를 계산하는 방법생일부터 탁월한 나이를 계산하는 방법Apr 17, 2025 am 09:47 AM

튜토리얼은 Excel에서 생일부터 나이를 얻는 다양한 방법을 보여줍니다. 연령을 여러 해로 계산하기 위해 소수의 공식을 배우고, 오늘날의 날짜 또는 특정 날짜에 몇 년, 몇 달 및 일에 정확한 연령을 얻습니다. 거기

Excel에 캘린더를 삽입하는 방법 (날짜 선택기 및 인쇄용 캘린더 템플릿)Excel에 캘린더를 삽입하는 방법 (날짜 선택기 및 인쇄용 캘린더 템플릿)Apr 17, 2025 am 09:07 AM

이 튜토리얼은 드롭 다운 캘린더 (날짜 선택기)를 추가하여 탁월하고 셀에 연결하는 방법을 보여줍니다. 또한 Excel 템플릿을 사용하여 인쇄용 캘린더를 빠르게 만드는 방법을 보여줍니다. 데이터 무결성은 대규모 또는 공유 스프레드 스프에서 주요 관심사입니다.

항상 Worksheets의 이름을 Excel로 바꿔야하는 이유항상 Worksheets의 이름을 Excel로 바꿔야하는 이유Apr 17, 2025 am 12:56 AM

Excel의 생산성 향상 : 효율적인 이름 지정 워크 시트에 대한 안내서 이 기사에서는 Excel 워크 시트를 효과적으로 명명하고 생산성을 향상 시키며 접근성을 향상시키는 방법을 안내합니다. 명확한 워크 시트 이름은 내비게이션, 조직 및 교차 테이블 참조를 크게 향상시킵니다. Excel 워크 시트의 이름을 바꾸는 이유는 무엇입니까? 기본 "Sheet1", "Sheet2"및 기타 이름을 사용하는 것은 특히 여러 워크 시트가 포함 된 파일에서 비효율적입니다. "대시 보드", "판매"및 "예측"과 같은 명확한 이름은 귀하와 다른 사람들에게 통합 문서 콘텐츠에 대한 명확한 그림을 제공하고 필요한 워크 시트를 빠르게 찾습니다. 설명 이름을 사용합니다 (예 : "대시 보드", "판매", "예측")

Outlook에서 자동 또는 수동으로 보관하는 방법Outlook에서 자동 또는 수동으로 보관하는 방법Apr 16, 2025 am 11:48 AM

이 포괄적 인 가이드는 다양한 Outlook 버전 (365, 2021, 2019, 2016, 2013 및 이전)에서 이메일, 작업 및 기타 항목을 보관하여 Outlook 이메일 저장소를 효과적으로 관리하는 방법을 설명합니다. 자동 아카이빙 구성을 배우십시오. PE

Excel : 성냥을 위해 두 셀의 현을 비교합니다 (사례에 민감하거나 정확)Excel : 성냥을 위해 두 셀의 현을 비교합니다 (사례에 민감하거나 정확)Apr 16, 2025 am 11:26 AM

이 자습서는 탁월한 텍스트 문자열을 탁월한 일치 및 정확한 일치로 비교하는 방법을 보여줍니다. 값, 문자열 길이 또는 특정 문자의 발생 횟수로 두 셀을 비교하기 위해 여러 공식을 배웁니다.

Outlook 이메일을 자동 또는 수동으로 백업하는 방법Outlook 이메일을 자동 또는 수동으로 백업하는 방법Apr 16, 2025 am 11:17 AM

이 포괄적 인 가이드는 Outlook 데이터를 안전하고 액세스 할 수 있도록합니다. Outlook 이메일, 연락처, 캘린더 항목 및 작업 (자동 및 수동으로 모든 Outlook 365 및 2010 버전을 백업하는 방법을 배우십시오. Re의 중요성

See all articles

핫 AI 도구

Undresser.AI Undress

Undresser.AI Undress

사실적인 누드 사진을 만들기 위한 AI 기반 앱

AI Clothes Remover

AI Clothes Remover

사진에서 옷을 제거하는 온라인 AI 도구입니다.

Undress AI Tool

Undress AI Tool

무료로 이미지를 벗다

Clothoff.io

Clothoff.io

AI 옷 제거제

AI Hentai Generator

AI Hentai Generator

AI Hentai를 무료로 생성하십시오.

인기 기사

R.E.P.O. 에너지 결정과 그들이하는 일 (노란색 크리스탈)
1 몇 달 전By尊渡假赌尊渡假赌尊渡假赌
R.E.P.O. 최고의 그래픽 설정
1 몇 달 전By尊渡假赌尊渡假赌尊渡假赌
R.E.P.O. 아무도들을 수없는 경우 오디오를 수정하는 방법
1 몇 달 전By尊渡假赌尊渡假赌尊渡假赌
R.E.P.O. 채팅 명령 및 사용 방법
1 몇 달 전By尊渡假赌尊渡假赌尊渡假赌

뜨거운 도구

WebStorm Mac 버전

WebStorm Mac 버전

유용한 JavaScript 개발 도구

메모장++7.3.1

메모장++7.3.1

사용하기 쉬운 무료 코드 편집기

에디트플러스 중국어 크랙 버전

에디트플러스 중국어 크랙 버전

작은 크기, 구문 강조, 코드 프롬프트 기능을 지원하지 않음

SublimeText3 중국어 버전

SublimeText3 중국어 버전

중국어 버전, 사용하기 매우 쉽습니다.

VSCode Windows 64비트 다운로드

VSCode Windows 64비트 다운로드

Microsoft에서 출시한 강력한 무료 IDE 편집기