[RESOLVED] Calculating numbers

[OR444]

In the TextBox1 I have the following numbers:5 4.1 6.23 0 0 7 7.924


Possible to calculate all the numbers in this way?

like replace all the "space" in "+" and get the answer or something?

[JayJayson]

I like your thinking.. maybe in the next version of VS

For now though, I would split the values into an array. Then you can loop through the results and add them up.

Dim TextboxText As String = "5 4.1 6.23 0 0 7 7.924"
 
Dim ArrayOfValues() As String = TextboxText.Split(" ")
Dim Sum As Double = 0
 
For Each Value As String In ArrayOfValues
    If Double.TryParse(Value, Nothing) Then Sum += CDbl(Value)
Next
 
MsgBox(Sum)

[InertiaM]

I like your thinking.. maybe in the next version of VS

It's actually possible in 2005, and may be possible in other versions as well :-

        Dim TextBoxText As String = "5 4.1 6.23 0 0 7 7.924"

        Dim Formula as String = TextBoxText.Replace(" ", "+")

        Dim Evaluator As New DataTable
        Dim Result As Double = 0.0
        Result = Convert.ToDouble(Evaluator.Compute(Formula, ""))

        MessageBox.Show(Result.ToString)

It will also cope with brackets, for example :-

        Dim Formula As String = "5+(3*6)"

[OR444]

I like your thinking.. maybe in the next version of VS

For now though, I would split the values into an array. Then you can loop through the results and add them up.

Dim TextboxText As String = "5 4.1 6.23 0 0 7 7.924"
 
Dim ArrayOfValues() As String = TextboxText.Split(" ")
Dim Sum As Double = 0
 
For Each Value As String In ArrayOfValues
    If Double.TryParse(Value, Nothing) Then Sum += CDbl(Value)
Next
 
MsgBox(Sum)

Thank you very much

[JayJayson]

Cool, I'm liking that DataTable function InetiaM. I bet I will be able to find a use for it at some point in the future.