<SCRIPT LANGUAGE="vbScript">
희미한 str
str="Html 페이지에서 모든 중국어 문자를 추출하는 방법은 무엇입니까? 다른 HTML 코드는 있을 수 없습니다."
경고 Filter중국어(str)
함수 Filter중국어(strInput)
희미한 결과:결과=""
희미한 온도Str
i=1에서 len(strInput)까지
tempStr=mid(strInput,i,1)
if left(escape(tempStr),2)="%u" 그러면
결과=결과&온도Str
종료하면
다음
필터중국어=결과
함수 종료
</SCRIPT>
asc(tempStr)>255이면
정규식 방법을 사용합니다.
<SCRIPT LANGUAGE="vbScript">
희미한 str
str="Html 페이지에서 모든 중국어 문자를 추출하는 방법은 무엇입니까? 다른 HTML 코드는 있을 수 없습니다."
경고 RegExpTest("[u4e00-u9fa5]",str)
함수 RegExpTest(patrn, strng)
Dim regEx, Match, Matches '변수 생성.
Set regEx = New RegExp ' 정규식을 만듭니다.
regEx.Pattern = patrn ' 패턴을 설정합니다.
regEx.IgnoreCase = True ' 대소문자 구분 여부를 설정합니다.
regEx.Global = True ' 전역 대체를 설정합니다.
Set Matches = regEx.Execute(strng) ' 검색을 실행합니다.
일치 항목의 각 일치 항목에 대해 ' 일치 항목 컬렉션을 탐색합니다.
RetStr = RetStr & Match.Value
다음
RegExpTest = RetStr
함수 종료
</SCRIPT>