Cuestión : encontrar y substituir los carácteres dentro de un campo o de una célula

Hola, el

We está intentando solucionar un problema del texto de los datos usar sobresale. ¿En el momento que tenemos datos que aparezcan dentro de una célula que se ha cifrado usar una forma básica de operaciones de búsqueda y substituyan para cada carácter dentro de un cell.

Ie David = {tr4 {el

We quisiera invertir el proceso y convertir los carácteres encypted nuevamente dentro de su estado original vía un
de las operaciones de búsqueda table.

Ie del carácter {=
t = a
r = v
4 = el i

therefore {tr4 {= David

Is allí que una manera que esto puede ser alcanzada dentro sobresale?

class= del

Respuesta : encontrar y substituir los carácteres dentro de un campo o de una célula

Usted podría escribir una función de encargo tal como la que he juntado abajo.  Agregar más pedacitos en la sección del “caso selecto” para descifrar más carácteres.

HTH
Matt
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

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
Otras soluciones  
 
programming4us programming4us