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

@#返回标明声调数值的位置

Private Shared Function GetToneSite(ByVal pyStr As String) As Integer

If pyStr.Length = 0 Then Exit Function

Dim i As Integer, j As Integer = 0

@#检查字串中有几个数字

For i = 0 To pyStr.Length - 1

If Char.IsNumber(pyStr.Chars(i)) Then

j += 1

End If

Next

If j = 0 Then @#没有数字,即没有标明声调的数值

Return -1

ElseIf j = 1 Then @#有一个数字,合法

For i = 0 To pyStr.Length - 1

If Char.IsNumber(pyStr.Chars(i)) Then

Return i

End If

Next

Else @#有多个数字,不合法,返回其相反数

Return -j

End If

End Function

@#返回声调是几声

Private Shared Function GetToneValue(ByVal pyStr As String, _

ByVal Site As Integer) As Integer

If pyStr.Length = 0 Then Exit Function

If Site >= 0 Then

Dim value As Char = pyStr.Chars(Site)

Dim num As Integer