تحویل الحروف

[MansurH]

السلام عليكم احبایی الکرام

جربت عدة الطرق لتحویل الحروف ولكن ما مشي الحال. ارید تحویل حرف {ا} الی {الف}  و {ب} الی {با} و هکذا...

وشکرا جزیلا لمساعدتکم

تحویل الحروف.zip

[عمر ضاحى]

اول شئ اين جدول الاحرف 

وما هى الاليه التى تريد ان تتحول بها

مثل 

عند كتابة ا "حرف واحد"

يكتب   الف 

يعنى حرف حرف 

او     واذا كتبت ا ب ث

يكتب  الف باء ثاء (مجموعة احرف معا)

 

ممكن تشرح اكثر (ولا تنسي عمل الجدول)

[MansurH]

شكرا للاجابه

اولا لا اريد استخراج الحروف من الجدول بل من الـ module

ثانیا مثلا الجمله (واحد) تتکون الی (واو   الف   حا   دال)

[Moosak]

تم الإنجاز أخي سيد 🙂  ... تفضل :

الأكواد المستخدمة والدالة التي تحول الحروف :

Private Sub GoCmd_Click()

Dim x As Integer
Dim y As String
Dim L As String
Dim R As String

If IsNull(Me.FromTXT) Or Len(Me.FromTXT) = 0 Then Exit Sub

For x = 1 To Len(Me.FromTXT)
    L = Mid(Me.FromTXT, x, 1)
    R = Replace(L, L, ARLetters(L))
    y = y & Space(2) & R
Next

Me.ToTXT = y

End Sub

Function ARLetters(Letter As String) As String

Select Case Letter
Case "ا": ARLetters = "ألف"
Case "أ": ARLetters = "ألف"
Case "ء": ARLetters = "همزة"
Case "ى": ARLetters = "ألف مقصورة"
Case "ب": ARLetters = "باء"
Case "ت": ARLetters = "تاء"
Case "ث": ARLetters = "ثاء"
Case "ج": ARLetters = "جيم"
Case "ح": ARLetters = "حاء"
Case "خ": ARLetters = "خاء"
Case "د": ARLetters = "دال"
Case "ذ": ARLetters = "ذال"
Case "ر": ARLetters = "راء"
Case "ز": ARLetters = "زاي"
Case "س": ARLetters = "سين"
Case "ش": ARLetters = "شين"
Case "ص": ARLetters = "صاد"
Case "ض": ARLetters = "ضاد"
Case "ط": ARLetters = "طاء"
Case "ظ": ARLetters = "ظاء"
Case "ع": ARLetters = "عين"
Case "غ": ARLetters = "غين"
Case "ف": ARLetters = "فاء"
Case "ق": ARLetters = "قاف"
Case "ك": ARLetters = "كاف"
Case "ل": ARLetters = "لام"
Case "م": ARLetters = "ميم"
Case "ن": ARLetters = "نون"
Case "ه": ARLetters = "هاء"
Case "هـ": ARLetters = "هاء"
Case "و": ARLetters = "واو"
Case "ي": ARLetters = "ياء"
Case Else: ARLetters = Letter

End Select
End Function

 

تحویل الحروف.zip

[MansurH]

1 ساعه مضت, عمر ضاحى said:

و 

 

و شکرا جزیلا لمساعدتک اخی الکریم و قبل الله لکم اعمالکم 

هل من الممکن استفادته عبر الـ Public Function ؟؟

یعنی فی Module

[Moosak]

منذ ساعه, سید منصور هاشمی said:

هل من الممکن استفادته عبر الـ Public Function ؟؟

نعم أخي سيد طبعا ممكن .. 🙂 

[abouelhassan]

3 ساعات مضت, Moosak said:

تم الإنجاز أخي سيد 🙂  ... تفضل :

الأكواد المستخدمة والدالة التي تحول الحروف :

Private Sub GoCmd_Click()

Dim x As Integer
Dim y As String
Dim L As String
Dim R As String

If IsNull(Me.FromTXT) Or Len(Me.FromTXT) = 0 Then Exit Sub

For x = 1 To Len(Me.FromTXT)
    L = Mid(Me.FromTXT, x, 1)
    R = Replace(L, L, ARLetters(L))
    y = y & Space(2) & R
Next

Me.ToTXT = y

End Sub

Function ARLetters(Letter As String) As String

Select Case Letter
Case "ا": ARLetters = "ألف"
Case "أ": ARLetters = "ألف"
Case "ء": ARLetters = "همزة"
Case "ى": ARLetters = "ألف مقصورة"
Case "ب": ARLetters = "باء"
Case "ت": ARLetters = "تاء"
Case "ث": ARLetters = "ثاء"
Case "ج": ARLetters = "جيم"
Case "ح": ARLetters = "حاء"
Case "خ": ARLetters = "خاء"
Case "د": ARLetters = "دال"
Case "ذ": ARLetters = "ذال"
Case "ر": ARLetters = "راء"
Case "ز": ARLetters = "زاي"
Case "س": ARLetters = "سين"
Case "ش": ARLetters = "شين"
Case "ص": ARLetters = "صاد"
Case "ض": ARLetters = "ضاد"
Case "ط": ARLetters = "طاء"
Case "ظ": ARLetters = "ظاء"
Case "ع": ARLetters = "عين"
Case "غ": ARLetters = "غين"
Case "ف": ARLetters = "فاء"
Case "ق": ARLetters = "قاف"
Case "ك": ARLetters = "كاف"
Case "ل": ARLetters = "لام"
Case "م": ARLetters = "ميم"
Case "ن": ARLetters = "نون"
Case "ه": ARLetters = "هاء"
Case "هـ": ARLetters = "هاء"
Case "و": ARLetters = "واو"
Case "ي": ARLetters = "ياء"
Case Else: ARLetters = Letter

End Select
End Function

 

تحویل الحروف.zip 53.05 kB · 4 downloads

ماشاء الله عليك اخى 

بارك الله فيك اخي الكريم