本文整理汇总了VB.NET中System.UInt64.TryParse方法的典型用法代码示例。如果您正苦于以下问题：VB.NET UInt64.TryParse方法的具体用法？VB.NET UInt64.TryParse怎么用？VB.NET UInt64.TryParse使用的例子？那么恭喜您, 这里精选的方法代码示例或许可以为您提供帮助。
在下文中一共展示了UInt64.TryParse方法的2个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: numericStrings
Dim numericStrings() As String = {"1293.8", "+1671.7", "28347.", _
" 33113684 ", "(0)", "-0", "+1293617", _
"18-", "119870", "31,024", " 3127094 ", _
"0070000" }
Dim number As ULong
For Each numericString As String In numericStrings
If UInt64.TryParse(numericString, number) Then
Console.WriteLine("Converted '{0}' to {1}.", numericString, number)
Else
Console.WriteLine("Cannot convert '{0}' to a UInt64.", numericString)
End If
Next输出：
Cannot convert '1293.8' to a UInt64. Cannot convert '+1671.7' to a UInt64. Cannot convert '28347.' to a UInt64. Converted ' 33113684 ' to 33113684. Cannot convert '(0)' to a UInt64. Converted '-0' to 0. Converted '+1293617' to 1293617. Cannot convert '18-' to a UInt64. Converted '119870' to 119870. Cannot convert '31,024' to a UInt64. Converted ' 3127094 ' to 3127094. Converted '0070000' to 70000.
示例2: Example
' 导入命名空间
Imports System.Globalization
Module Example
Public Sub Main()
Dim numericString As String
Dim styles As NumberStyles
numericString = "2106034"
styles = NumberStyles.Integer
CallTryParse(numericString, styles)
numericString = "-10603"
styles = NumberStyles.None
CallTryParse(numericString, styles)
numericString = "29103674.00"
styles = NumberStyles.Integer Or NumberStyles.AllowDecimalPoint
CallTryParse(numericString, styles)
numericString = "10345.72"
styles = NumberStyles.Integer Or NumberStyles.AllowDecimalPoint
CallTryParse(numericString, styles)
numericString = "41792210E-01"
styles = NumberStyles.Integer Or NumberStyles.AllowExponent
CallTryParse(numericString, styles)
numericString = "9112E-01"
CallTryParse(numericString, styles)
numericString = "312E01"
CallTryParse(numericString, styles)
numericString = "FFC86DA1"
CallTryParse(numericString, NumberStyles.HexNumber)
numericString = "0x8F8C"
CallTryParse(numericString, NumberStyles.HexNumber)
End Sub
Private Sub CallTryParse(stringToConvert As String, styles AS NumberStyles)
Dim number As ULong
Dim result As Boolean = UInt64.TryParse(stringToConvert, styles, _
CultureInfo.InvariantCulture, number)
If result Then
Console.WriteLine("Converted '{0}' to {1}.", stringToConvert, number)
Else
Console.WriteLine("Attempted conversion of '{0}' failed.", _
Convert.ToString(stringToConvert))
End If
End Sub
End Module输出：
Converted '2106034' to 2106034. Attempted conversion of '-10603' failed. Converted '29103674.00' to 29103674. Attempted conversion of '10345.72' failed. Converted '41792210E-01' to 4179221. Attempted conversion of '9112E-01' failed. Converted '312E01' to 3120. Converted 'FFC86DA1' to 4291325345. Attempted conversion of '0x8F8C' failed.