[baha]

السلام عليكم

لم أستطع تشغيل البرنامج قد يكون خطأ في خطوات التشغيل.

وجدت هذا الكود

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim arr() As String = {"A", "B", "C"}
     Dim len As Integer = arr.Length
       crack(arr, len)
   End Sub


Private Sub generate(ByVal arr() As String, ByVal i As Integer, ByVal s As String, ByVal len As Integer)

 If i = 0 Then 
      TextBox1.Text += s & vbLf

 Exit Sub
        End If

        ' iterate through the array 
        For j As Integer = 0 To len - 1
            ' Create new string with next character 
            ' Call generate again until string has 
            ' reached its len 
            Dim appended As String = s + arr(j)
            generate(arr, i - 1, appended, len)
        Next
    End Sub

  ' function to generate all possible passwords 
    Private Sub crack(ByVal arr As String(), ByVal len As Integer)

        ' call for all required lengths 
        For i As Integer = 1 To len

            generate(arr, i, "", len)
        Next
    End Sub
           

 أرجو أن يكون مفيداً

عيب هذا الكود أنه يتوقف عند اضافة الحروف إلى المصفوفة من الحرف E,

 أيضاً يتوقف الترقيم عند الحرف الأخير من المصفوفة

أي إذا كانت المصفوفة {"Dim Array() As String ={"A","B,"C  

المخرج:
             A
             B
             C
            AA
             .
             . 
             .
           CCC

---

(30-09-19, 07:40 AM)AbdoDabak كتب : عندي نص فيه 9000 سطر و
محتاج كود لتصغير الاحرف الكبيرة في التيكست بصير ولا ما بصير
وكود ثان لازالة الارقام من النص

لتكبير حالة الأحرف

كود :

TextBox1.Text = TextBox1.Text.ToUpper()

لتصغير حالة الأحرف

كود :

TextBox1.Text = TextBox1.Text.ToLower()

كود ازالة الأرقام من مربع نص

كود :

Dim str As String
       For i As Integer = 1 To TextBox1.Text.Length
           If IsNumeric(Mid(TextBox1.Text, i, 1)) = False Then
               str &= Mid(TextBox1.Text, i, 1)
           End If
       Next
       TextBox1.Text = str

تمنياتي لك وللجميع التوفيق