7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
horsefly 2004-06-18
- 打赏
- 举报
楼上两位正解，只能噌分了:)
online 2004-06-18
- 打赏
- 举报
还可以使用lstrlen
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
huangjianyou 2004-06-18
- 打赏
- 举报
Public Function Lench(ByVal Tmpstr As String) As String
Lench = LenB(StrConv(Tmpstr, vbFromUnicode))
End Function
如：lench("我o")=3
Lench = LenB(StrConv(Tmpstr, vbFromUnicode))
End Function
如：lench("我o")=3
BlueBeer 2004-06-18
- 打赏
- 举报
呵呵，楼主是大户人家啊~
建议楼主问问题之前先搜索一下，别拿自己的分分挥霍呀，呵呵~
建议楼主问问题之前先搜索一下，别拿自己的分分挥霍呀，呵呵~
kmzs 2004-06-18
- 打赏
- 举报
晕，玩什么呢。。。
yassee 2004-06-18
- 打赏
- 举报
呵呵
http://community.csdn.net/Expert/topic/3082/3082745.xml?temp=.5652582
http://community.csdn.net/Expert/topic/3082/3082745.xml?temp=.5652582
flyingZFX 2004-06-18
- 打赏
- 举报
MsgBox LenB(StrConv("JJHH止境", vbFromUnicode))
还想懒够 2004-06-18
- 打赏
- 举报
Lenb(strconv("JJHH止境",vbFromUnicode))
northwolves 2004-06-18
- 打赏
- 举报
Dim mybyte() As Byte
mybyte = StrConv("JJHH止境", vbFromUnicode)
MsgBox UBound(mybyte) + 1
mybyte = StrConv("JJHH止境", vbFromUnicode)
MsgBox UBound(mybyte) + 1
射天狼 2004-06-18
- 打赏
- 举报
MsgBox LenB(StrConv("JJHH止境", vbFromUnicode))
ryuginka 2004-06-18
- 打赏
- 举报
我也蹭分
dongge2000 2004-06-18
- 打赏
- 举报
我也蹭分*#*
