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

[ahmandir 11]

سلام دوستان . روزتون بخیر باشه . توی یکی از برنامه هام کاربرها با کد ملی ثبت نام می کنند . خوب من بعد از ثبت نام توی سرور چک می کنم کد ملی درست هست یا نه . اما یک مشکل اصلی و بزرگ دارم و اون این هست که کاربر اگه صفحه کلید رو روی فارسی بزاره و ثبت نام کنه همه چی به هم میریزه . کد ملی با زبان فارسی و زبان انگلیسی با هم فرق می کنن .

 

چجوری اعداد رو به اعداد انگلیسی تبدیل کنم و یا چجوری تشخیص بدم که زبان اعداد فارسی هست یا انگلیسی . اگه حروف بود میشد چک کرد اما اعداد هستن

 

ممنون میشم راهنماییم کنین

[پژمان نیکروان 6,055]

سلام

بااین تابع میتونید اعداد فارسی رو به انگلیسی تبدیل کنید:

Sub fa2en(a As String) As String
Dim fa As String="۰۱۲۳۴۵۶۷۸۹"
For la=0 To 9
a=a.Replace(fa.SubString2(la,la+1),la)
Next
Return a
End Sub

مثلا:

edittext1.text=fa2en(edittext1.text)

 

[ahmandir 11]

در ۱ ساعت قبل، پژمان نیکروان گفته است :

سلام

بااین تابع میتونید اعداد فارسی رو به انگلیسی تبدیل کنید:

Sub fa2en(a As String) As String
Dim fa As String="۰۱۲۳۴۵۶۷۸۹"
For la=0 To 9
a=a.Replace(fa.SubString2(la,la+1),la)
Next
Return a
End Sub

مثلا:

edittext1.text=fa2en(edittext1.text)

 

مرسی بخاطر راهنماییتون

 

من هم یک راه پیدا کردم البته طرف سرور php باید انجام بشه

 

	    function fa_digits($text){
        $persian_digits = array('۰','۱','۲','۳','۴','۵','۶','۷','۸','۹');
        $english_digits = array('0','1','2','3','4','5','6','7','8','9');
        $text = str_replace($persian_digits, $english_digits, $text);
        return $text;
    }

$meli=fa_digits($meli);