怎么判断一个字符是中文?(在线等，解决马上散分)
怎么判断一个字符是中文? 问题点数：20、回复次数：3Top
1 楼astra1（Hyperion）回复于 2006-03-16 13:04:57 得分 5
if(Convert.ToInt16("中".ToCharArray()[0])>256)
Response.Write("是中文");Top
2 楼lubosun（大白菜）回复于 2006-03-16 13:09:56 得分 10
Private Sub SrcTxt_Change( )
Static SStr As String
Dim i As Integer
Dim TempFile, TempFileBinary As String
TotalNum = 0
L = Len(SrcTxt.Text)
For i = 1 To L
tmpStr = StrConv(Mid$(SrcTxt.Text, i, 1), vbWide)
If Asc(Mid$(SrcTxt.Text, i, 1)) < 0 Then
TotalNum = TotalNum + 1
SStr = SrcTxt.Text
Else
MsgBox "写入的不是汉字！"
SrcTxt.Text = Left(SrcTxt.Text, Len(SrcTxt.Text) - 1)
Exit Sub
End If
Next i
LblNum.Caption = Str$(TotalNum) + "个汉字"
TempFile = App.Path + "\" + "TempSrc.txt"
'TempFileBinary = App.Path + "\" + "TempSrcBinary.txt"
Open TempFile For Output As #1
Print #1, SrcTxt.Text
Close #1
End Sub
Top
3 楼mmqingfeng（漠漠青峰）回复于 2006-03-16 13:18:09 得分 5
汉字范围:
0A1A1H～0F7FEHTop
