Vb 는 웹 페이지 소스 코드를 빠르게 가져와 내용을 추출합니다.

TestRegExp(ByVal myString$ $,ByVal myPattern$, 선택적 myMark$ = "gimt ",선택적 myRepString$)

MyString = ""또는 myPattern = ""인 경우

TestRegExp = ""

디버깅. "데이터를 비워 둘 수 없습니다." 를 인쇄합니다

기능을 종료합니다

만약 ... 끝날거야

객체를 작성합니다.

Dim objRegExp As RegExp

Dim 객체 일치: 일치로

Dim 열 일치는 일치 세트로 사용됩니다

Dim RetStr 을 문자열로 사용

Set objRegExp = New RegExp

일반 공식

ObjRegExp 입니다. 모드 = 내 모드

IIf(InStr(myPattern, "s ")& lt；; & gt0, "",내 패턴)

대/소문자를 구분합니까?

ObjRegExp 입니다. Ignorecase = IIF (instr (lcase $ (mymark), "I ")& gt；; 0, 참, 거짓)

세계적인가요?

ObjRegExp 입니다. Global = IIf(InStr(LCase$(myMark), "g ")& gt；; 0, 참, 거짓)

포장해 드릴까요?

ObjRegExp 입니다. Multiline = IIF (instr (lcase $ (mymark), "m ")& gt；; 0, 참, 거짓)

ObjRegExp 인 경우. 그런 다음 테스트 (myString)

If InStr(myMark, "r ")& gt；; 그럼 0

디버깅. "대체" 를 인쇄합니다

RetStr = objRegExp 입니다. Replace (내 문자열, 내 문자열)

디버깅. Iif 인쇄 (retstr & lt. & gt "","대체 결과"&; Left(RetStr, 10), "대체 문자를 찾을 수 없음"

기타

디버깅. "검색" 을 인쇄합니다

Set colMatches = objRegExp 입니다. 실행 (myString)' 검색을 수행합니다.

MsgBox 열이 일치합니다. 숫자를 세다

ColMatches 의 Iterate Matches 콜렉션에 있는 각 objMatch 에 대해 다음을 수행합니다.

RetStr = RetStr & ampobjMatch 입니다. 첫 번째 색인

RetStr = RetStr & ampobjMatch 입니다. 가치와 가치. VbCrLf

그리고 나서

디버깅. Iif 인쇄 (retstr & lt. & gt "","검색 결과"&; Left(RetStr, 10), "일치하는 결과를 찾을 수 없음"

만약 ... 끝날거야

기타

RetStr = ""

디버깅. "일치하는 결과를 찾을 수 없습니다. 일반 공식이 올바른지 확인하십시오." 를 인쇄합니다

만약 ... 끝날거야

TestRegExp = RetStr

기능을 종료합니다