vb.net – 将阿拉伯数字转换为英语

发布时间：2020-12-17 07:18:29 所属栏目：百科来源：网络整理

导读：我正在寻找一种方法将阿拉伯数字字符串“0123456789”转换为英语数字字符串“0123456789” Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click dim Anum as string ="??????????" dim Enum as s

我正在寻找一种方法将阿拉伯数字字符串“0123456789”转换为英语
数字字符串“0123456789”

Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click
       dim Anum as string ="??????????"
       dim Enum as string =get_egnlishNum(Anum)
End Sub

private function get_egnlishNum(byval _Anum as string) as string

''   converting code

end function

解决方法

您正在寻找char类型的GetNumericValue方法,该方法将任何数字Unicode字符转换为double.例如：

double two = char.GetNumericValue('?');
Console.WriteLine(two); // prints 2

对于你的例子：

static string ArabicToWestern(string input)
{
    StringBuilder western = new StringBuilder();
    foreach(char num in input)
    {
        western.Append(char.GetNumericValue(num));
    }
    return western.ToString();
}

根据您的需求进行修改

VB.NET：

Private Shared Function ArabicToWestern(ByVal input As String) As String
    Dim western As StringBuilder = New StringBuilder
    For Each num As Char In input
        western.Append(Char.GetNumericValue(num))
    Next
    Return western.ToString
End Function

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!