VBScript - Erzeugen Sie eine Datei mit x Zeilen einen beliebigen text

Welchen code brauche ich für die Generierung einer Datei mit einer angegebenen Anzahl von Zeilen.

ie. haben einige variable mit dem Namen " num_lines = 8743
dann für jede Zeile eine zufällige Zeichenfolge generiert, die zwischen 200 und 300 Zeichen lang sein.

Speichern Sie diese in einer Datei.

start-code, um randomise:

For x=200 To 300
    Randomize
    vChar = Int(89*Rnd) + 33
    Rndz = Rndz & Chr(vChar)
  Next
InformationsquelleAutor toop | 2011-09-14
  1. 3

    Können Sie eine erste Funktion zu erstellen, die eine zufällige Zeichenfolge:

    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

    Quelle

    Und dann Schreibe es in eine Datei Dank 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

    Quelle

    • Randomize darf nicht in einer Schleife aufgerufen, die generiert zufällige zahlen, weil es initialisiert den generator.
    • korrigiert mein code, danke. Verstehe ich das falsch, wie die Funktion gearbeitet
    • Ich mag, wie Const LETTERS obfuscatingly zahlen enthält.
    • Was ist das RandomNumber Funktion?
    • Corbett: verdammt! das war ein Tippfehler (um ehrlich zu sein, konnte ich nicht testen, meine code - my bad). Ich korrigiere meinen code etwas zu korrigieren
    • Sie brauchen nicht '& vbCrLf', denn es ist bereits WriteLine so setzt die Linie zwischen
    • ein Tippfehler... oder einfach nur blind zu kopieren-einfügen von der Quelle-website, die Sie verweisen! Vielleicht haben Sie eine benutzerdefinierte Funktion, die aufgerufen wird RandomNumber.
    • Corbett: das ist, was ich als eine typo :). Um völlig ehrlich, habe ich den link zu der Quelle der kopieren-einfügen-code und Sie haben nicht die RandomNumber Funktion :(. Nun, am Ende, es scheint, wie es funktioniert, Dank eurer Hilfe, unter anderem.
    • danke, ich werde es richtig für weitere Nutzer

    InformationsquelleAutor JMax
  2. 1

    Hier ist ein Update der RandomString Funktion aus der Antwort:

    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

    Die andere Funktion ist gebrochen und wurde fälschlicherweise immer eine zufällige Figur aus dem salt-string. Diese Funktion gibt eine zufällige Zeichenfolge mit Buchstaben und/oder zahlen.

    • Randomize darf nicht in einer Schleife aufgerufen, die generiert zufällige zahlen, weil es initialisiert den generator
    InformationsquelleAutor ub3rst4r
Schreibe einen Kommentar