كيف يمكن التحكم في شكل الاحرف المدخلة بمربع النص

اخواني الاعزاء قمت بتجربة بعض الافكار ووصلت للحل الحمد لله وهو فرضاً ان لديك TextBox1 وقمت بكتابة النص فية

وتريد ان تقوم بفلترة هذا النص في TextBox2 وكان هذا هو الكود :

	Dim xx As Integer = 0

		For xx = 1 To TextBox1.TextLength

			If vb.Mid(TextBox1.Text, xx, 1) = "أ" Then
				Txt1.Text += "ا"
			Else
				If vb.Mid(TextBox1.Text, xx, 1) = "ة" Then
					Txt1.Text += "ه"
				Else
					If vb.Mid(TextBox1.Text, xx, 1) = "ى" Then
						Txt1.Text += "ي"
					Else
						Txt1.Text += vb.Mid(TextBox1.Text, xx, 1)
					End If
				End If
			End If
		Next

وهذا لافادة الجميع او من يبحثون عن الموضوع

تحياتي لكم جميعاً

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

الطريقة المثلى في هذه الحالة هي ان تعالج الحرف لحظة كتابته يعني عندما يكتب الشخص "أ" تكتب بدلها "ا" و هكذا و هذا تفاديا لاستهلاك الذاكرة عند استعمال ال Loop

طيب ازاي اخلية يقوم بتغيير الحرف اثناء الكتابة

هل يوجد طريقة معينة من غير ما تبطئ عملية الكتابة ؟

استخدم الـ Regular Expression وهناك سلسلة دروس مطولة عملها الاستاذ الشهاب الحارق ، استخدم محرك البحث للحصول عليها .

تحياتي

اعتقد ان افضل طريقة هي في حدث keypress كما يلي

  If e.KeyChar = "أ" Or e.KeyChar = "إ" Or e.KeyChar = "آ" Then

			e.KeyChar = CChar("ا")

		ElseIf e.KeyChar = "ة" Then
			e.KeyChar = CChar("ه")


		End If

كذلك يمكنك استخدام الدالة Replace بدل من عمل loop

	x = Replace(text1.text, "إ", "ا")

واذا كنت تتعامل مع SQL server توجد طرق افضل بكثير من ذلك (ابحث الهمزات)

اخي طارق شكراً علي مشاركتك وعلي توضيح بعض الامور لي

بالنسبة للكود الخاص ب ابدال الحرف اثناء الكتابة يوجد مشكلة في كلمة CChar

الفيجوال 2003 لم يتعرف عليها فهل لابد من تعريف شئ الاول

اعتقد انها Char وليست CChar

للاسف يوجد بها خطأ ايضاً ولكن المشكلة المعترض عليها هي

Property 'KeyChar' is 'ReadOnly'

عذرا ان سببت لكم بعض الارباك فانا جربت هذا الكود في vs2005 وهو يعمل بشكل 100% وبالنسبة CChar فهي تحويل الى حرف وهي اقتراح من VS2005 بعد ان وضعتها

e.Keychar="ا"

فاعطى عليها خطأ وكان الاقتراح باستبدال الحرف ب Cchar .

كذلك لا اعتقد انها للقراءة فقط فلا بد من بديل حتى في vb6 كان يوجد keyascii ويمكن تغييرها .

السلام عليكم

مثل هذه المشاكل أفضل ما يحلُها هو الـ Regex شاهد المثال التالي:

Imports System.Text.RegularExpressions
Imports System.Collections.Specialized

Public Class ArabicWords

	' متغيرات لتحويل همزة الألف إلى ألف مجردة
	' وتحويل الياء إلى ألف مقصورة
	' وتحويل التاء المربوطة إلى هاء مربوطة
	'وظيفة مشتركة للبحث عن الياء لإستبدالها بالألف المقصورة
	'وكذلك البحث عن التاء المربوطة و إستبدالها بالهاء المربوطة
	'و إن كانت التاء المربوطة لا تأتي إلا في أخر الكلمة لكن من باب التحرصِ فقط
	'تم البحث عنها بشرط أن تكون أخر الكلمة  ,,, قد تكون تحصيل حاصل
	'<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
	Public Shared Function RemoveArabicDiacriticalMarks(ByVal FullName As String) As String
		Try
			Dim LstDicRegex As New ListDictionary
			LstDicRegex.Clear()
			LstDicRegex.Add("[(إ|أ|آ)]", "ا")
			LstDicRegex.Add("\B[ي]\b", "ى")
			LstDicRegex.Add("[ة]", "ه")
			LstDicRegex.Add("[ؤ]", "و")
			LstDicRegex.Add("[ئ]\b", "ى")
			Dim RX As New Regex("")
			For Each de As DictionaryEntry In LstDicRegex
				RX = New Regex(de.Key.ToString)
				FullName = RX.Replace(FullName, de.Value.ToString)
			Next
			Return FullName
		Catch ex As Exception
			Throw ex
		End Try
	End Function

	Private Sub btnRemoveDiacriticalMarks_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRemoveDiacriticalMarks.Click
		Try
			Dim VFullName As String
			VFullName = RemoveArabicDiacriticalMarks(Me.txtFullName.Text)
			lblResultFullName.Text = VFullName
		Catch ex As Exception
			MsgBox(ex.Message)
		End Try
	End Sub
End Class

بالتوفيق إن شاء الله.

ArabicDiacriticalMarks.rar

بارك الله فيكم جميعاً وجاري تطبيق الموضوع