Ejemplo 18
El siguiente código permite asignar a dos variables dos valores ingresados como una cadena de caracteres. Para ello, mediante el uso de While, almacena todos los caracteres en una variable. Luego otro While para extraer los caracteres del segundo valor.
El código es el siguiente:
Sub ee()
cadena = "120, 3500.45"
Cad = ""
I = 1
Xc = Mid(cadena, 1, 1)
While Xc <> ","
Cad = Cad + Xc
I = I + 1
Xc = Mid(cadena, I, 1)
Wend
Valor1 = Val(Cad)
Cad = ""
I = I + 1
Xc = Mid(cadena, I, 1)
While Xc <> "" Or I < Len(cadena)
Cad = Cad + Xc
I = I + 1
Xc = Mid(cadena, I, 1)
Wend
Valor2 = Val(Cad)
MsgBox Valor1 & " " & Valor2
End Sub
© Ilmer Cóndor Espinoza. Todos los derechos reservados.
Prohibida la reproducción por cualquier medio.
Publicación web autorizada a aulaClic.
Cursos Informática Gratuitos Síguenos en: Facebook Sobre aulaClic Política de Cookies