بانک کد

تبدیل اعداد انگلیسی به فارسی

با استفاده از کد زیر میتوانید اعداد انگلیسی موجود در یک متن را فارسی کنید . ابتدا کافیست کد زیر را به اکتیویتی مورد نظرتان اضافه کنید :

Sub PersianNumbers(Text As String) As String
 Dim s As String = Text
 s = s.Replace("0","۰")
 s = s.Replace("1","۱")
 s = s.Replace("2","۲")
 s = s.Replace("3","۳")
 s = s.Replace("4","۴")
 s = s.Replace("5","۵")
 s = s.Replace("6","۶")
 s = s.Replace("7","۷")
 s = s.Replace("8","۸")
 s = s.Replace("9","۹")
 Return s
End Sub

و مانند کد زیر میتوانید از آن استفاده کنید :

Label1.Text = PersianNumbers("متن آزمایشی 123456")

موفق باشید !

 

شما هم به کانال تلگرامی سایت ما بپیوندید !
همین حالا کلیک کنید !

درباره نویسنده

حامد باقری

نظر بدهید