قم بإزالة أحرف الإرجاع المتتالية والمسافات في بداية السلسلة ونهايتها. قم بإزالة أحرف الإرجاع المتتالية والمسافات في بداية السلسلة ونهايتها.
وظيفة تقليمVBcrlf (شارع)
TrimVBcrlf=rtrimVBcrlf(ltrimVBcrlf(str))
وظيفة النهاية
'قم بإزالة أحرف الإرجاع والمسافات المتتالية في بداية السلسلة
وظيفةltrimVBcrlf(شارع)
نقاط البيع الخافتة، isBlankChar
نقاط البيع=1
isBlankChar=true
بينما هوBlankChar
إذا mid(str,pos,1)= إذن
نقاط البيع=نقاط البيع+1
elseif mid(str,pos,2)=VBcrlf إذن
نقاط البيع=نقاط البيع+2
آخر
isBlankChar=false
نهاية إذا
com.wind
ltrimVBcrlf=right(str,len(str)-pos+1)
وظيفة النهاية
'قم بإزالة أحرف الإرجاع والمسافات المتتالية في نهاية السلسلة
وظيفةrtrimVBcrlf(شارع)
نقاط البيع الخافتة، isBlankChar
نقاط البيع = لين (شارع)
isBlankChar=true
بينما isBlankChar وpos>=2
إذا mid(str,pos,1)= إذن
نقاط البيع = نقاط البيع-1
elseif mid(str,pos-1,2)=VBcrlf إذن
نقاط البيع = نقاط البيع-2
آخر
isBlankChar=false
نهاية إذا
com.wind
rtrimVBcrlf=rtrim(left(str,pos))
وظيفة النهاية