十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
1、VB中,用函数Len(B)就可以求出字符串a$的长度。
成都创新互联公司从2013年开始,先为静宁等服务建站,静宁等地企业,进行企业商务咨询服务。为静宁企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
2、在VB中,一个字母、数字或汉字的长度均为1。比如:B="放假13天",则运用函数Len(B)后的值为5,字符串长度就是5。
扩展资料:
1、Len函数和LenB函数:用途:Len返回文本串的字符数。LenB返回文本串中所有字符的字节数
2、语法:LEN(text)或LENB(text)。注意:此函数用于双字节字符,且空格也将作为字符进行统计。例如:如果A1=我爱编程,则公式“=LEN(A1)”返回4,=LENB(A1)返回8。
3、字符串函数(String
processing
function)也叫字符串处理函数,指的是编程语言中用来进行字符串处理的函数,如C,pascal,Visual以及LotusScript中进行字符串拷贝,计算长度,字符查找等的函数。
参考资料:字符串函数_百度百科
Dim MyGraphics As Graphics = Me.CreateGraphics
'定义使用的字体
Dim Myfont As New Font("宋体", 9)
'获取文本的大小。
Dim Mystring_Size As SizeF = MyGraphics.MeasureString("中", Myfont)
'显示宽和高
MsgBox(Mystring_Size1.Width ":" Mystring_Size1.Height)
上面思路是正确的, 用ascw 函数也可以
private function LenC( ps as string ) as Integer
Dim n As Integer
Dim StrLen As Integer
For n = 1 To Len(Text1.Text)
If Ascw(Mid(Text1.Text, n, 1)) 256 Then
StrLen = StrLen + 2
Else
StrLen = StrLen + 1
Next n
return strLen
end function
遍历每一个字符,看是全角还是半角的。半角的字符总数 +1,全角的字符总数 +2。
参考:
Public Function GetByteLength(ByVal value As String) As Long
Dim i As Long = 0
For Each c As Char In value
If (c.ToString().Length = System.Text.Encoding.Default.GetByteCount(value.ToString())) Then
i = i + 1
End If
i = i + 1
Next
Return i
End Function