本文整理汇总了VB.NET中System.Char.GetNumericValue方法的典型用法代码示例。如果您正苦于以下问题：VB.NET Char.GetNumericValue方法的具体用法？VB.NET Char.GetNumericValue怎么用？VB.NET Char.GetNumericValue使用的例子？那么, 这里精选的方法代码示例或许可以为您提供帮助。您也可以进一步了解该方法所在类System.Char的用法示例。
在下文中一共展示了Char.GetNumericValue方法的3个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: GetNumericValueSample
Module GetNumericValueSample
Sub Main()
Dim str As String
str = "input: 1"
Console.WriteLine(Char.GetNumericValue("8"c)) ' Output: "8"
Console.WriteLine(Char.GetNumericValue(str, 7)) ' Output: "1"
End Sub
End Module示例2:
' Define a UTF32 value for each character in the
' Aegean numbering system.
For utf32 As Integer = &h10107 To &h10133
Dim surrogate As String = Char.ConvertFromUtf32(utf32)
For ctr As Integer = 0 To surrogate.Length - 1
Console.Write("U+{0:X4} at position {1}: {2} ",
Convert.ToUInt16(surrogate(ctr)), ctr,
Char.GetNumericValue(surrogate, ctr))
Next
Console.WriteLine()
Next输出：
U+D800 at position 0: 1 U+DD07 at position 1: -1 U+D800 at position 0: 2 U+DD08 at position 1: -1 U+D800 at position 0: 3 U+DD09 at position 1: -1 U+D800 at position 0: 4 U+DD0A at position 1: -1 U+D800 at position 0: 5 U+DD0B at position 1: -1 U+D800 at position 0: 6 U+DD0C at position 1: -1 U+D800 at position 0: 7 U+DD0D at position 1: -1 U+D800 at position 0: 8 U+DD0E at position 1: -1 U+D800 at position 0: 9 U+DD0F at position 1: -1 U+D800 at position 0: 10 U+DD10 at position 1: -1 U+D800 at position 0: 20 U+DD11 at position 1: -1 U+D800 at position 0: 30 U+DD12 at position 1: -1 U+D800 at position 0: 40 U+DD13 at position 1: -1 U+D800 at position 0: 50 U+DD14 at position 1: -1 U+D800 at position 0: 60 U+DD15 at position 1: -1 U+D800 at position 0: 70 U+DD16 at position 1: -1 U+D800 at position 0: 80 U+DD17 at position 1: -1 U+D800 at position 0: 90 U+DD18 at position 1: -1 U+D800 at position 0: 100 U+DD19 at position 1: -1 U+D800 at position 0: 200 U+DD1A at position 1: -1 U+D800 at position 0: 300 U+DD1B at position 1: -1 U+D800 at position 0: 400 U+DD1C at position 1: -1 U+D800 at position 0: 500 U+DD1D at position 1: -1 U+D800 at position 0: 600 U+DD1E at position 1: -1 U+D800 at position 0: 700 U+DD1F at position 1: -1 U+D800 at position 0: 800 U+DD20 at position 1: -1 U+D800 at position 0: 900 U+DD21 at position 1: -1 U+D800 at position 0: 1000 U+DD22 at position 1: -1 U+D800 at position 0: 2000 U+DD23 at position 1: -1 U+D800 at position 0: 3000 U+DD24 at position 1: -1 U+D800 at position 0: 4000 U+DD25 at position 1: -1 U+D800 at position 0: 5000 U+DD26 at position 1: -1 U+D800 at position 0: 6000 U+DD27 at position 1: -1 U+D800 at position 0: 7000 U+DD28 at position 1: -1 U+D800 at position 0: 8000 U+DD29 at position 1: -1 U+D800 at position 0: 9000 U+DD2A at position 1: -1 U+D800 at position 0: 10000 U+DD2B at position 1: -1 U+D800 at position 0: 20000 U+DD2C at position 1: -1 U+D800 at position 0: 30000 U+DD2D at position 1: -1 U+D800 at position 0: 40000 U+DD2E at position 1: -1 U+D800 at position 0: 50000 U+DD2F at position 1: -1 U+D800 at position 0: 60000 U+DD30 at position 1: -1 U+D800 at position 0: 70000 U+DD31 at position 1: -1 U+D800 at position 0: 80000 U+DD32 at position 1: -1 U+D800 at position 0: 90000 U+DD33 at position 1: -1
示例3:
Dim utf32 As Integer = &h10107 ' AEGEAN NUMBER ONE
Dim surrogate As String = Char.ConvertFromUtf32(utf32)
For Each ch In surrogate
Console.WriteLine("U+{0:X4}: {1} ", Convert.ToUInt16(ch),
Char.GetNumericValue(ch))
Next输出：
U+D800: -1 U+DD07: -1