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
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


0