vb6字符编码怎么取VB6一行代码实现填充一千万字符串

导读VB6一行代码实现填充一千万字符串StrRepeat函数说明：按指定次数填充某个字符串到目标字符串。引用PublicDeclareSubStrRepeatL....

VB6一行代码实现填充一千万字符串

StrRepeat

函数说明：按指定次数填充某个字符串到目标字符串。

引用

Public Declare Sub StrRepeat Lib "VB6Plus.dll" (ByRef Dest As String, ByRef IN_STR As String, ByVal Repeat As Long)

参数说明

Dest:要填充的字符串变量，如"OutStr"IN_STR:填充内容，如"ABCDE"Repeat：填充次数

示例

StrRepeat OutStr, "ABCDE", 100

运行结果

填充一千万字符串

StartTime = timeGetTime

StrRepeat StrOut, "ABCDE", 10000000

EndTime = timeGetTime

MsgBox "StrRepeat填充1000万字符串共用时：" & EndTime - StartTime & "毫秒" & vbCrLf & VBA.Left(StrOut, 100) & ".."

运行结果