Función pública DecodeText (mytext como secuencia)
intLength dévil como número entero
Amortiguar i
Amortiguar el strCurrentLetter como secuencia
Amortiguar el strNewText como secuencia
intLength = Len (mytext)
Para i = 1 al intLength
strCurrentLetter = mediados de (mytext, i, 1)
Seleccionar el strCurrentLetter del caso
Encajonar “{”
strNewText = strNewText y “D”
Caso “t”
strNewText = strNewText y “a”
Caso “r”
strNewText = strNewText y “v”
Caso “4”
strNewText = strNewText y “yo”
Caso
'No hacer nada
'Agregar más declaraciones del “caso” arriba para convertir más letras se codifiquen que
Terminar selecto
Después
DecodeText = strNewText
Función del final
|