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

simon80 2008-01-19 09:25:53
比如:
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

怎么找出 朋友们早上好 ?
...全文
105 点赞 收藏 4
写回复
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
simon80 2008-01-20
我会了
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
回复
caofusheng 2008-01-19
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
回复
cangwu_lee 2008-01-19
asc也是可以的
回复
tzwsoho 2008-01-19
从ascii码可以判断,ascw()函数
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7451

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告