تحويل الأحرف الأنجليزية من Capital ألى Small في تكست بوكس

بدأه أبو كديس في 5 يوليو 2010 · 3 رد · 4,180 مشاهدة · في Microsoft Visual Basic.NET

مشاركة: واتساب X فيسبوك تيليجرام

#15 يوليو 2010 في 18:33 صاحب الموضوع

السلام عليكم ورحمة الله

قمت بتصميم أداة يقوم المستخدم بملء تكست بوكس باختيار من listbox

المشكلة الأن هي كيفية تحويل الحرف الأول من الكلمات من capial الى small ؟

في المثال المرفق الجملة الناتجة هي:

(He worked as Student, Farmer, Doctor,)

وأنا أريدها:

He worked as student, farmer, doctor

وهل من كود للتنسيق التلقائي للنص الأنجليزي يضع الكابيتال محل الكابيتال والأسمول محل الأسمول؟

جزاكم الله خيراً.

Capital to Small.rar

*أخوكم مبتدئ*

**اللهم علم من علمني**

#26 يوليو 2010 في 11:40

السلام عليكم

            Dim MyText As String = "ABcDEfGHIgKLMONpQRSTuVWxYZ"
            MsgBox(MyText.ToLower)
            MsgBox(MyText.ToUpper)

قال صلى الله عليه وسلم: من قال إذا أصبح: رضيت بالله ربا وبالإسلام دينا وبمحمد نبيا فأنا الزعيم لآخذن بيده حتى أدخله الجنة. الصحيحة/2686

#36 يوليو 2010 في 17:55

تفضل هذا كود يحول كل حرف كابتل في الجملة إلى سمول :

Console.WriteLine("Before : " & word)
For i As Integer = 0 To word.Length - 1
If word(i) = Char.ToUpper(word(i)) Then
word = word.Replace(word(i), Char.ToLower(word(i)))
End If
Next
Console.WriteLine("After : " & word)

Dim word As String = "He Worked as Student, Farmer, Doctor"

تم تعديل هذه المشاركة بواسطة azooz-tamimi في 6 يوليو 2010 في 19:33

#49 يوليو 2010 في 04:14

الفاضل SSCVBNM

الكريم عزوز التميمي

جزاكما الله خيراً وبارك في علمكم.