ازالة علامات التشكيل من النص

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

يمكن إزالة التشكيل من النص وذلك باستخدام الخطوات التالية:

افتح مشروع جديد ثم ضع على الـForm عدد ثلاثة Text Boxes و زر واحد

Text1 , Text2 , Text3 , Command1

ثم انسخ النص المشكل المطلوب فى text1

ثم ضع الكود التالى فى command1_click Event

Dim i As Integer

i = i + 1

For i = 1 To Len(Text1)

Text2 = Text2 & "[" & Asc(Mid(Text1, i, 1)) & "]"

Select Case Asc(Mid(Text1, i, 1))

Case 243, 245, 246, 248, 250

Case Else

Text3 = Text3 & Chr(Asc(Mid(Text1, i, 1)))

End Select

Next

والنتيجة كالتالى:

النص المشكل موجود فى text1

والكود الخاص بكل حرف أو تشكيل موجود فى text2

والنص الغير مشكل فى text3

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

وأعتذر عن ضيق الوقت وعدم تمكنى من معرفة كل أكواد التشكيل.

ووفقك الله فى عملك

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

شكرا أخي العزيز أبوحجاج على الكود

ولكنه بطيء اذا كان النص كبير

حصلت على هذا الكود وجربته على ملفات نصية كبيرة اذا كان بلامكان القاء نظرة على الكود واعطائي رأيك فيه

جزاك الله خيرا

______________________

المطلوب عدد 2 تكست بوكس "Text2" "Text1" وزر كومند واحد "Command1"

وتحت "Command1_Click" الكود التالي

Dim i As Integer

Dim Fstr, Tmp As String

Fstr = Text1.Text

For i = 1 To Len(Fstr)

If Asc(Mid(Fstr, i, 1)) < 240 Then

Tmp = Tmp & Mid(Fstr, i, 1)

End If

Next i

Text2.Text = ""

Text2.SelText = Tmp