將印地語數字轉換爲vb.net中的單詞

我正在嘗試將數字轉換爲印地語發票的單詞。像 - 50001到पांचहजारएक將印地語數字轉換爲vb.net中的單詞

Public Shared Function changeToWords(ByVal numb As [String]) As [String] 
    Dim val As [String] = "", wholeNo As [String] = numb, points As [String] = "", andStr As [String] = "", pointStr As [String] = "" 
    Dim endStr As [String] = "" 
    Try 
     Dim decimalPlace As Integer = numb.IndexOf(".") 
     If decimalPlace > 0 Then 
      wholeNo = numb.Substring(0, decimalPlace) 
      points = numb.Substring(decimalPlace + 1) 
      If Convert.ToInt32(points) > 0 Then 
       andStr = "दशाम्लौ" 
       ' just to separate whole numbers from points 
       pointStr = translateCents(points) 
      End If 
     End If 
     val = [String].Format("{0} {1}{2} {3}", translateWholeNumber(wholeNo).Trim(), andStr, pointStr, endStr) 
    Catch 


    End Try 
    Return val 
End Function 
Private Shared Function translateWholeNumber(ByVal number As [String]) As [String] 
    Dim word As String = "" 
    Try 
     Dim beginsZero As Boolean = False 
     'tests for 0XX 
     Dim isDone As Boolean = False 
     'test if already translated 
     Dim dblAmt As Double = (Convert.ToDouble(number)) 
     'if ((dblAmt > 0) && number.StartsWith("0")) 
     If dblAmt > 0 Then 
      'test for zero or digit zero in a nuemric 
      beginsZero = number.StartsWith("0") 

      Dim numDigits As Integer = number.Length 
      Dim pos As Integer = 0 
      'store digit grouping 
      Dim place As [String] = "" 
      'digit grouping name:hundres,thousand,etc... 

      Select Case numDigits 
       Case 1 
        'ones' range 
        word = ones(number) 
        isDone = True 
        Exit Select 
       Case 2 
        'tens' range 
        word = tens(number) 
        isDone = True 
        Exit Select 
       Case 3 
        'hundreds' range 
        pos = (numDigits Mod 3) + 1 
        place = " सौ " 
        Exit Select 
        'thousands' range 
       Case 4, 5 
        pos = (numDigits Mod 4) + 1 
        place = " हजार " 
        Exit Select 

       Case 6, 7 
        pos = (numDigits Mod 6) + 1 
        place = " लाख " 
        Exit Select 
        'millions' range 
       Case 8, 9, 10 
        pos = (numDigits Mod 8) + 1 
        place = " करोड़ " 
        Exit Select 

       Case Else 
        'add extra case options for anything above Billion... 
        isDone = True 
        Exit Select 
      End Select 
      If Not isDone Then 
       'if transalation is not done, continue...(Recursion comes in now!!) 
       word = translateWholeNumber(number.Substring(0, pos)) + place + translateWholeNumber(number.Substring(pos)) 
       'check for trailing zeros 
       If beginsZero Then 
        word = " " & word.Trim() 
       End If 
      End If 
      'ignore digit grouping names 
      If word.Trim().Equals(place.Trim()) Then 
       word = "" 
      End If 
     End If 
    Catch 


    End Try 
    Return word.Trim() 
