حذف فاصله های اضافه در یک متن [B4X]

[Salar82 896]

سلام به همه

بعضی از برنامه های ویرایش متن میان فاصله های زیادیه داخل متن رو پاک میکنن. مثلا متن "برنامه    نویسی" رو به "برنامه نویسی" تبدیل میکنن که این میتونه بسیار کاربردی باشه.

کد زیر دقیقا همین کار رو انجام میده:

Sub RemoveRedundantSpace(TextToClean As String) As String
   Return Regex.Replace("[ ]{2,}", TextToClean, " ")
End Sub

 

***  این کد نیاز به کتابخونه  ای نداره 

***  در B4A و B4J و B4i هم قابل استفاده هست.

 

امیدوارم بدرد بخور باشه.