怎么在一段代码中找出汉字？

[simon80]

比如：
font">朋友们早上好!88<img src="images/smilies/default/em06.gif" smilieid="6" border="0" alt="" /> <img src="images/smilies/default/em04.gif" smilieid="4" border="0" alt="" /></div

怎么找出 朋友们早上好 ？

[tzwsoho]

从ascii码可以判断,ascw()函数

[cangwu_lee]

asc也是可以的

[caofusheng]

Dim strTemp As String
strTemp = "我"
If strTemp > "~" Then
MsgBox "汉字"
ElseIf IsNumeric(c) Then
MsgBox "数字"
ElseIf (c >= "A" And c <= "Z") Or (c >= "a" And c <= "z") Then
MsgBox "英文"
End If

[simon80]

我会了
excel中
Function getpychar(char)
For i = 1 To Len(Range("a1").Value)
char = Range("a1").Value

tmp = 65536 + Asc(Mid(char, i, 1))
If tmp >= 45217 And tmp <= 62289 Then
getpychar = getpychar & Mid(char, i, 1)
End If
Next
End Function