End Function 
Private Shared Function tens(ByVal digit As [String]) As [String] 
    Dim digt As Integer = Convert.ToInt32(digit) 
    Dim name As [String] = Nothing 
    Select Case digt 
     Case 10 
      name = "दस" 
      Exit Select 
     Case 11 
      name = "ग्यारह" 
      Exit Select 
     Case 12 
      name = "बारह" 
      Exit Select 
     Case 13 
      name = "तेरह" 
      Exit Select 
     Case 14 
      name = "चौदह" 
      Exit Select 
     Case 15 
      name = "पंद्रह" 
      Exit Select 
     Case 16 
      name = "सोलह" 
      Exit Select 
     Case 17 
      name = "सतरह" 
      Exit Select 
     Case 18 
      name = "अट्ठारह" 
      Exit Select 
     Case 19 
      name = "उन्नीस" 
      Exit Select 
     Case 20 
      name = "बीस" 
      Exit Select 
     Case 21 
      name = "इक्कीस" 
      Exit Select 
     Case 22 
      name = "बाईस" 
      Exit Select 
     Case 23 
      name = "तेईस" 
      Exit Select 
     Case 24 
      name = "चौबीस" 
      Exit Select 
     Case 25 
      name = "पच्चीस" 
      Exit Select 
     Case 26 
      name = "छब्बीस" 
      Exit Select 
     Case 27 
      name = "सत्ताईस" 
      Exit Select 

     Case 28 
      name = "अट्ठाईस" 
      Exit Select 

     Case 29 
      name = "उनतीस" 
      Exit Select 
     Case 30 
      name = "तीस" 
      Exit Select 
     Case 31 
      name = "इकतीस" 
      Exit Select 
     Case 32 
      name = "बत्तीस" 
      Exit Select 
     Case 33 
      name = "तैंतीस" 
      Exit Select 
     Case 34 
      name = "चौंतीस" 
      Exit Select 
     Case 35 
      name = "पैंतीस" 
      Exit Select 
     Case 36 
      name = "छ्त्तीस" 
      Exit Select 
     Case 37 
      name = "सैंतीस" 
      Exit Select 
     Case 38 
      name = "अड़तीस" 
      Exit Select 
     Case 39 
      name = "उनतालीस" 
      Exit Select 
     Case 40 
      name = "चालीस" 
      Exit Select 
     Case 41 
      name = "इकतालीस" 
      Exit Select 
     Case 42 
      name = "बयालीस" 
      Exit Select 
     Case 43 
      name = "तैंतालीस" 
      Exit Select 
     Case 44 
      name = "चौंतालीस" 
      Exit Select 
     Case 45 
      name = "पैंतालीस" 
      Exit Select 
     Case 46 
      name = "छियालीस" 
      Exit Select 
     Case 47 
      name = "सैंतालीस" 
      Exit Select 
     Case 48 
      name = "अड़तालीस" 
      Exit Select 
     Case 49 
      name = "उनचास" 
      Exit Select 
     Case 50 
      name = "पचास" 
      Exit Select 
     Case 51 
      name = "इक्याबन" 
      Exit Select 
     Case 52 
      name = "बावन" 
      Exit Select 
     Case 53 
      name = "तिरेपन" 
      Exit Select 
     Case 54 
      name = "चौबन" 
      Exit Select 
     Case 55 
      name = "पचपन" 
      Exit Select 
     Case 56 
      name = "छप्पन" 
      Exit Select 
     Case 57 
      name = "सत्तावन" 
      Exit Select 
     Case 58 
      name = "अट्ठावन" 
      Exit Select 
     Case 59 
      name = "उनसठ" 
      Exit Select 
     Case 60 
      name = "साठ" 
      Exit Select 
     Case 61 
      name = "इकसठ" 
      Exit Select 
     Case 62 
      name = "बासठ" 
      Exit Select 
     Case 63 
      name = "तिरसठ" 
      Exit Select 
     Case 64 
      name = "चौंसठ" 
      Exit Select 
     Case 65 
      name = "पैंसठ" 
      Exit Select 
     Case 66 
      name = "छियासठ" 
      Exit Select 
     Case 67 
      name = "सड़सठ" 
      Exit Select 
     Case 68 
      name = "अड़सठ" 
      Exit Select 
     Case 69 
      name = "उनहत्तर" 
      Exit Select 
     Case 70 
      name = "सत्तर" 
      Exit Select 
     Case 71 
      name = "इकहत्तर" 
      Exit Select 
     Case 72 
      name = "बहत्तर" 
      Exit Select 
     Case 73 
      name = "तिहत्तर" 
      Exit Select 
     Case 74 
      name = "चौहत्तर" 
      Exit Select 
     Case 75 
      name = "पचहत्तर" 
      Exit Select 
     Case 76 
      name = "छिहत्तर" 
      Exit Select 
     Case 77 
      name = "सतहत्तर" 
      Exit Select 
     Case 78 
      name = "अठहत्तर" 
      Exit Select 
     Case 79 
      name = "उनासी" 
      Exit Select 
     Case 80 
      name = "अस्सी" 
      Exit Select 
     Case 81 
      name = "इक्यासी" 
      Exit Select 
     Case 82 
      name = "बयासी" 
      Exit Select 
     Case 83 
      name = "तिरासी" 
      Exit Select 
     Case 84 
      name = "चौरासी" 
      Exit Select 
     Case 85 
      name = "पचासी" 
      Exit Select 
     Case 86 
      name = "छियासी" 
      Exit Select 
     Case 87 
      name = "सतासी" 
      Exit Select 
     Case 88 
      name = "अठासी" 
      Exit Select 
     Case 89 
      name = "नवासी" 
      Exit Select 
     Case 90 
      name = "नब्बे" 
      Exit Select 
     Case 91 
      name = "इक्यानवे" 
      Exit Select 
     Case 92 
      name = "बानवे" 
      Exit Select 
     Case 93 
      name = "तिरानवे" 
      Exit Select 
     Case 94 
      name = "चौरानवे" 
      Exit Select 
     Case 95 
      name = "पचानवे" 
      Exit Select 
     Case 96 
      name = "छियानवे" 
      Exit Select 
     Case 97 
      name = "सत्तानवे" 
      Exit Select 
     Case 98 
      name = "अट्ठानवे" 
      Exit Select 
     Case 99 
      name = "निन्यानवे" 
      Exit Select 
     Case Else 
      If digt > 0 Then 
       name = (tens(digit.Substring(0, 1) & "0") & " ") + ones(digit.Substring(1)) 
      End If 
      Exit Select 
    End Select 
    Return name 
