VB中获得汉字的形式

[chenzhao1981]

以下是源串,我想除掉所有为字符,只留下汉字~~
有什么好的方法可以实现?????????

可能有雨"><br><nobr>28° | 26°</nobr></div></div></font></td></tr></table></div></div></div><div class=dm></div></td><td>  </td><td id=c_3><div id=m_ class=modboxclass=modbox_e style="position:relative;"><div id=m__b style="overflow:hidden;display:none"></div></div><div class=dm></div></td></tr></table></div><div ><center><div class=mod><font size=-1>保存此页，即可在其它计算机上使用<a href="https://www.google.com/accounts/ServiceLogin?service=ig&passive=true&continue=http://www.google.com/ig%3Fhl%3Dzh-CN&followup=http://www.google.com/ig%3Fhl%3Dzh-CN&cd=US&hl=zh-CN&nui=1<mpl=default">Google 帐户</a>时查阅。<br></font></div></div><br><div id=footer align=center style="white-space:nowrap"><font size=-1><a href="/intl/zh-CN/ads/">

[glc20022003]

1.txt中存放你的源串

Private Sub Form_Load()
Dim fso As New FileSystemObject
Dim MyTextFile As TextStream
Set MyTextFile = fso.OpenTextFile("C:\Documents and Settings\gaoliangchen\桌面\1.txt")
Dim str As String
str = MyTextFile.ReadAll
MsgBox CN(str) '----------可能有雨保存此页，即可在其它计算机上使用帐户时查阅。
End Sub

Private Function CN(str As String)
Dim maxLen As Integer
Dim tempstr As String
maxLen = Len(str)
For i = 1 To maxLen
tempstr = Mid(str, i, 1)
If Asc(tempstr) < 0 Then
CN = CN + tempstr
End If
Next
End Function

[wully]

同意楼上，汉字asc小于0，循环每个字符，取出来即可

[pigsanddogs]

jf

[vinegar111]

xuexi