复制字符串中的字符
新客网 XKER.COM 2007-02-01 来源： 收藏本文
FillString函数有两个参数，一个是用来重复填充的字符，另一个是填充后的字符串长度。然后它返回填充后的字符串，重复次数由填充字符的个数和填充后字符串长度决定。
该函数建立一个循环，循环次数基于所要求的字符串长度。循环步长有参数Value（即用来重复填充的子字符串）的长度决定。该函数把参数Value作为工作字符串，重复后按所要求的长度适当截尾：
Private Function FillString(ByVal Value As String, _
ByValStringLength As Integer)
As String
Dim strWork As String
Dim intLoopCount As Integer
For intLoopCount = 1 To StringLength Step Len(Value)
strWork = strWork & Value
Next
FillString = Left(strWork, StringLength)
End Function
如果参数value为123，参数StringLength（字符串长度）为8，则调用该函数后的返回值为12312312。
如果你的程序需要产生测试数据或者随机数据，那么FillString函数是有些作用的。不过，请注意，对大的字符串，本函数并没有优化。它最好用于字符数少于5000的情况。
该函数建立一个循环，循环次数基于所要求的字符串长度。循环步长有参数Value（即用来重复填充的子字符串）的长度决定。该函数把参数Value作为工作字符串，重复后按所要求的长度适当截尾：
Private Function FillString(ByVal Value As String, _
ByValStringLength As Integer)
As String
Dim strWork As String
Dim intLoopCount As Integer
For intLoopCount = 1 To StringLength Step Len(Value)
strWork = strWork & Value
Next
FillString = Left(strWork, StringLength)
End Function
如果参数value为123，参数StringLength（字符串长度）为8，则调用该函数后的返回值为12312312。
如果你的程序需要产生测试数据或者随机数据，那么FillString函数是有些作用的。不过，请注意，对大的字符串，本函数并没有优化。它最好用于字符数少于5000的情况。
上一篇：用运算符Like来比较字符串 下一篇：PropertyBag对象实现数据连续操作
最新相关文章发表评论
评论内容：不能超过250字，需审核后才会公布，请自觉遵守互联网相关政策法规。
阅读排行
随机推荐
实用信息推荐