字符串包含中文,英文,怎么按一定长度,分段啊?
比如:字符串为:你好第三缩短缩短撒3234324你打碎多幅三分三分
怎么按每10个字符分段啊?
[解决办法]
Public Function Get_Token(ByRef sSource As String, ByVal sSeparator As String)
Dim P As Integer
Dim sRet As String
P = InStr(sSource, sSeparator)
If P = 0 Then
sRet = sSource
sSource = " "
Else
sRet = Mid(sSource, 1, P - 1)
sSource = Right(sSource, Len(sSource) - P)
End If
Get_Token = sRet
End Function
在使用的时候,你要注意, sSource必须要放在一个变量里面,不要把设成某一个空间的caption或者试text属性值,因为这个值是在变化的.
