Visual Basic - problema de if

Life is soft - evento anual de software empresarial
 
Vista:

problema de if

Publicado por Al (2 intervenciones) el 01/05/2007 23:10:57
tengo un problema con el if, chequen el codigo:

If Right(Text1.Text, 1) = "|" Then
b = (Len(exp) + Len(exp1) + 4)
exp2 = Mid(Text1.Text, b, i)
text2.text = exp & exp1 & exp2

If Mid(Text1.Text, i, 1) = "=" Then
exp = Left(Text1.Text, i - 3)

a = Len(exp)
If Right(Text1.Text, 1) = ">" Then
exp1 = Mid(Text1.Text, a + 4, i)

ese no es el codigo completo, solo la idea principal

quiero que en una cadena que introduzco en el text1 compare si el ultimo caracter es "|", si no que compare si es "=", si si lo es, que guarde lo escrito en exp, si no, regrese a la comparacion anterior, luego, despues del "=" compare si es ">", si lo es, guarde desde "=" hasta ">", si no que haga lo anterior nuevamente
si el ultimo caracter es "|" que guarde desde el primer ">" hasta "|"

esa es la idea, pero no se como hacer para que cuando el ultimo caracter no sea "|" pase a las demas comparaciones, ya intente usar else pero me lanza el error "else sin if"
muchas gracias de antemano
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:problema de if

Publicado por Daniel (5 intervenciones) el 02/05/2007 03:21:58
If Right(Text1.Text, 1) = "|" Then
b = (Len(Exp) + Len(exp1) + 4)
exp2 = Mid(Text1.Text, b, i)
Text2.Text = Exp & exp1 & exp2
Else
If Mid(Text1.Text, i, 1) = "=" Then
Exp = Left(Text1.Text, i - 3)
Else
a = Len(Exp)
If Right(Text1.Text, 1) = ">" Then
exp1 = Mid(Text1.Text, a + 4, i)
End If
End If

Lo único que corregí fué la anidación de los Ifs, que según vos es donde radica el problema, el resto del código no me molesté en entenderlo, mirá a ver si así funciona.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar