字符串包含中文,英文,怎么按一定长度,分段啊?

Question

比如:字符串为:你好第三缩短缩短撒3234324你打碎多幅三分三分
怎么按每10个字符分段啊?

Answer 1

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属性值,因为这个值是在变化的. 

Answer 2

***************************************************
*字符串定长截取(长度不足尾部补空格)
*程序名称:GetStringLen
*调用格式:GetStringLen(cString[,nlen[,n]])
*说明:[]内省略时按默认处理
****************************************************
PARAMETERS cString,nlen,n
IF TYPE('n')<>"N" OR TYPE("n")="L" OR n<=0
n=1
ENDIF
IF TYPE('nlen')<>"N" OR TYPE("nlen")="L" OR nlen<=0
RETURN cString 
ENDIFDIMENSION c(n)
cStr=cString
FOR i=1 TO n
c1=LEFT(cStr,nlen)
c2=LEFT(cStr,nlen-1)
IF LENC(c1)=LENC(c2)
c(i)=c2
cStr=SUBSTR(cStr,nlen)
ELSE
c(i)=c1
cStr=SUBSTR(cStr,nlen+1) 
ENDIF
ENDFOR 
RETURN c(n) + SPACE(nlen-LEN(c(n)))