<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>
额。 我怎么感觉有点糊涂,你是说在head里面设置页面能显示汉字的代码吗?是的话可以在html的head部分这样写:<meta http-equiv="Content-Type" content="text/htmlcharset=utf-8" />,意思就是以utf8的编码格式来显示该html,我一般需要显示汉字就是使用这个,或者你可以将utf-8替换成gb2312或者其他支持显示中文的编码格式也行(其他部分保持不变)。<option value="text">文本类型</option><option value="image">图片类型</option>
上面的"text"英文全改为汉字。
<option value="文本类型">文本类型</option>
<option value="图片类型">图片类型</option>
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)