تبدیل اعداد

[amir54 138]

سلام دوستان من خیلی دنبال همچین چیزی گشتم ولی نبود خودم دست به کار شدم یه کد براش نوشتم  امیدوارم بدرد شما هم بخوره

private Sub Class_Globals
	Private numb="۱=1#۲=2#۳=3#۴=4#۵=5#۶=6#۷=7#۸=8#۹=9#۰=0#" As String
End Sub

Sub En(t As String)
	
	Dim  n,tch,str() As String
	
	str=Regex.Split("#",numb)
	
	For i=0 To t.Length-1
		
		For x = 0 To str.Length -1
			
			Dim str1() As String
			
			str1 = Regex.Split("=",str(x))
			n = t.SubString2(i,i+1)
			
			If n = str1(0) Or n = str1(1) Then
					
				n = n.Replace(str1(0),str1(1))
				tch = tch & n
				
				Exit
				
			End If
		Next
		
	Next
	
	Return tch
End Sub