主页

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

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

怎么找出朋友们早上好？

...全文

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

回复赞