امروز داشتم تو فایلها و مقالات ذخیره شده تو کامپیوتر گشت و گذار میکردم که چشمم به یک قطعه کد خیلی خوب و به درد بخور ، از سایت مرحوم شده IranASP.Net خورد.
این کد در مورد تبدیل اعداد انگلیسی به فارسی هست که فقط کافیه متنی که توش عدد داره رو به این تابع بدید که معمولا هم هنگام تایپ حتی اگر زبان فارسی رو انتخاب کرده باشید بازم این اعداد انگلیسی هستند، و خروجی رو با اعداد فارسی بگیرید.
حتما نیازی نیست که ورودی تابع فقط عدد باشه، یک متن کامل هم میتونه باشه ، و اعداد اون فقط به اعداد فارسی تبدیل میشوند.
متن این تابع به صورت زیر هست که عینا از مقاله iranasp.net کپی شده:
Function En2Fr (sStr)
Dim nLen, i, ch, sFrStr
nLen = Len(sStr)
if nLen = 0 OR IsNull(nLen) then
En2Fr = sStr
Exit Function
end if
sFrStr = ""
for i = 1 to nLen
ch = Mid(sStr, i, 1)
if 48 <= Asc(ch) AND Asc(ch) <= 57 then
ch = ChrW(Asc(ch) + 1728)
end if
sFrStr = sFrStr + ch
next
En2Fr = sFrStr
End Function
این تابع رو میتونین تو خود code behind یا در هر کلاسی استفاده کنید مثل این:
label1.text = En2Fr (mysqlreader("article_details"))