[حسن الجلب]

السلام عليكم أنا عايز كود توليد ارقام وحروف غشراييه مكونه من ارقام وحروف وعلامات خاصه لكن شرط يكون الثلاثه مع بعض كيف ؟او كيفيه التحقق من أن النص داخل  التسكت بوكس مكون من خليط من الأرقام والحروف والعلامات الخاصة ؟

[سعود]

PHP كود :

    Private Function getsymbol() As String
        Dim all As String = ""
        For i As Integer = 0 To 255
            Dim c As Char = Chr(i)
            If Char.IsPunctuation(c) Then
                all &= c
            End If
        Next
        Return all
    End Function



    
Private Function gen(ByVal count As Integer)
        Dim a As String = "abcdefghujklmnopqrstuvwxyz"
        Dim s As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
        Dim d As String = "0123456789"
        Dim f As String = getsymbol()
        Dim small As String = ""
        Dim capital As String = ""
        Dim number As String = ""
        Dim sy As String = ""
        For i As Integer = 0 To count
beg0:

            Dim r As Integer = Int(Rnd() * a.Length)
            Dim t As String = a(r)
            If small.Contains(t) = False Then
                small &= t
            Else
                GoTo beg0
            End If
        Next

        For i As Integer = 0 To count
beg1:

            Dim r As Integer = Int(Rnd() * s.Length)
            Dim t As String = s(r)
            If capital.Contains(t) = False Then
                capital &= t
            Else
                GoTo beg1
            End If
        Next

        For i As Integer = 0 To count
beg2:

            Dim r As Integer = Int(Rnd() * d.Length)
            Dim t As String = d(r)
            If number.Contains(t) = False Then
                number &= t
            Else
                GoTo beg2
            End If
        Next
        For i As Integer = 0 To count
beg3:

            Dim r As Integer = Int(Rnd() * f.Length)
            Dim t As String = f(r)
            If sy.Contains(t) = False Then
                sy &= t
            Else
                GoTo beg3
            End If
        Next


        Dim all As String = small & capital & number & sy
        Return all
    End Function 


دالتين الاولى لانشاء الرموز والاخرى للباقي من حروف وارقام

[حسن الجلب]

ولكن إذا كانت العلامات الخاصه في سلسله نصيه يعني أنا حاطط مجموعه معينه من العلامات الخاصه داخل متغير نصي وعايز المستخدم ميقدرش يستخدم اي نوع من العلامات الا ال أنا حاططها في المتغير النصب ازاي اعملها؟حقيقه أنا اخترعت كود من نفسي وكويس جدآ ولكن المشكله أنه طويل ويجعل التكست ثقيل

[Taha Okla]

(13-08-22, 04:08 AM)حسن الجلب كتب : ولكن إذا كانت العلامات الخاصه في سلسله نصيه يعني أنا حاطط مجموعه معينه من العلامات الخاصه داخل متغير نصي وعايز المستخدم ميقدرش يستخدم اي نوع من العلامات الا ال أنا حاططها في المتغير النصب ازاي اعملها؟حقيقه أنا اخترعت كود من نفسي وكويس جدآ ولكن المشكله أنه طويل ويجعل التكست ثقيل

إن كان كود الاخ المبدع سعود هو المطلوب والمشكلة في العلامات الخاصة فقط عدل المتغير F
ليصبح كما تريد مثلا :

كود :

Dim f As String = "<>!@#$%^&*()_+"  

والباقي يبقى كما هو ...