محمد احمد لطفى قام بنشر أكتوبر 4, 2019 مشاركة قام بنشر أكتوبر 4, 2019 السلام عليكم ورحمة الله وبركاته ازالة المسافة اول الجملة عن طريق وحدة نمطية مثل الموجود فى المرفق و لكنه يغير حرف ي الى ى فى اخر الكلمة وجزاكم الله خيراً Update -12.mdb رابط هذا التعليق شارك More sharing options...
AlwaZeeR قام بنشر أكتوبر 4, 2019 مشاركة قام بنشر أكتوبر 4, 2019 وعليكم السلام ورحمة الله وبركاته استخدم Trim(Test) 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة essam rabea قام بنشر أكتوبر 4, 2019 أفضل إجابة مشاركة قام بنشر أكتوبر 4, 2019 (معدل) أخى محمد احمد لطفى وزيادة فى الفائدة جرب إختراع أخى العزيز ابا جودى فى هذه الوحدة النمطية التى لا تكتفى بإزالة المسافات أول وآخر الجملة ولكن أيضا المسافات الزائدة بين الجمل Update -12.mdb تم تعديل أكتوبر 4, 2019 بواسطه essam rabea 2 2 رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر أكتوبر 4, 2019 الكاتب مشاركة قام بنشر أكتوبر 4, 2019 شكراُ أستاذى @AlwaZeeR شكرا أستاذى @essam rabea هذا هو المطلوب شكراً أستاذى @ابا جودى جزاكم الله كل خير رابط هذا التعليق شارك More sharing options...
rey360 قام بنشر أكتوبر 5, 2019 مشاركة قام بنشر أكتوبر 5, 2019 السلام عليكم هل يمكن شرح هذه الوحدة النمطية ان أمكن كما أنها للاستاذ ابا جودى وشكرا لكم 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 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.