conversione da parametri querystring a decimali

[webdevaster]

Ciao a tutti,
ho dei problemi di conversione... vi spiego il problema:

Prelevo dei dati da querystring del tipo:

valore=0.0001,0.0002,0.0003

li splitto in un array e poi uso i vari indici dell'array per fare dei calcoli con altri dati...

Il problema è che non ho risultati.. probabilmente perché devo convertire i parametri che leggo dalle querystring.

Io uso:

       Dim mystring As String = Request.QueryString("valore")
       Dim myarray As Array = mystring.Split(",")

Poi ho provato a fare così:

Dim risultato As Decimal = myarray(3) * 2

ma mi da 6 invece di 0.0006


aiuto... ?

[webdevaster]

up

[pietro09]

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim valore As String = "0.0001,0.0002,0.0003"
        Dim vs As String() = valore.Split(","c)
        Dim vd(vs.Length - 1) As Double
        For i As Integer = 0 To vs.Length - 1
            Double.TryParse(vs(i), NumberStyles.AllowDecimalPoint, nfi, vd(i))
            Me.Response.Write(vd(i) * 2 & "
")
        Next


    End Sub

    Public ReadOnly Property nfi( _
       Optional ByVal NumberDecimalSeparator$ = ".", _
       Optional ByVal NumberGroupSeparator$ = " ", _
       Optional ByVal NumberDecimalDigits% = 2, _
       Optional ByVal CurrencySymbol$ = "€", _
       Optional ByVal CurrencyDecimalDigits% = 2, _
       Optional ByVal CurrencyDecimalSeparator$ = ".", _
       Optional ByVal CurrencyGroupSeparator$ = " " _
       ) As NumberFormatInfo
        Get
            'nfi = DirectCast(System.Globalization.NumberFormatInfo.CurrentInfo.Clone, System.Globalization.NumberFormatInfo)
            nfi = DirectCast(New CultureInfo("it-IT").NumberFormat.Clone, NumberFormatInfo)
            nfi.NumberDecimalSeparator = NumberDecimalSeparator
            nfi.NumberGroupSeparator = NumberGroupSeparator
            nfi.NumberDecimalDigits = NumberDecimalDigits
            nfi.CurrencySymbol = CurrencySymbol
            nfi.CurrencyDecimalDigits = CurrencyDecimalDigits
            nfi.CurrencyDecimalSeparator = CurrencyDecimalSeparator
            nfi.CurrencyGroupSeparator = CurrencyGroupSeparator

        End Get
    End Property