vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Blitzschnelles Erstellen von grafischen Diagrammen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Zufallsstring wird nur mit nachfolgender Msgbox erzeugt ? 
Autor: manuelhasi
Datum: 25.05.21 20:34

Hallo zusammen,

mit folgender Funktion erzeuge ich einen Zufallsstring:

 Public Enum RandomTextType
        LowerCaseLetters = 1
        UpperCaseLetters = 2
        LowerCaseLettersMixedNumbers = 3
        UpperCaseLettersMixedNumbers = 4
        MixedAll = 5
    End Enum
 ''' <summary>
    '''   Erzeugen von Zufallsstring
    ''' </summary>
    ''' <param name="theLen">die Länge des Strings</param>
    ''' <param name="art">die Art der Zusammensetzung des Strings</param>
    Public Function CreateRandomString(theLen As Short, art As RandomTextType) _
      As String
        Const lowerChars = "abcdefghijklmnopqrstuvwxyzäöüß"
        Const upperChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZÄÖÜ"
        Const numericChars = "0123456789"
        Const specChars = "!§$%&/()=?{[]}+*~#'-_.:,;<>"
 
        Dim rs As String = ""
        Dim ast As String = "", le, ix As Short
        Dim rnd As New Random()
 
        ' Zusammensetzung gemäß vorgegebener Art
        Select Case art
            Case RandomTextType.LowerCaseLetters
                ast = lowerChars
            Case RandomTextType.UpperCaseLetters
                ast = upperChars
            Case RandomTextType.LowerCaseLettersMixedNumbers
                ast = lowerChars + numericChars
            Case RandomTextType.UpperCaseLettersMixedNumbers
                ast = upperChars + numericChars
            Case RandomTextType.MixedAll
                ast = lowerChars + upperChars + numericChars + specChars
        End Select
 
        le = ast.Length - 1
        For i As Short = 1 To theLen
            ix = rnd.Next(0, le)
            rs += ast.Substring(ix, 1)
        Next
 
        ' Rückgabe des Strings
        Return rs
    End Function
Dieser soll jetzt als icalendar formatiert werden

Dim file As System.IO.StreamWriter
        file = My.Computer.FileSystem.OpenTextFileWriter("D:\pPA - praktische" & _
          "Pflegeausbildung\pPA\pPA\Kalender-Export.ics", False)
    file.WriteLine("BEGIN:VTIMEZONE")
        file.WriteLine("TZID:Europe/Berlin")
        file.WriteLine("X-LIC-Location:Europe/Berlin")
        file.WriteLine("BEGIN:DAYLIGHT")
        file.WriteLine("TZOFFSETFROM:+0100")
        file.WriteLine("TZOFFSETTO:+0200")
        file.WriteLine("TZNAME:CEST")
        file.WriteLine("DTSTART:19700329T020000")
        file.WriteLine("RRULE:FREQ=YEARLY;BYDAY=-1SU;BYMONTH=3")
        file.WriteLine("End:DAYLIGHT")
        file.WriteLine("BEGIN:STANDARD")
        file.WriteLine("TZOFFSETFROM:+0200")
        file.WriteLine("TZOFFSETTO:+0100")
        file.WriteLine("TZNAME:CET")
        file.WriteLine("DTSTART:19701025T030000")
        file.WriteLine("RRULE:FREQ=YEARLY;BYDAY=-1SU;BYMONTH=10")
        file.WriteLine("End:STANDARD")
        file.WriteLine("End:VTIMEZONE")
    For x As Integer = 0 To 20
              Dim Zufallszahl As String = CreateRandomString(100, _
                RandomTextType.MixedAll)
file.WriteLine("UID:" & Zufallszahl)
next
Warum wird die Funktion nur ausgeführt, wenn ich im For/Next-Teil eine MsgBox einbaue?


 For x As Integer = 0 To 20
              Dim Zufallszahl As String = CreateRandomString(100, _
                RandomTextType.MixedAll)
MsgBox(Zufallszahl)
file.WriteLine("UID:" & Zufallszahl)
next
Lieben Gruß
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Zufallsstring wird nur mit nachfolgender Msgbox erzeugt ?530manuelhasi25.05.21 20:34
Re: Zufallsstring wird nur mit nachfolgender Msgbox erzeugt ...225Manfred X26.05.21 08:31
Re: Zufallsstring wird nur mit nachfolgender Msgbox erzeugt ...225manuelhasi26.05.21 10:24

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel