موضوع يحتاج مبدعين لحل استبدال الحرف العربي بالانجليزي مع التنسيق

[r3dx]

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

 

 

موضوعي مشروح في المرفق بالكامل وفقكم الله



Car plate.accdb

تم تعديل ديسمبر 3, 2022 بواسطه r3dx
تعديل المرفق

[r3dx]

 

 

 

 

 

 

اتمنى الشرح واضح

[TQTHAMI]

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

جرب المرفق

12.rar

[أبوبسمله]

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

احسنت اخى @TQTHAMI جزاك الله خيرا

مشاركه معك نفس الحل بس بفنكشن واستدعاء

بالتوفيق

 

Car plate_1.accdb

[أبوبسمله]

اتفضل حل اخر بتحويل الحقول الى كمبو

بالتوفيق

Car plate_2.accdb

[AbuuAhmed]

إذا الموضوع يخص أرقام لوحات السيارات بالسعودية ، فهذا كود من أحد برامجي القديمة.
 

Function GetPlateNo(ByVal EngNo As String) As String
   Dim E, A
   E = Array("A", "B", "D", "E", "G", "H", "J", "K", "L", "N", "R", "S", "T", "U", "V", "X", "Z")
   A = Array("ا", "ب", "د", "ع", "ق", "هـ", "ي", "ك", "ل", "ن", "ر", "س", "ط", "و", "ي", "ص", "م")
   Dim L As Integer
   Dim S As Byte
   Dim ArbNo As String
   Dim LftNo As String
  
   If Len(EngNo) = 8 Then
     LftNo = Left(EngNo, 4)
     EngNo = Right(EngNo, 3)
   End If
  
   If Len(EngNo) <> 3 Then
     GetPlateNo = EngNo
     Exit Function
   End If
  
   For L = 3 To 1 Step -1
      For S = 1 To 17
         If Mid(EngNo, L, 1) = E(S - 1) Then
            ArbNo = ArbNo & " " & A(S - 1)
            Exit For
         End If
      Next S
    Next L
  
   GetPlateNo = Trim(LftNo & " " & ArbNo)
End Function

 

[r3dx]

ياسلام على المبدعين 

 

للأسف لا يوجد اختيار للكل في أفضل إجابة  لأنكم جميعا تستحقون

 

ولكن لكم مني اجمل الدعاء في ظهر الغيب 

 

تحية وتقدير