Necesito ayuda con el siguiente problema:
Tengo tres TextBox
.
PRECIOTextBox
que contiene un númeroFORMULATextBox
que contiene una fórmula matemática como "+10%*2"PRECIO_ATextBox
que debería mostrar el resultado de la fórmula matemática entre el primer y segundoTextBox
Hasta ahora sólo logré trabajar con porcentajes y resolver fórmulas como "+10%+20%". Pero me encuentro en un problema cuando a esa fórmula se agregan símbolos de multiplicación y división. Les dejo el código que tengo hasta ahora:
Dim FormulaA As String = FORMULA_ATextBox.Text
Dim FormulaASeparado() As String
Dim Precio1 As Double = PRECIOTextBox.Text
FormulaASeparado = FormulaA.Split("%")
For x = 0 To FormulaASeparado.Length - 1
If FormulaASeparado(x).ToString <> "" Then
If Val(FormulaASeparado(x)) > 0 Then
Precio1 = Precio1 + (Precio1 * Val(FormulaASeparado(x)) / 100)
Else
Precio1 = Precio1 - (Precio1 * Math.Abs(Val(FormulaASeparado(x))) / 100)
End If
End If
Next
PRECIO_ATextBox.Text = Precio1
Sería de gran ayuda si alguien puede colaborar. Hace semanas estoy trabado en esto jaja! Gracias!
EDIT -------
Finalmente pude resolverlo con Expresiones regulares. Dejo el código por si a alguien le sirve:
' Definimos las expresiones regulares
Dim Valor As String = FORMULA_ATextBox.Text
Dim matchesP1 As MatchCollection = Regex.Matches(Valor, "\+\d+%")
Dim matchesP2 As MatchCollection = Regex.Matches(Valor, "\-\d+%")
Dim matchesM As MatchCollection = Regex.Matches(Valor, "\*\d+")
Dim matchesD As MatchCollection = Regex.Matches(Valor, "\/\d+")
Dim Precio As Double = PRECIOTextBox.Text
Dim PrecioA As Double = PRECIO_ATextBox.Text
' Si encuentra % postivo
For Each m As Match In matchesP1
For Each c As Capture In m.Captures
Dim regex As Regex = New Regex("\d+")
Dim match1 As Match = regex.Match(c.Value)
PrecioA = PrecioA + (PrecioA * match1.Value / 100)
Next
PRECIO_ATextBox.Text = PrecioA
Next
' Si encuentra % negativo
For Each m As Match In matchesP2
For Each c As Capture In m.Captures
Dim regex As Regex = New Regex("\d+")
Dim match1 As Match = regex.Match(c.Value)
PrecioA = PrecioA - (PrecioA * match1.Value / 100)
Next
PRECIO_ATextBox.Text = PrecioA
Next
' Si encuentra *
For Each m As Match In matchesM
For Each c As Capture In m.Captures
Dim regex As Regex = New Regex("\d+")
Dim match1 As Match = regex.Match(c.Value)
PrecioA = PrecioA * match1.Value
Next
PRECIO_ATextBox.Text = PrecioA
Next
' Si encuentra /
For Each m As Match In matchesD
For Each c As Capture In m.Captures
Dim regex As Regex = New Regex("\d+")
Dim match1 As Match = regex.Match(c.Value)
PrecioA = PrecioA / match1.Value
Next
PRECIO_ATextBox.Text = PrecioA
Next
Gracias a todos por la ayuda!