7,762
社区成员
发帖
与我相关
我的任务
分享请问如何判断字符串的字节长度,就是汉字算2个,英文算1个.
经常要显示标题
但怕标题超过显示宽度
所以
if len(str)>20 then
str=left(str,20)
end if
但往往标题里面是英文
没有超过显示宽度也被截短
怎么才能判断是英文还是中文?
但怕标题超过显示宽度
所以
if len(str)>20 then
str=left(str,20)
end if
但往往标题里面是英文
没有超过显示宽度也被截短
怎么才能判断是英文还是中文?
...全文
请发表友善的回复…
发表回复
northwolves 2003-02-12
- 打赏
- 举报
api
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long
Private Sub Command1_Click()
MsgBox lstrlen("blacklevin(黑闪电)")
End Sub
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long
Private Sub Command1_Click()
MsgBox lstrlen("blacklevin(黑闪电)")
End Sub
简易无忌 2003-02-12
- 打赏
- 举报
n=LenB(StrConv("你areprostitute", vbFromUnicode))
'n=15
'n=15
nydelphi 2003-02-11
- 打赏
- 举报
up
blacklevin 2003-02-11
- 打赏
- 举报
如果是在ASP里面也可以这样写吗？
dsclub 2003-02-11
- 打赏
- 举报
Dim a As String
a = "我God" '我－2,God－3
Debug.Print LenB(StrConv(a, vbFromUnicode))
a = "我God" '我－2,God－3
Debug.Print LenB(StrConv(a, vbFromUnicode))
