ASP提取字符串中的中文字符

1. 
   
2. Dim str
   
3. str="<div title='影视杂谈，原著解读。' class='desc'>"
   
4. print Get_Chinese(true, str)
   
5. 
   
6. 
   
7. 'Gloabl：搜索全局，str：被检索字符串
   
8. Function Get_Chinese(ByVal global,ByVal str)
   
9.         dim reg,macher,count,i,temp
   
10.                 temp=""
    
11.                 Set reg = New RegExp
    
12.                 reg.Pattern="[\u4e00-\u9fa5]+"
    
13.                 reg.Global=global
    
14.          Set macher=reg.Execute(str)
    
15.           count=macher.Count
    
16.                 If count>0 Then
    
17.                 For i=0 To count-1
    
18.                 temp=temp&macher(i)
    
19.                 Next
    
20.                 End if
    
21. Get_Chinese=temp
    
22. End function

复制代码