تولید مجموعه کاراکترهای تصادفی

[batman123 73]

سلام به همه

من چه طوری میتونم مثلا 10 کاراکتر تصادفی شامل اعداد و حروف درست کنم؟

مثلا r44ty89rf8

یه چیزی توی این قالب

[DexterFstone 387]

در ۱۴۰۰/۱۲/۲۵ در ۰۱:۱۵، batman۱۲۳ گفته است:

سلام به همه

من چه طوری میتونم مثلا 10 کاراکتر تصادفی شامل اعداد و حروف درست کنم؟

مثلا r44ty89rf8

یه چیزی توی این قالب

سلام این مورد تست کنید

Sub GenerateRandomString(StrLength As Int) As String
    Dim RndString As String
    Dim RndNumber As Int
    Do While RndString.Length < StrLength
        RndNumber = Rnd(48,123) 'Yep, 123, because the last number is "exclusive"
        If (RndNumber >= 48 And RndNumber <= 57) Or (RndNumber >= 65 And RndNumber <= 90) Or (RndNumber >= 97 And RndNumber <= 112) Then
            RndString = RndString & Chr(RndNumber)
        End If
    Loop
    Return RndString
End Sub

 

[batman123 73]

در ۱۴۰۰/۱۲/۲۵ در 09:55، DexterFstone گفته است:

سلام این مورد تست کنید

Sub GenerateRandomString(StrLength As Int) As String
    Dim RndString As String
    Dim RndNumber As Int
    Do While RndString.Length < StrLength
        RndNumber = Rnd(48,123) 'Yep, 123, because the last number is "exclusive"
        If (RndNumber >= 48 And RndNumber <= 57) Or (RndNumber >= 65 And RndNumber <= 90) Or (RndNumber >= 97 And RndNumber <= 112) Then
            RndString = RndString & Chr(RndNumber)
        End If
    Loop
    Return RndString
End Sub

 

سلام.

برادر چه طور میشه حرف هایی که توی این مجموعه تولید میشن، بزرگ باشن.

[DexterFstone 387]

در ۱۴۰۱/۱/۴ در 11:47، batman123 گفته است:

سلام.

برادر چه طور میشه حرف هایی که توی این مجموعه تولید میشن، بزرگ باشن.

محدوده اعداد توی متد Rnd تغییر بدید ببینید نتیجه میده

[batman123 73]

در ۱۴۰۱/۱/۴ در 14:38، DexterFstone گفته است:

محدوده اعداد توی متد Rnd تغییر بدید ببینید نتیجه میده

متوجه نشدم.

میشه مثال بزنید؟

[DexterFstone 387]

در ۱۴۰۱/۱/۴ در ۱۴:۴۷، batman۱۲۳ گفته است:

متوجه نشدم.

میشه مثال بزنید؟

کد زیر را

RndNumber = Rnd(48,126) 'Yep, 123, because the last number is "exclusive"

به کد زیر تغییر بدید

RndNumber = Rnd(33,96) 'Yep, 123, because the last number is "exclusive"

 

[Forutan 28]

در ۱۴۰۱/۱/۴ در ۱۱:۴۷، batman۱۲۳ گفته است:

سلام.

برادر چه طور میشه حرف هایی که توی این مجموعه تولید میشن، بزرگ باشن.

در نهایت میتونید حروف داخل رشته رو به بزرگ تبدیل کنید به این شکل:

Dim a As String 
a = "h4w840ffm2gf9ewn40"
Log(a.ToUpperCase)


'result: H4W840FFM2GF9EWN40