复制字符串中的字符,第1张

复制字符串中的字符,第2张

FillString函数有两个参数,一个是用于重复填充的字符,另一个是填充字符串的长度。然后返回填充的字符串,重复次数由填充的字符数和填充字符串的长度决定。

这个函数构建一个循环,循环的次数取决于所需的字符串长度。循环步长由参数值的长度决定(即用于重复填充的子字符串)。该函数将参数值作为工作字符串,并在重复后根据所需长度将其截断:

私有函数FillString(字符串形式的ByVal值,_

ByValStringLength为整数)

作为字符串

将结构标注为字符串

Dim intLoopCount为整数

对于intLoopCount = 1到StringLength步长Len(值)

strWork = strWork & Value

然后

FillString = Left(strWork,StringLength)

结束功能

如果参数值为123,参数StringLength为8,则调用此函数后返回值为12312312。

如果你的程序需要生成测试数据或者随机数据,那么FillString函数就很有用。但是,请注意,这个函数不是针对大字符串优化的。当字符数少于5000时使用。

位律师回复
DABAN RP主题是一个优秀的主题,极致后台体验,无插件,集成会员系统
白度搜_经验知识百科全书 » 复制字符串中的字符

0条评论

发表评论

提供最优质的资源集合

立即查看 了解详情