[magginito2022]

[SIZE=4]بسم الله الرحمان الرحيم
الصلاة و السلام علي رسول الله صلى الله عليه و سلم

السلام عليكم

الفكرة بسيطة لكن حيرتني
مثلا عندي هذه الكلمة:

algeria

موجودة في تتكست بوكس مثلا
أريد أن أجعل الحروف في كل مرة حرف كبتل مما يعطيني جميع إحتمالات الكبتل و السمول
مثلا
Algeria
aLgeria
alGeria
algEria
و هكذا إلى أن نصل إلى
ALGERIA
يعني كل الحروف كبتل

جزاكم الله كل خير
و بارك الله فيك و رحم والديكم
و السلام عليكم و رحمة الله تعالى و بركاته[/SIZE]

[مبرمج بلا حدود]

[COLOR="#008000"]تفضل أخي
هذه طريقة التحويل
يبقى الية الحساب الحروف
إضغط هنا[/COLOR]

[magginito2022]

بارك الله فيك أخي الفاضل
و لكن المشكلة ليست في كيف اجعل الحرف كابتل و لكن كيف اصل و بشكل أوتوماتيكي لجميع الإحتمالات للسمول و الكبتل يعني لا اريد التكبير لمرة واحدة أو لكلمة واحدة .
أنا اريد أن اجلب كل الإحتمالات للكبتل و السمول لكلمة معينة مثلا كلمة islam
islaM
islAm
islAM
isLam
isLaM
isLAm
isLAM
iSlam
iSlaM
iSlAm
iSlAM
iSLam
iSLaM
iSLAm
iSLAM
Islam
IslaM
IslAm
IslAM
IsLam
IsLaM
IsLAm
IsLAM
ISlam
ISlaM
ISlAm
ISlAM
ISLam
ISLaM
ISLAm
ISLAM
أريد جميع هذه الإحتمالات و لأي كلمة أريدها و مهما كان طول الجملة أحفظها مثلا في ملف تكست
ارجو المساعدة و اي توضيح انا هنا

[ahmed salam]

السلام عليكم و رحمة الله و بركاتة
اخي الكريم جرب هذا

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim txtlong As Integer = TextBox1.Text.Length
        Dim result As String = ""
        TextBox1.Text = TextBox1.Text.ToLower
        For i = 0 To txtlong
            On Error Resume Next
            result = result & TextBox1.Text.Substring(0, i).ToUpper & TextBox1.Text.Substring(i, 1) & TextBox1.Text.Substring(i + 1, txtlong - i - 1) & Environment.NewLine
            result = result & TextBox1.Text.Substring(0, i) & TextBox1.Text.Substring(i, 1).ToUpper & TextBox1.Text.Substring(i + 1, txtlong - i - 1) & Environment.NewLine
            result = result & TextBox1.Text.Substring(0, i) & TextBox1.Text.Substring(i, 1) & TextBox1.Text.Substring(i + 1, txtlong - i - 1).ToUpper & Environment.NewLine
            result = result & TextBox1.Text.Substring(0, i) & TextBox1.Text.Substring(i, 1).ToUpper & TextBox1.Text.Substring(i + 1, txtlong - i - 1).ToUpper & Environment.NewLine
        Next
        
        MessageBox.Show(result)
    End Sub

لا تنسوني من صالح دعائكم
السلام عليكم ورحمة الله وبركاته

[sooriaty03]

السلام عليكم ورحمة الله وبركاته
أخي الكريم طريقة عمل هذا النوع من الوظائف ينتج عنه عدد هائل من الكلمات مع كل حرف تضيفه
وهذا الكود بإذن الله سيعطيك إياها كاملة

وأي استفسار أنا جاهز

PHP كود :

If TextBox1.Text.Length < 1 Then Exit Sub
        Dim StringLength As Integer = TextBox1.Text.Length
        Dim PossibleString As Integer = 2 ^ TextBox1.Text.Length
        Dim ResultString(PossibleString) As String
        For H = StringLength - 1 To 0 Step -1
            Dim AdditionFraction As Double = IIf(H = StringLength - 1, 0, 2 ^ ((H + 2) - StringLength))
            Dim Letter As String = TextBox1.Text.Substring(H, 1).ToUpper
            For I = 0 To PossibleString - 1
                If (I * AdditionFraction) Mod 2 = 0 Then
                    If Letter = Letter.ToUpper Then
                        Letter = Letter.ToLower()
                    Else
                        Letter = Letter.ToUpper()
                    End If
                End If
                ResultString(I) = Letter & ResultString(I)
            Next
        Next
        MsgBox(Strings.Join(ResultString, vbNewLine))
    End Sub