今天给大家分享的是由图老师小编精心为您推荐的如何从Html页面中提取所有汉字，喜欢的朋友可以分享一下，也算是给小编一份支持，大家都不容易啊!
【 tulaoshi.com - Web开发 】
SCRIPT LANGUAGE="vbScript"
dim str
str="怎样从一个Html页面中提取所有汉字呢？不能有其它Html代码。"
alert FilterChinese(str)
function FilterChinese(strInput)
dim result:result=""
dim tempStr
for i=1 to len(strInput)
tempStr=mid(strInput,i,1)
if left(escape(tempStr),2)="%u" then
result=result & tempStr
end if
next
FilterChinese=result
end function
/SCRIPT
if asc(tempStr)255 then
用正则表达式的方法
SCRIPT LANGUAGE="vbScript"
dim str
str="怎样从一个Html页面中提取所有汉字呢？不能有其它Html代码。"
alert RegExpTest("[u4e00-u9fa5]",str)
Function 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) ' 执行搜索。
For Each Match in Matches ' 遍历 Matches 集合。
RetStr = RetStr & Match.Value
Next
RegExpTest = RetStr
End Function
/SCRIPT
来源:http://www.tulaoshi.com/n/20160219/1617057.html
看过《如何从Html页面中提取所有汉字》的人还看了以下文章 更多>>
