我将此方法移植到VB.NET上了,请看源码(二)

@#转换

Private Shared Function Conversion(ByVal pyStr As String, _

ByVal toneSite As Integer, _

ByVal toneValue As Integer, _

ByVal toneChar As Char) As String

If toneValue >= 1 And toneValue <= 4 Then

Select Case toneChar

Case "a"

pyStr = pyStr.Replace(toneChar, a(toneValue).Chars(0))

Case "o"

pyStr = pyStr.Replace(toneChar, o(toneValue).Chars(0))

Case "e"

pyStr = pyStr.Replace(toneChar, e(toneValue).Chars(0))

Case "i"

pyStr = pyStr.Replace(toneChar, i(toneValue).Chars(0))

Case "u"

pyStr = pyStr.Replace(toneChar, u(toneValue).Chars(0))

Case "v"

pyStr = pyStr.Replace(toneChar, v(toneValue).Chars(0))

End Select

pyStr = pyStr.Replace(toneValue.ToString, "")