|
- 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
复制代码
|
|