Mega Code Archive

 

Categories / VB.Net / Data Types

 

SByte TryParse tries to convert string in a style and culture-specific format to SByte

Imports System.Globalization Module StringParsing    Public Sub Main()       Dim numericString As String       Dim styles As NumberStyles       numericString = "1"       styles = NumberStyles.Integer       CallTryParse(numericString, styles)       numericString = "-1"       styles = NumberStyles.None       CallTryParse(numericString, styles)       numericString = "1.00"       styles = NumberStyles.Integer Or NumberStyles.AllowDecimalPoint       CallTryParse(numericString, styles)       numericString = "1.72"       styles = NumberStyles.Integer Or NumberStyles.AllowDecimalPoint       CallTryParse(numericString, styles)       numericString = "1E-01"       styles = NumberStyles.Integer Or NumberStyles.AllowExponent       CallTryParse(numericString, styles)        numericString = "12E-01"       CallTryParse(numericString, styles)       numericString = "12E01"       CallTryParse(numericString, styles)        numericString = "C8"       CallTryParse(numericString, NumberStyles.HexNumber)       numericString = "0x8C"       CallTryParse(numericString, NumberStyles.HexNumber)    End Sub    Private Sub CallTryParse(stringToConvert As String, styles AS NumberStyles)       Dim number As SByte       Dim result As Boolean = SByte.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