开发学院WEB开发ASP 如何从Html页面中提取所有汉字 阅读

如何从Html页面中提取所有汉字

 2005-12-31 10:35:16 来源:WEB开发网   
核心提示:<SCRipT LANGUAGE="vbScript">dim strstr="怎样从一个Html页面中提取所有汉字呢?不能有其它Html代码,"alert FilterChinese(str)function FilterChinese(strInput)dim r

<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>

Tags:如何 Html 页面

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
赞助商链接