字符串包含中文,英文,怎么按一定长度,分段啊?
比如:字符串为:你好第三缩短缩短撒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属性值,因为这个值是在变化的.