طلب فصل الحروف فقط اثناء كتابتها بالتكست بمسافه

تفضل اخي .. أتمنى ان يكون الكود هو المطلوب

الطريقة :

استورد مجال الأسماء هذا

Imports System.Text.RegularExpressions

ضع هذا الكود في حدث KeyPress الخاص بالــ Textbox

Dim T As MatchCollection        T = 
Regex.Matches(e.KeyChar, "[ء-ي]")        
If T.Count <> 0 
Then            
TextBox1.Text = Regex.Replace(TextBox1.Text, "([ء-ي])", "$1 
")            
TextBox1.SelectionStart = 
TextBox1.TextLength        End If

ملاحظة : لااعرف طريقة ادارج الكود بالمحرر ... لكن وضعت الكود البرمجي بمستند نصي بالمرفقاتفصل الحروف.txt

شكراً اخي مالك على سرعة الرد والتجاوب

ولكن الكود الذي قمة بكتابته يقوم بتكرار المسافه في كل مره تكتب حرف عند كتابة اكثر من حرف تجد ان المسافه التي حدثة بين الاحرف متكرر وكذالك عند كتابة الارقام لا يفصل بينها وبين الاحرف بل تجد ان الرقم ملاصق للحرف والمفترض ان يفصل بين الرقم والحرف ولكن لايفصل الارقام عن بعض وكذالك حرف الهاء لم يحدث فيه تغيير المفترض ان يكون بهذه الطريقه عند كتابته هـ ,وتم ارفاق الفورم لتعديل عليه وكذالك صوره للفورم لتوضيح المطلوب وشكراً

WindowsApplication8.rar

الرجاء المساعده انا محتاج الكود ضروري وجزاكم الله خير

m22sf كتب:

الرجاء المساعده انا محتاج الكود ضروري وجزاكم الله خير

مازلت بنتظار المساعده

ما شاء الله كود KARIMSOFT يعمل جيداً ويفصل بين الحروف العربية ولا يفصل بين الأرقام

تمت ملاحظة مشكلة صغيرة مثلا اذا كتبت الجملة التالية في الـ Textbox :  أ ب ج 13245 وأردت استبدال حرف الباء بحرف الدال مثلا وعند الضغط علي حرف الدال ينتقل المؤشر إلي نهاية الجملة ويكتب حرف الدال ويتبقي حرف الباء في مكانه .

الكود التالي هو كود الأخ KARIMSOFT مع إضافة التعديلات المطلوبة وخصوصا إضافة المد لحرف الهاء :

 Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If TextBox1.SelectionLength > 0 Then
            TextBox1.Text = TextBox1.Text.Replace(TextBox1.SelectedText, e.KeyChar) ' استبدال الحرف المحدد بالحرف الجديد
            e.Handled = True ' إذا لم نضع هذه سيكتب الحرف مرتين
        Else
            Dim T As MatchCollection = Regex.Matches(e.KeyChar, "[ء-ي]")
            If T.Count <> 0 Then
                e.Handled = True
                Dim NewRplc As String = ""
                If Asc(e.KeyChar) = 229 Then '  إذا كان الآكسي للحرف المضغوط هو حرف الهاء يضاف له حرف المد
                    NewRplc = "$1ـ "
                Else
                    NewRplc = "$1 " ' وإلا يترك كما هو
                End If
                TextBox1.Text = TextBox1.Text & Regex.Replace(e.KeyChar, "([ء-ي])", NewRplc)
                TextBox1.SelectionStart = TextBox1.TextLength
            End If
        End If
    End Sub

والله أعلم

****

***

**

*

اشكرا اخيkslawy اكرمك الله

ما اعجبني في الرد فكرة نبدء من حيث انتها الاخرون شكرا

لم اجرب الكود ولكن شكله اكثر دقه اكرمك الله

جزاكم الله خير اخواني على المساعده والكود شبه اكتمل وعليه ملاحظات بسيطه جداً كتالي

عند تضليل الحرف لاستبداله واستخدام زر المسح لمسح الحرف يتم وضع علامه او نقطه دائريه الشكل او اذا تم تضليل ما بداخل التكست بالكامل ومحاولة مسح تظهر المشكلة نفسها ولكن عند استخدام زر delete لاتظر المشكله ولكن عند تضليل التكست بالكامل والكتابه مره اخرى اثناء التضليل لا يضع مسافه بعد اول حرف وشكراً

قد يفيد هذا الكود

    Private Sub TextBox1_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp
        TextBox1.Text = Regex.Replace(DirectCast(sender, System.Windows.Forms.TextBox).Text.Replace(" ", "").Replace("ـ", ""), "([ء-ي])", "$1 ").Replace("ه", "هـ")
        TextBox1.SelectionStart = TextBox1.TextLength
    End Sub

ما شاء الله هذا الكود اختصر الكود السابق في سطر واحد

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

أسهل طريقة لفصل الحروف هي إستخدام الدالة ToCharArray

وهذا مثال لإستخدام الدلة

        Dim df As Array
        Dim s As String = "Hello"
        s.ToCharArray()
        For i As Integer = 0 To s.Length - 1
            MsgBox(s(i))
        Next

لكن المشكلة في هذا الكود والكود الخاص بكم :D هو أنه لا يتعامل بشكل جيد مع الحروف المُشكلة ، هل من أفكار للفصل بين الحروف إذا كان أحد أو كل الحروف مشكلة

شكرا

ضع كل رموز التشكيل داخل القوس هذا [ء-ي]

ليس لدي خبرة كافية ب RegularExpressions أرجو مثال

جرب هذا مع الشدة والسكون

[ء-ي ّ ]ْْْْ

KARIMSOFT كتب:

جرب هذا مع الشدة والسكون

[ء-ي ّ ]ْْْْ

للأسف لا يعمل