Fråga : finna och byt ut tecken inom en sätta in eller en cell

Hälsningar

We är prövas att lösa ett datatextproblem using överträffar. På ögonblicket vi har data som visas inom en cell, som har kodats using ett grundläggande bildar av referens, och byter ut för varje tecken inom en cell.

Ie David = {tr4 {

We skulle något liknande för att vända om det processaa och för att konvertera de encypted teckenen tillbaka in i dess original som var statligt via en
för teckenreferens table.

Ie {= D-
t = a
r = v
4 = i

therefore {tr4 {= David

Is där som långt ett det detta kan uppnås within, överträffar?

" klar "

Svar : finna och byt ut tecken inom en sätta in eller en cell

Du kunde skriva ett beställnings- fungerar liksom den som jag har satt tillsammans nedanfört.  Tillfoga mer bitar i ”det valda fallet” delar upp för att avkoda mer tecken.

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:

Allmänhet fungerar DecodeText (mytext som stränger)

Dunkel intLength som heltal
Dunkelt I
Dunkel strCurrentLetter som stränger
Dunkel strNewText som stränger

intLength = Len (mytext)

För I = 1 till intLength
    strCurrentLetter = mitt- (mytext, I, 1)
    
    Välj fallstrCurrentLetter
        Case ”{”,
            strNewText = strNewText & ”D”,
        Fall ”t”,
            strNewText = strNewText & ”a”,
        Fall ”r”,
            strNewText = strNewText & ”v”,
        Fall ”4”,
            strNewText = strNewText & ”mig”,
        Fall annars
            'Gör ingenting
            'Tillfoga mer ”fall” meddelanden över för att konvertera mer märker som kodas
    Avsluta valt
Därefter

DecodeText = strNewText

Avsluta fungerar
Andra lösningar  
 
programming4us programming4us