Converting numbers from eastern arabic digits to western arabic VB.NET

Question

0.00/5 (No votes)

See more:

i used this function to Converting Numbers from Western Arabic Digits "1,2,3..." to Eastern Arabic Digits "١, ٢, ٣...."
how can reverse this code to
Converting Numbers from Eastern Arabic Digits "١, ٢, ٣...." to Western Arabic Digits "1,2,3..."

Public Function Translatear(ByVal sIn As String) As String

       Dim enc As New System.Text.UTF8Encoding
       Dim utf8Decoder As System.Text.Decoder
       utf8Decoder = enc.GetDecoder
       Dim sTranslated = New System.Text.StringBuilder
       Dim cTransChar(1) As Char
       Dim bytes() As Byte = {217, 160}
       ' Start Converting characters into Arabic mode.
       Dim aChars() As Char = sIn.ToCharArray
       For Each c As Char In aChars
           If Char.IsDigit(c) Then
               bytes(1) = 160 + CInt(Char.GetNumericValue(c))
               utf8Decoder.GetChars(bytes, 0, 2, cTransChar, 0)
               sTranslated.Append(cTransChar(0))
           Else
               sTranslated.Append(c)
           End If
       Next
       Return sTranslated.ToString
   End Function

What I have tried:

Converting Numbers from Eastern Arabic Digits "١, ٢, ٣...." to Western Arabic Digits "1,2,3..."
in the same modality

Posted 10-Apr-22 14:16pm

Saeeed Sayed

Updated 10-Apr-22 22:17pm

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Richard MacCutchan · Answer 1 · 2022-04-10T22:17:00

You need a translate table which matches the Eastern numbers to Western, and vice versa. One should containing all the Eastern Arabic digits in order from zero, and the other containing the Western ones. You can then do a lookup in either table to find its corresponding number in the alternate coding.
C# sample as my VB skills are not very good.

C#

string eastern = "٠١٢٣٤٥٦٧٨٩";
string western = "0123456789";
string result = "";
foreach (char c in number)
{
    int index = eastern.IndexOf(c);
    c = western[index];
    result += c;
}