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

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

ion "由拼音到拼音"

Public Shared Function GetPyToPy(ByVal PYStr As String, _

Optional ByVal IsComp As Boolean = False) As String

If PYStr.Length = 0 Then Exit Function

mIsCompelled = IsComp

Dim toneSite As Integer

Dim toneValue As Integer

Dim toneChar As Char

toneSite = GetToneSite(PYStr)

If toneSite = -1 Then

Return PYStr

ElseIf toneSite < -1 Then

Exit Function

End If

toneValue = GetToneValue(PYStr, toneSite)

If toneValue = -1 Then Exit Function

If mIsCompelled Then

toneChar = GetToneChar(PYStr, toneSite - 1)

Else

toneChar = GetToneChar(PYStr)

End If

If Not isPyChar(toneChar) Then Exit Function

Return Conversion(PYStr, toneSite, toneValue, toneChar)

End Function