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

最新推荐文章于 2025-02-19 11:43:47 发布

taito

最新推荐文章于 2025-02-19 11:43:47 发布

阅读量4.5k

点赞数

分类专栏： ASP 文章标签： html vbscript 正则表达式 function regex each

本文链接：https://blog.youkuaiyun.com/taito/article/details/541992

版权

ASP 专栏收录该内容

31 篇文章

订阅专栏

博客介绍了在HTML页面中提取所有汉字的方法，给出了两种基于VBScript的实现。一种是通过循环遍历字符串，判断字符编码来提取；另一种是使用正则表达式，设置匹配模式后执行搜索提取汉字。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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