VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 复制字符串中的字符
发表评论(0)作者:BUILDER.COM, 平台:VB6.0+Win98, 阅读:9648, 日期:2003-08-29
    当产生测试数据或者随机数据时,常常需要用一个子字符串重复填充到一个字符串中,VB6以及.NET中的FillString函数就是用来完成这个任务的。


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的情况。