ازالة المسافة اول الجملة عن طريق وحدة نمطية

[محمد احمد لطفى]

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

ازالة  المسافة اول الجملة عن طريق وحدة نمطية 
مثل الموجود فى المرفق و لكنه يغير حرف ي الى ى فى اخر الكلمة 
وجزاكم الله خيراً

Update -12.mdb

[AlwaZeeR]

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

استخدم

Trim(Test)

 

[essam rabea]

أخى محمد احمد لطفى

وزيادة فى الفائدة جرب إختراع أخى العزيز ابا جودى فى هذه الوحدة النمطية التى لا تكتفى بإزالة المسافات أول وآخر الجملة ولكن أيضا المسافات الزائدة بين الجمل

Update -12.mdb

تم تعديل أكتوبر 4, 2019 بواسطه essam rabea

[محمد احمد لطفى]

شكراُ أستاذى @AlwaZeeR
شكرا أستاذى @essam rabea  هذا هو المطلوب 
شكراً أستاذى @ابا جودى 

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

[rey360]

السلام عليكم هل يمكن شرح هذه الوحدة النمطية ان أمكن كما أنها للاستاذ ابا جودى  وشكرا لكم 

Function NoSpaces(InName As String) As String
    Dim NewName As String, ThePrevStr As String, TheStr As String
    Dim I As Integer
        InName = Trim(InName)
            For I = 1 To Len(InName)
                TheStr = Mid(InName, I, 1)
                If TheStr = " " And ThePrevStr = " " Then TheStr = ""
                If TheStr <> "" Then ThePrevStr = TheStr
                NewName = NewName & TheStr
            Next
                NoSpaces = NewName
End Function