معلومة وطلب : إزالة علامات التشكيل من RichTextBox

أبو حنان كتب:

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

هذه طريقة لإزالة علامات التشكيل من كامل المستند المفتوح في RichTextBox

 Dim i As Integer
            Dim AStr() As String = {"~", "َ", "ً", "ُ", "ٌ", "ٌ", "ِ", "ٍ", "ْ", "ٍ", "ّ", "ٌ"}
            For i = 0 To UBound(AStr)
                Application.DoEvents()

                FrmDoc.RichTextBox.Text = FrmDoc.RichTextBox.Text.Replace(AStr(i), "")
                Application.DoEvents()
            Next

أما عن الطلب فنريد ممكن لدية خلفية عن الموضوع أن يقوم بكتابة كود يقوم بعملية إزالة التشكيل من النص المحدد فقط ( أي النص المظلل فقط )

مع خالص الشكر للجميع

وبالتوفيق

لو سمحت هذا الكود وين احطة و شنو احط بالفورم

أبو حنان كتب:

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

هذه طريقة لإزالة علامات التشكيل من كامل المستند المفتوح في RichTextBox

 Dim i As Integer
            Dim AStr() As String = {"~", "َ", "ً", "ُ", "ٌ", "ٌ", "ِ", "ٍ", "ْ", "ٍ", "ّ", "ٌ"}
            For i = 0 To UBound(AStr)
                Application.DoEvents()

                FrmDoc.RichTextBox.Text = FrmDoc.RichTextBox.Text.Replace(AStr(i), "")
                Application.DoEvents()
            Next

أما عن الطلب فنريد ممكن لدية خلفية عن الموضوع أن يقوم بكتابة كود يقوم بعملية إزالة التشكيل من النص المحدد فقط ( أي النص المظلل فقط )

مع خالص الشكر للجميع

وبالتوفيق

في خطأ بالكود

ليس هناك خطأ في الكود

فقط استبدل FrmDoc.RichTextBox باسم الاداة عندك

اما أين تضع هذا الكود فضعه في أي حدث لبتون مثلا

جرب استعمال الخاصية SelectedText التي ترجع لك النص المضلل :

		' الحصول على النص المضلل
		dim nas as String = richTextBox1.SelectedText
		Dim tachkil() As String = {"~", "َ", "ً", "ُ", "ٌ", "ٌ", "ِ", "ٍ", "ْ", "ٍ", "ّ", "ٌ"}
		For i As Integer = 0 to tachkil.Length-1
			nas = nas.Replace(tachkil(i), "")
		Next
		' استبدال النص المضلل المشكول بالنص بعد إزالة التشكيل
		richTextBox1.SelectedText = nas

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

بارك الله فيك يا أخ محمد

تصور انا فعلا كتب هذا الكود مرات عديدة لكن مع اختلاف بسيط

لكن الحمد لله انه فيه أخوان ( صاحيين ) مثل الأخ محمد رضي

زادك الله بسطة في العلم والرزق

أبو حنان كتب:

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

بارك الله فيك يا أخ محمد

تصور انا فعلا كتب هذا الكود مرات عديدة لكن مع اختلاف بسيط

لكن الحمد لله انه فيه أخوان ( صاحيين ) مثل الأخ محمد رضي <<<<<<<<<<<<<<<<<<<<<<<<<<<<<< شنو قصدك :mad:

زادك الله بسطة في العلم والرزق