教你怎么在Html页面提取全部汉字

      本文分享给大家学习的是如何从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页面中提取所有汉字呢？不能有其它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>