VB.NET中如何将阿拉伯数字转换成英文表达？

本文共计252个文字，预计阅读时间需要2分钟。

我正在寻找一种方法，将阿拉伯数字字符串0123456789转换为英语+数字字符串。在Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim Anum As StringEnd Sub

我正在寻找一种方法将阿拉伯数字字符串“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