7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
chenyu5188 2002-12-20
- 打赏
- 举报
Public Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long
fling_boy 2002-12-20
- 打赏
- 举报
?
feixuehenshui 2002-12-19
- 打赏
- 举报
其实这样判断一批是否为数字 没有太多的意思
dragon525 2002-12-19
- 打赏
- 举报
同意楼上！！
判断是否是数字:
if IsNumeric(str) then
Msgbox"为数字"
end if
判断是否是数字:
if IsNumeric(str) then
Msgbox"为数字"
end if
用户 昵称 2002-12-19
- 打赏
- 举报
fling_boy(男孩(QQ:81526768)) 的代码可以用来判断是否具有汉字
if LenB(StrConv(str, vbFromUnicode, 2052))<>len(str) then
have
else
without
endif
shepherd228(牧羊人)的代码用来判断那个是汉字。
if LenB(StrConv(str, vbFromUnicode, 2052))<>len(str) then
have
else
without
endif
shepherd228(牧羊人)的代码用来判断那个是汉字。
hongsongboy 2002-12-19
- 打赏
- 举报
如果字符串中有汉字也有字母该怎样呢?
shepherd228 2002-12-19
- 打赏
- 举报
取字符串中的一个字符，做下面的判断：
public function ss(str as string) as string
if asc(str)<0 or asc(str)>256 then
msgbox"汉字"
else
msgbox"字符"
end if
end function
public function ss(str as string) as string
if asc(str)<0 or asc(str)>256 then
msgbox"汉字"
else
msgbox"字符"
end if
end function
fling_boy 2002-12-19
- 打赏
- 举报
LenEx = LenB(StrConv(str, vbFromUnicode, 2052))
CloneCenter 2002-12-19
- 打赏
- 举报
判断 ASCII 码是否在 0-127 之外。
cooldai 2002-12-19
- 打赏
- 举报
楼上未必判断出是汉字哦。
字符串长度可以这样：
Public Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long
用这个函数可以准确计算出字符串的字节数。
字符串长度可以这样：
Public Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long
用这个函数可以准确计算出字符串的字节数。
zyl910 2002-12-19
- 打赏
- 举报
= LenB(StrConv(str, vbFromUnicode))
hengxin54 2002-12-19
- 打赏
- 举报
如果求总的字符数，则汉字为占两个字符，数字或字母占一个字符，这样就可以算出字符串长度了。
