+ -
当前位置:首页 → 问答吧 → 如何区分字符串首字是否汉字

如何区分字符串首字是否汉字

时间:2011-08-04

来源:互联网

本来想用 ASC(String)>90,确定非字母和数字开头。可惜没效果,是否跟双字节有关?

作者: xiedl   发布时间: 2011-08-04

string Like "[一-龥]*"

作者: livewire   发布时间: 2011-08-04

复制内容到剪贴板
代码:
For i = 48 To 122
If i = 58 Then i = 65
If i = 91 Then i = 97
If x = Chr(i) Then k = 9
Next
If k <> 9 Then MsgBox "非数字非字母"
可以用循环来区分

作者: 白云2011   发布时间: 2011-08-04

=IF(LEN(LEFT(A1,1))=LENB(LEFT(A1,1)),"非","")&"汉字"

作者: zez   发布时间: 2011-08-04

=IF(left(A1,1)>="吖","","非")&"汉字"

作者: uug   发布时间: 2011-08-04

学习
=IF(A1<"吖","非","")&"汉字"

[ 本帖最后由 一指禅 于 2011-8-4 08:46 编辑 ]

作者: 一指禅   发布时间: 2011-08-04

引用:
原帖由 zez 于 2011-8-4 07:52 发表
=IF(LEN(LEFT(A1,1))=LENB(LEFT(A1,1)),"非","")&"汉字"
还好,这个看的懂。 
IF(left(A1,1)>="吖","","非")&"汉字" 这个是什么原理?

作者: minjiwei   发布时间: 2011-08-04

谢谢大家!

我本来想在VBA程序中使用,所以直接在代码中启用EXCEL函数,我不会用,该怎么写?请教!

还是ASC函数,奇怪:asc("汉字")居然是负值,那我可以用  ASC(S) 是否>0 来区分?

作者: xiedl   发布时间: 2011-08-05

Sub sss()
Mystr = "ab1"
If Mystr Like "[一-龥]*" Then MsgBox "汉字" Else MsgBox "非汉字"
Mystr = "和c"
If Mystr Like "[一-龥]*" Then MsgBox "汉字" Else MsgBox "非汉字"
End Sub

作者: 白云2011   发布时间: 2011-08-05

If Mystr >= "吖*" Then msgbox"汉字"

作者: 白云2011   发布时间: 2011-08-05

相关阅读 更多