Función privada obtener usercar(InCar como cadena)como cadena
Seleccionar instancia de caso
Caso "y": obtener usuario car = " k "
Caso "t": obtiene usuario car = " r "
Caso "w": obtiene usuario car = " q "
.
Puedes añadirlos más tarde.
.
Otras situaciones
GetUserCar=Incar
Finalizar selección
Finalizar función
Esto completa la entrada de caracteres Descomposición y generación de cuerdas.
Función privada GetPassCar(UserInStr como cadena) como cadena
tenue Temp en forma de cadena
tenue mientras yo
temp = space(len(UserInStr))
for i=1 to len(UserInStr)
mid(Temp, I, 1) = obtener usuario car(mid(user instr, I, 1))
Entonces
GetPassCar=Temp
Finalizar función
¡Está bien! ¡Todo lo que quieres está listo! Cuando lo uses, llámalo.
Como dijiste.
texto 2 . texto = GetPassCar(texto 1 . texto)
Hazlo.
¡Hay muchas maneras! Puedes pensar en ello.
Si buscas la función GetUserCar que usé, también puedes usar caracteres.
El código Asc construye matrices posicionalmente.
chrarray(256) como cadena *1
Por ejemplo:
asc("y")' 121
chr array( ASC (" y ") = "
.
.