تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تغيير الحروف من سمول إلى كبتل في textbox
#1
[SIZE=4]بسم الله الرحمان الرحيم
الصلاة و السلام علي رسول الله صلى الله عليه و سلم

السلام عليكم

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

algeria

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

جزاكم الله كل خير
و بارك الله فيك و رحم والديكم
و السلام عليكم و رحمة الله تعالى و بركاته
[/SIZE]
الرد }}}
تم الشكر بواسطة:
#2
[COLOR="#008000"]تفضل أخي
هذه طريقة التحويل
يبقى الية الحساب الحروف
إضغط هنا
[/COLOR]
الرد }}}
تم الشكر بواسطة:
#3
بارك الله فيك أخي الفاضل
و لكن المشكلة ليست في كيف اجعل الحرف كابتل و لكن كيف اصل و بشكل أوتوماتيكي لجميع الإحتمالات للسمول و الكبتل يعني لا اريد التكبير لمرة واحدة أو لكلمة واحدة .
أنا اريد أن اجلب كل الإحتمالات للكبتل و السمول لكلمة معينة مثلا كلمة 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
أريد جميع هذه الإحتمالات و لأي كلمة أريدها و مهما كان طول الجملة أحفظها مثلا في ملف تكست
ارجو المساعدة و اي توضيح انا هنا
الرد }}}
تم الشكر بواسطة:
#4
السلام عليكم و رحمة الله و بركاتة
اخي الكريم جرب هذا

كود :
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
لا تنسوني من صالح دعائكم
السلام عليكم ورحمة الله وبركاته
الرد }}}
تم الشكر بواسطة:
#5
السلام عليكم ورحمة الله وبركاته
أخي الكريم طريقة عمل هذا النوع من الوظائف ينتج عنه عدد هائل من الكلمات مع كل حرف تضيفه
وهذا الكود بإذن الله سيعطيك إياها كاملة

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

PHP كود :
If TextBox1.Text.Length 1 Then Exit Sub
        Dim StringLength 
As Integer TextBox1.Text.Length
        Dim PossibleString 
As Integer TextBox1.Text.Length
        Dim ResultString
(PossibleString) As String
        
For StringLength 1 To 0 Step -1
            Dim AdditionFraction 
As Double IIf(StringLength 10^ ((2) - StringLength))
            
Dim Letter As String TextBox1.Text.Substring(H1).ToUpper
            
For 0 To PossibleString 1
                
If (AdditionFractionMod 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(ResultStringvbNewLine))
    
End Sub 
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم