|  | 
 
| 复制代码
 Dim str
 str="<div title='影视杂谈,原著解读。' class='desc'>"
print Get_Chinese(true, str)
'Gloabl:搜索全局,str:被检索字符串
Function Get_Chinese(ByVal global,ByVal str)
        dim reg,macher,count,i,temp
                temp=""
                Set reg = New RegExp
                reg.Pattern="[\u4e00-\u9fa5]+"
                reg.Global=global
         Set macher=reg.Execute(str)
          count=macher.Count
                If count>0 Then
                For i=0 To count-1
                temp=temp&macher(i)
                Next
                End if
Get_Chinese=temp
End function
 
   | 
 |