[已解决]判断是否为汉字

爱疯

1. 
   
2. Sub Test()
   
3.     Dim Str As String
   
4.     Str = InputBox("请输入一个字符:")
   
5.     If Len(Str) <> 0 Then
   
6.         If Asc(Str) < 0 Then MsgBox "汉字"
   
7.     End If
   
8. End Sub

复制代码

如果输入的是"）"，会误认为汉字。
请问如题，不用正则表达式可以么？
谢谢！

最佳答案

月排行榜 / 总排行榜

搁浅2008

2011-7-30 13:23

Like "[一-龥]" 表示所有汉字

1. 
   

复制代码

1. Sub Test()
   
2. Dim Str As String
   
3. Str = InputBox("请输入一个字符:")
   
4. If Len(Str) <> 0 Then
   
5. If Str Like "[一-龥]" Then MsgBox "汉字"
   
6. End If
   
7. End Sub
   

复制代码

跳转到最佳答案楼层

搁浅2008

Like "[一-龥]" 表示所有汉字

1. 
   

复制代码

1. Sub Test()
   
2. Dim Str As String
   
3. Str = InputBox("请输入一个字符:")
   
4. If Len(Str) <> 0 Then
   
5. If Str Like "[一-龥]" Then MsgBox "汉字"
   
6. End If
   
7. End Sub
   

复制代码

EXCEL-YQ

疯子：以下的不知道满足你的要求不
这个是只有汉字的：

1. Sub Test()
   
2. Dim Str1, Str2, i, m
   
3. Str1 = InputBox("请输入一个字符:")
   
4. Do While Len(Str1) > i
   
5.     i = i + 1
   
6.     Str2 = Mid(Str1, i, 1)
   
7.     If (Asc(Str2) < 0 And Asc(Str2) > -22000) Or Asc(Str2) < -24300 Then
   
8.         GoTo 100
   
9.     Else
   
10.         Str1 = Replace(Str1, Str2, "")
    
11.         i = i - 1
    
12.     End If
    
13. 100
    
14. Loop
    
15. MsgBox "是汉字的是：" & Str1
    
16. End Sub

复制代码

这个是包含逗号，句号，感叹号，问号的（都是中文状态下的哈）：

1. Sub Test1()
   
2. Dim Str1, Str2, i, m
   
3. Str1 = InputBox("请输入一个字符:")
   
4. Do While Len(Str1) > i
   
5.     i = i + 1
   
6.     Str2 = Mid(Str1, i, 1)
   
7.     If Str2 = "，" Or Str2 = "。" Or Str2 = "？" Or Str2 = "！" Or (Asc(Str2) < 0 And Asc(Str2) > -22000) Or Asc(Str2) < -24300 Then
   
8.         GoTo 100
   
9.     Else
   
10.         Str1 = Replace(Str1, Str2, "")
    
11.         i = i - 1
    
12.     End If
    
13. 100
    
14. Loop
    
15. MsgBox "是汉字的是：" & Str1
    
16. End Sub

复制代码

EXCEL-YQ

这里面的-22000和-24300都是用笨办法给查找出来的

爱疯

谢谢搁浅！

1）为什么范围是"[一-龥]"？
1.rar (270.88 KB, 下载次数: 6)

2011-7-30 13:50 上传

点击文件名下载附件
A列由=char(row())而得。
比如"大"，A46323单元格
MsgBox Asc("大") '-19213
46323加19213正好是65536，这是为什么呢？



2）"一"是首，"龥"是尾，是么？

1. If Str Like "[一-龥]" Then
   
2. 
   
3. End If
   

复制代码

因为如果输入"大家"，就要提前作修改。比如在input后加上str=left(str,1)，不然就会得到false。

爱疯

EXCEL-YQ 发表于 2011-7-30 13:40
这里面的-22000和-24300都是用笨办法给查找出来的

谢谢yq!

刚刚回帖去了，没发现，不好意思。
3楼的方法，特别是这些数字，是怎么求来的呢？

爱疯

学习两位的方法了！
主要想理解，这些方法（中的数字）是怎么来的。

EXCEL-YQ

爱疯 发表于 2011-7-30 14:05
谢谢yq!

刚刚回帖去了，没发现，不好意思。

疯子，不好意思！这个我现在帮不了你啦。这个还是我们以前在V3入门中的字符串处理的时候弄的。现在过了2年半多了，也都忘记原文件在哪里了

EXCEL-YQ

搁浅的方法很好。这个还更简洁，和我用的方法是一样的，只是我们没有找到他的那一规律

EXCEL-YQ

1. Sub Test()
   
2.     Dim Str As String
   
3.     Str = InputBox("请输入一个字符:")
   
4.     Str = Left(Str, 1)
   
5.     If Len(Str) <> 0 Then
   
6.         If Str Like "[一-龥]" Then
   
7.             MsgBox "汉字"
   
8.         End If
   
9.     End If
   
10. End Sub

复制代码

已经收藏此代码！{:101:}