Frage : Buchstaben innerhalb eines Feldes oder einer Zelle finden und ersetzen

Hallo, versuchen

We, ein Datentextproblem using zu lösen übertreffen. In dem Augenblick als wir Daten haben, die innerhalb einer Zelle erscheint, die using eine grundlegende Form des Nachschlagens verschlüsselt worden und für jeden Buchstaben innerhalb eines cell.

Ie David = ersetzt {tr4 {

We möchte den Prozess aufheben und die encypted Buchstaben zurück in seinen ursprünglichen Zustand über ein Buchstabennachschlagen table.

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

therefore {tr4 {= David

Is, dort, das eine Weise, dass dieses innen erzielt werden kann übertreffen?

Antwort : Buchstaben innerhalb eines Feldes oder einer Zelle finden und ersetzen

Sie konnten eine kundenspezifische Funktion wie die schreiben, die ich unten. zusammengefügt.  Mehr Spitzen im Abschnitt „des auserwählten Falles“ hinzufügen, um mehr Buchstaben zu decodieren.

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:

Allgemeine Funktion DecodeText (mytext als Schnur)

Schwaches intLength als ganze Zahl
I verdunkeln
strCurrentLetter als Schnur verdunkeln
strNewText als Schnur verdunkeln

intLength = Len (mytext)

Für i = 1 zum intLength
    strCurrentLetter = mittler (mytext, i, 1)
    
    Fall strCurrentLetter vorwählen
        Umkleiden „{“
            strNewText = strNewText u. „D“
        Fall „t“
            strNewText = strNewText u. „a“
        Fall „r“
            strNewText = strNewText u. „v“
        Fall „4“
            strNewText = strNewText u. „ich“
        Fall sonst
            'Nichts tun
            'Mehr „Fall“ Aussagen oben addieren, um mehr Buchstaben umzuwandeln, die verschlüsselt
    Auserwähltes beenden
Zunächst

DecodeText = strNewText

Enden-Funktion
Weitere Lösungen  
 
programming4us programming4us