當(dāng)前位置:首頁(yè)文章首頁(yè) IT學(xué)院 IT技術(shù)

教你怎么在Html頁(yè)面提取全部漢字

作者:  來(lái)源:  發(fā)布時(shí)間:2011-6-2 15:40:43  點(diǎn)擊:

本文分享給大家學(xué)習(xí)的是如何從Html頁(yè)面中提取所有漢字,希望通過(guò)下面的學(xué)習(xí)對(duì)大家有所幫助。

<SCRIPT LANGUAGE="vbScript">
dim str
str="怎樣從一個(gè)Html頁(yè)面中提取所有漢字呢?不能有其它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

用正則表達(dá)式的方法
<SCRIPT LANGUAGE="vbScript">
dim str
str="怎樣從一個(gè)Html頁(yè)面中提取所有漢字呢?不能有其它Html代碼。"
alert RegExpTest("[\u4e00-\u9fa5]",str)

 

Function RegExpTest(patrn, strng)
   Dim regEx, Match, Matches   ' 建立變量。
   Set regEx = New RegExp   ' 建立正則表達(dá)式。
   regEx.Pattern = patrn   ' 設(shè)置模式。
   regEx.IgnoreCase = True   ' 設(shè)置是否區(qū)分大小寫。
   regEx.Global = True   ' 設(shè)置全局替換。
   Set Matches = regEx.Execute(strng)   ' 執(zhí)行搜索。
   For Each Match in Matches   ' 遍歷 Matches 集合。
      RetStr = RetStr  &  Match.Value
   Next
   RegExpTest = RetStr
End Function

 </SCRIPT>

文章評(píng)論

軟件按字母排列: A B C D E F G H I J K L M N O P Q R S T U V W X Y Z