0

2つの小文字/大文字/数字の組み合わせを順番に生成するにはどうすればよいですか?

Sub Main()

    Dim Looper As Boolean = True

    While Looper = True
        'String = "aa", "Aa", "aA", "AA"
        'WebClient.DownloadString("link.com/" & String")
    End While

End Sub

このように、文字列の組み合わせを生成します

4

2 に答える 2

1

文字列をループして、必要に応じて大文字と小文字を操作するだけです。

Sub Main()
    Dim results as List(of String) = new List(of String)()

    For Each c as Char in "ABCDEFGHIJKLMNOPQRSTUVWXYZ".ToCharArray()
        results.Add(c.ToString().ToLower() & c.ToString().ToLower())
        results.Add(c.ToString() & c.ToString().ToLower())
        results.Add(c.ToString().ToLower() & c.ToString())
        results.Add(c.ToString() & c.ToString())
    Next
End Sub
于 2013-05-13T04:58:16.153 に答える
0

これにより、数字と大文字/小文字を含む 2 つのランダムな文字の組み合わせが生成されます。

Public Function GetRandomString(ByVal iLength As Integer) As String
    Dim sResult As String = ""
    Dim rdm As New Random()

    For i As Integer = 1 To iLength
        sResult &= ChrW(rdm.Next(32, 126))
    Next

    Return sResult
End Function

または、有効な文字を定義する一般的なランダム文字列を実行できます。

Public Function GenerateRandomString(ByRef iLength As Integer) As String
    Dim rdm As New Random()
    Dim allowChrs() As Char = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLOMNOPQRSTUVWXYZ0123456789".ToCharArray()
    Dim sResult As String = ""

    For i As Integer = 0 To iLength - 1
        sResult += allowChrs(rdm.Next(0, allowChrs.Length))
    Next

    Return sResult
End Function
于 2013-05-13T07:15:40.580 に答える