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

[amirsafari 116]

Sub converts(s As String) As String

Dim ends As Int

ends=s.Length

Dim res As String

For i=0 To ends-1

Dim n As String

n=s.SubString2(i,i+1)

If n="٠" Then

n="0"

Else If n="١" Then

n="1"

Else If n="٢" Then

n="2"

Else If n="٣" Then

n="3"

Else If n="٤" Then

n="4"

Else If n="٥" Then

n="5"

Else If n="٦" Then

n="6"

Else If n="٧" Then

n="7"

Else If n="٨" Then

n="8"

Else If n="٩" Then

n="9"

End If

res=res&n

Next

Return res

End Sub

[Kazem Forghani 2,927]

سلام ،

دوست عزیز نیازی به این همه دستور پیچیده نیست. با چند دستور Replace هم می شه این کار رو انجام داد.

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

در ضمن بهتر بود تاپیک رو در بخش تکه کد ها بزنید.