'******************************************************************************************************
'函数:CutString(s,10)
'功能:将字符串按等宽的比列换行输出
'调用:CutString("123456789",3)
'参数:Str:待截取的字符串,BrN:换行的字符个数
'******************************************************************************************************
Public Function CutString(str As String, BrN As Integer) As String
Dim n As Integer
Dim s1 As String
n = Len(str)
s1 = ""
s2 = ""
For i = 1 To n
If i Mod BrN = 0 Then
s1 = Left(str, BrN)
str = Replace(str, s1, "")
s2 = s2 & Space(2) & s1 & Chr(10)
End If
Next
CutString = s2
End Function
将字符串按等宽的比列换行输出
最新推荐文章于 2007-07-01 14:50:00 发布