Mega Code Archive

 

Categories / VB.Net / Data Types

 

Parse a string in exponential notation with only the AllowExponent flag

Imports System.Globalization Imports System.Threading Module ParseStrings    Public Sub Main()       Thread.CurrentThread.CurrentCulture = CultureInfo.CreateSpecificCulture("en-US")       Dim value As String       Dim styles As NumberStyles       value = "-1.063E-02"       styles = NumberStyles.AllowExponent       ShowNumericValue(value, styles)     End Sub    Private Sub ShowNumericValue(value As String, styles As NumberStyles)       Dim number As Single       Try          number = Single.Parse(value, styles)          Console.WriteLine("Converted '{0}' using {1} to {2}.",value, styles.ToString(), number)       Catch e As FormatException          Console.WriteLine("Unable to parse '{0}' with styles {1}.",value, styles.ToString())       End Try    End Sub End Module