View Full Version : استرینگ رندم
voodoo
دوشنبه 09 آذر 1383, 23:31 عصر
اقا من یک کد میخوام که بتونه مثلا یک استرینگ رو به طور رندم بهم برگردونه (هم حروف بزرگ هم کوچیک) بعد شرط هم بتونم براش بزارم.
ممنون :sad2:
bashir_nashi
سه شنبه 10 آذر 1383, 09:22 صبح
ممکنه بیشتر توضیح بدی.
من متوجه نشدم می خواهی یک رشته رو ایجاد کنی یا اون رو به یه رشته دیگه تبدیل کنی .
linux
سه شنبه 10 آذر 1383, 10:27 صبح
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = createString(10)
End Sub
Function createString(ByVal len As Integer) As String
Dim i As Integer
Dim strCode As Integer
Dim str As String
For i = 0 To len
strCode = CInt(Int((122 - 65 + 1) * Rnd() + 65))
str &= Chr(strCode)
Next
Return str
End Function
یه همچین چیزی می خواهی؟
voodoo
سه شنبه 10 آذر 1383, 20:48 عصر
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.