MansurH قام بنشر أبريل 28, 2022 مشاركة قام بنشر أبريل 28, 2022 السلام عليكم احبایی الکرام جربت عدة الطرق لتحویل الحروف ولكن ما مشي الحال. ارید تحویل حرف {ا} الی {الف} و {ب} الی {با} و هکذا... وشکرا جزیلا لمساعدتکم تحویل الحروف.zip رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر أبريل 28, 2022 مشاركة قام بنشر أبريل 28, 2022 اول شئ اين جدول الاحرف وما هى الاليه التى تريد ان تتحول بها مثل عند كتابة ا "حرف واحد" يكتب الف يعنى حرف حرف او واذا كتبت ا ب ث يكتب الف باء ثاء (مجموعة احرف معا) ممكن تشرح اكثر (ولا تنسي عمل الجدول) رابط هذا التعليق شارك More sharing options...
MansurH قام بنشر أبريل 28, 2022 الكاتب مشاركة قام بنشر أبريل 28, 2022 شكرا للاجابه اولا لا اريد استخراج الحروف من الجدول بل من الـ module ثانیا مثلا الجمله (واحد) تتکون الی (واو الف حا دال) رابط هذا التعليق شارك More sharing options...
Moosak قام بنشر أبريل 28, 2022 مشاركة قام بنشر أبريل 28, 2022 تم الإنجاز أخي سيد 🙂 ... تفضل : الأكواد المستخدمة والدالة التي تحول الحروف : 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 6 رابط هذا التعليق شارك More sharing options...
MansurH قام بنشر أبريل 28, 2022 الكاتب مشاركة قام بنشر أبريل 28, 2022 1 ساعه مضت, عمر ضاحى said: و و شکرا جزیلا لمساعدتک اخی الکریم و قبل الله لکم اعمالکم هل من الممکن استفادته عبر الـ Public Function ؟؟ یعنی فی Module رابط هذا التعليق شارك More sharing options...
Moosak قام بنشر أبريل 28, 2022 مشاركة قام بنشر أبريل 28, 2022 منذ ساعه, سید منصور هاشمی said: هل من الممکن استفادته عبر الـ Public Function ؟؟ نعم أخي سيد طبعا ممكن .. 🙂 1 رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر أبريل 28, 2022 مشاركة قام بنشر أبريل 28, 2022 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 ماشاء الله عليك اخى بارك الله فيك اخي الكريم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان