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 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان