Visual Basic 2010, busco forma de separar términos

[thegodinez]

Hola chicos, ando buscando una forma, en la que pueda separar dos términos es decir y que pueda guardar su operador, de tal forma que:
10+20=30
Variable 1= 10
Operador1="+"
Variable 2= 20
Igualdad="="
Variable 3=30

Toda respuesta construtiva será bienvenida.

[sergio701]

No se mucho de Basic asi que seguramente hay formas mas faciles de hacerlo, pero que te mando el codigo, espero que te sirva.

Código vb:

Public Sub separar(ByVal exp As String)
        Dim varible1 = ""
        Dim operador = ""
        Dim varible2 = ""
        Dim igual = ""
        Dim resultado = ""
        Dim encontro As Boolean = False
 
        Dim i = 0
 
        While exp.Substring(i, 1) <> "="
 
            If encontro = False Then
                varible1 = varible1 + exp.Substring(i, 1)
            End If
            If exp.Substring(i, 1) = "+" Or exp.Substring(i, 1) = "-" Or exp.Substring(i, 1) = "/" Or exp.Substring(i, 1) = "*" Then
                operador = exp.Substring(i, 1)
                encontro = True
            End If
 
            If encontro = True Then
                varible2 = varible2 + exp.Substring(i, 1)
            End If
 
            i = i + 1
        End While
 
        igual = "="
        varible1 = varible1.Substring(0, varible1.Length - 1)
        varible2 = varible2.Substring(1, varible2.Length - 1)
        resultado = exp.Substring(varible1.Length + varible2.Length + 2, exp.Length - varible1.Length - varible2.Length - 2)
 
 
        TextBox2.Text = varible1
        TextBox3.Text = operador
        TextBox4.Text = varible2
        TextBox5.Text = igual
        TextBox6.Text = resultado
 
    End Sub
 

[thegodinez]

Iniciado por sergio701

No se mucho de Basic asi que seguramente hay formas mas faciles de hacerlo, pero que te mando el codigo, espero que te sirva.

Código vb:

Public Sub separar(ByVal exp As String)
        Dim varible1 = ""
        Dim operador = ""
        Dim varible2 = ""
        Dim igual = ""
        Dim resultado = ""
        Dim encontro As Boolean = False
 
        Dim i = 0
 
        While exp.Substring(i, 1) <> "="
 
            If encontro = False Then
                varible1 = varible1 + exp.Substring(i, 1)
            End If
            If exp.Substring(i, 1) = "+" Or exp.Substring(i, 1) = "-" Or exp.Substring(i, 1) = "/" Or exp.Substring(i, 1) = "*" Then
                operador = exp.Substring(i, 1)
                encontro = True
            End If
 
            If encontro = True Then
                varible2 = varible2 + exp.Substring(i, 1)
            End If
 
            i = i + 1
        End While
 
        igual = "="
        varible1 = varible1.Substring(0, varible1.Length - 1)
        varible2 = varible2.Substring(1, varible2.Length - 1)
        resultado = exp.Substring(varible1.Length + varible2.Length + 2, exp.Length - varible1.Length - varible2.Length - 2)
 
 
        TextBox2.Text = varible1
        TextBox3.Text = operador
        TextBox4.Text = varible2
        TextBox5.Text = igual
        TextBox6.Text = resultado
 
    End Sub
 

He entendido alguna parte del código, ahora me lo podrias explicar en caso de que fueran tres variables?.

[sergio701]

La idea es encontrar solo hasta 3 variables o n variables?

[thegodinez]

Iniciado por sergio701

La idea es encontrar solo hasta 3 variables o n variables?

N variables, aunque tu ayuda ha sido muy buena amigo :D , si lo puedes hacer para n variables te lo agradeceria mucho.

[sergio701]

pongo el siguiente codigo que los que hace es separar la exprecion en un arreglo.
luego pongo cada escprecion en una linea del texbox7.

Código:

    Public Sub separarn(ByVal exp As String)
        Dim separados(100) As String
        Dim encontro As Boolean = False

        Dim c = 0

        For i = 0 To exp.Length - 1

            If exp.Substring(i, 1) <> "+" And exp.Substring(i, 1) <> "-" And exp.Substring(i, 1) <> "/" And exp.Substring(i, 1) <> "*" And exp.Substring(i, 1) <> "=" Then
                separados(c) = separados(c) + exp.Substring(i, 1)
            End If

            If exp.Substring(i, 1) = "+" Or exp.Substring(i, 1) = "-" Or exp.Substring(i, 1) = "/" Or exp.Substring(i, 1) = "*" Or exp.Substring(i, 1) = "=" Then
                c = c + 1
                separados(c) = exp.Substring(i, 1)
                c = c + 1
            End If

        Next

        TextBox7.Text = ""
        For Each var As String In separados
            If var <> "" Then
                TextBox7.Text = TextBox7.Text + var + vbCrLf
            End If
        Next

    End Sub