VBScript - 生成带有 x 行随机文本的文件

Question

生成指定行数的文件需要什么代码。

即。有一些变量叫做 num_lines = 8743 然后为每一行生成一个长度在 200 到 300 个字符之间的随机字符串。

将此保存到文件中。

要随机化的代码开始：

For x=200 To 300
    Randomize
    vChar = Int(89*Rnd) + 33
    Rndz = Rndz & Chr(vChar)
  Next

Answer 1

您可以使用第一个函数来创建随机字符串：

Function RandomString( ByVal strLen )
    Dim str
    Const LETTERS = "abcdefghijklmnopqrstuvwxyz0123456789"
    Randomize
    For i = 1 to strLen
        str = str & Mid( LETTERS, Int(strLen*Rnd+1) )
    Next
    RandomString = str
End Function

Source

然后感谢Scripting.FileSystemObject将其写入文件：

Const ForAppending = 8
Const max = 300
Const min = 200
Dim i As integer, lLines As Long
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
    ("c:\scripts\service_status.txt", ForAppending, True)
Randomize
For i = 1 To num_lines
   lLines = Int((max-min+1)*Rnd+min) 
   objTextFile.WriteLine(RandomString(lLines))
Next
objTextFile.Close

Source

Answer 2

这是答案中RandomString 函数的修复：

Function RandomString( ByVal strLen )
    Dim str, min, max

    Const LETTERS = "abcdefghijklmnopqrstuvwxyz0123456789"
    min = 1
    max = Len(LETTERS)

    Randomize
    For i = 1 to strLen
        str = str & Mid( LETTERS, Int((max-min+1)*Rnd+min), 1 )
    Next
    RandomString = str
End Function

另一个函数被破坏并且错误地从盐字符串中获取随机字符。此函数将返回一个包含字母和/或数字的随机字符串。