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

Источник

И затем записать ее в файл благодаря Сценариям.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

Источник

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

Другая функция не работает и неправильно получала случайный символ из строки соли. Эта функция вернет случайную строку, содержащую буквы и / или цифры.