判断是否汉字
来源:互联网 发布:linux查看用户名和密码 编辑:程序博客网 时间:2024/05/09 23:42
Private Sub Command1_Click()
Dim i As Integer
Dim c As String
For i = 1 To Len(Trim(Text1.Text))
c = Mid(Text1.Text, i, 1)
If Asc(c) < 255 And Asc(c) > 0 Then
MsgBox "单字节"
Else
MsgBox "汉字"
End If
Next
End Sub
Dim i As Integer
Dim c As String
For i = 1 To Len(Trim(Text1.Text))
c = Mid(Text1.Text, i, 1)
If Asc(c) < 255 And Asc(c) > 0 Then
MsgBox "单字节"
Else
MsgBox "汉字"
End If
Next
End Sub
- 判断是否汉字
- 判断是否输入汉字
- 判断是否有汉字
- 判断是否是汉字
- ABAP:判断是否汉字
- 判断是否为汉字
- ABAP:判断是否汉字
- 判断是否是汉字
- 判断是否中文汉字
- 判断是否是汉字
- 判断是否含有汉字或汉字标点
- 判断字符是否是汉字
- 判断字符串是否为汉字
- js判断是否为汉字
- 判断字符串是否有汉字
- 判断字符是否为汉字
- 判断字符串是否包含汉字
- java判断是否为汉字
- 2005年8月18日 星期四 天气晴 [沙漠沙 发表于 2005-8-18 20:49:48]
- 最常见的20个答案(翻译+评论)
- 灰鸽子病毒竟让我遇到了……来了个通杀! [沙漠沙 发表于 2005-8-18 16:04:15]
- 我回来了。
- 取汉字拼音(推荐)
- 判断是否汉字
- 又有一个Repeater的例子
- P2P:UDP穿透NAT防火墙
- 中秋遇国耻918
- Win2000 ntfs 文件夹安全里的用户误删
- 一个经验
- asp.net 的经验
- 生活无奈javascript
- PowerPoint文档“大减肥”(downmoon)