رفتن به مطلب

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


Salar82

ارسال های توصیه شده

سلام به همه

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

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

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

 

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

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

 

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

:53::53::53::53:

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...