arashdanger
Member
سلام
من یه برنامه کوچولو میخوام که وقتی توی فرمها عدد وارد کردیم قبل از ارسال به دیتابیس یا هرجای دیگه توی متن یه جستجو بکنه و اعدادی رو که بنا به مشکل صفحه کلید فارسی،انگلیسی وارد شدن رو با اعداد فارسی جایگزین کنه. چون خودم اطلاعات کاملی در مورد unicode ندارم سعی کردم یه کد php واسش پیدا کنم ولی موفق نشدم فقط تونستم یه کد asp از سایت iranasp پیدا کنم که چون با سینتکسش زیاد آشنایی ندارم نتونستم به php تبدیلش کنم
حالا اگر یکی از دوستان که هر دوتا زبان رو بلدن زحمت اینکار رو بکشن واقعا شرمندمون میکنن
(اگر یه همچین برنامه ای داشته باشیم میتونیم حتی اعدادی رو که قبلا در دیتابیس به صورت انگلیسی
وارد شدن به فارسی تبدیل کرد)
اینم آدرسش:http://www.iranasp.net/Articles/ShowArticle.aspx?articleid=68
من یه برنامه کوچولو میخوام که وقتی توی فرمها عدد وارد کردیم قبل از ارسال به دیتابیس یا هرجای دیگه توی متن یه جستجو بکنه و اعدادی رو که بنا به مشکل صفحه کلید فارسی،انگلیسی وارد شدن رو با اعداد فارسی جایگزین کنه. چون خودم اطلاعات کاملی در مورد unicode ندارم سعی کردم یه کد php واسش پیدا کنم ولی موفق نشدم فقط تونستم یه کد asp از سایت iranasp پیدا کنم که چون با سینتکسش زیاد آشنایی ندارم نتونستم به php تبدیلش کنم
حالا اگر یکی از دوستان که هر دوتا زبان رو بلدن زحمت اینکار رو بکشن واقعا شرمندمون میکنن
(اگر یه همچین برنامه ای داشته باشیم میتونیم حتی اعدادی رو که قبلا در دیتابیس به صورت انگلیسی
وارد شدن به فارسی تبدیل کرد)
کد:
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
اینم آدرسش:http://www.iranasp.net/Articles/ShowArticle.aspx?articleid=68