如何从Html页面中提取所有汉字
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页面中提取所有汉字呢？不...[ 查看全文 ]
2016-02-19
标签:
