Http://www.cnng.net  首页 原创软件   VB文挡  VB资源   乱舞人生  资源   Tags  给我留言 
用户登陆
用户:
密码:
 

站点日历
73 2022 - 12 48
    123
45678910
11121314151617
18192021222324
25262728293031


站点统计

最新日志
不复盖任务栏的全屏显示 怎样获取键盘插入符(光标)的坐标
晴天 将字符串按等宽的比列换行输出   [ 日期:2007-06-15 ]
程序代码:[ 复制代码 ] 
'******************************************************************************************************
'http://www.cnng.net
'石陆软件屋

'函数: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 
 



相关链接:vb | 字符串 | 等宽 | 换行输出

[阅读字体大小: ]
[本日志由 admin 于 2013-11-01 10:52 PM 编辑]
引用通告地址 (0):
复制引用地址http://www.cnng.net/blog/trackback.asp?tbID=43
复制引用地址http://www.cnng.net/blog/trackback.asp?tbID=43&CP=GBK
暂时没有评论
发表评论 - 不要忘了输入验证码哦!
作者: 用户名:  密码:   注册? 验证码: 
评论:

禁止表情
禁止UBB
禁止图片
识别链接
识别关键字
表  情