End Function 
Private Shared Function ones(ByVal digit As [String]) As [String] 
    Dim digt As Integer = Convert.ToInt32(digit) 
    Dim name As [String] = "" 
    Select Case digt 
     Case 1 
      name = "एक" 
      Exit Select 
     Case 2 
      name = "दो" 
      Exit Select 
     Case 3 
      name = "तीन" 
      Exit Select 
     Case 4 
      name = "चार" 
      Exit Select 
     Case 5 
      name = "पांच" 
      Exit Select 
     Case 6 
      name = "छः" 
      Exit Select 
     Case 7 
      name = "सात" 
      Exit Select 
     Case 8 
      name = "आठ" 
      Exit Select 
     Case 9 
      name = "नौ" 
      Exit Select 
    End Select 
    Return name 
End Function 
Private Shared Function translateCents(ByVal cents As [String]) As [String] 
    Dim cts As [String] = "", digit As [String] = "", engOne As [String] = "" 
    For i As Integer = 0 To cents.Length - 1 
     digit = cents(i).ToString() 
     If digit.Equals("0") Then 
      engOne = "शून्य" 
     Else 
      engOne = ones(digit) 
     End If 
     cts += " " & engOne 
    Next 
    Return cts 
End Function

我試圖上述COE。它正在運行，但當的數字來到50001時，它會輸出數字。我想寫這篇文章作爲答案。

來源

2015-05-04 ravi sharma

對於我們這些誰不讀印地文，你能解釋一下之間पचासहजारसौएक和पचासहजारएक的差異（翻譯）？ –

five hundred one =已輸入 five hundred hundred one =確定 –

這種修改似乎是爲我工作：

'if transalation is not done, continue...(Recursion comes in now!!) 
If (number.Substring(0, 1) = "0") Then 
    word = translateWholeNumber(number.Substring(pos)) 
Else 
    word = translateWholeNumber(number.Substring(0, pos)) + place + translateWholeNumber(number.Substring(pos)) 
End If

編輯：做的，如果發送到changeToWords的原字符串任何零點開始，這打破輸出。要糾正這種情況，你可以修剪前導零，字符串處理之前：

wholeNo As [String] = numb.TrimStart("0"c)

來源

2015-05-04 11:19:57

將印地語數字轉換爲vb.net中的單詞

回答

相關問題