Vraag : vind en vervang karakters binnen een gebied of cel

Hello, probeert

We om het probleem van de gegevenstekst op te lossen het gebruiken uitblinkt. Op het ogenblik hebben wij gegevens die binnen een cel die gebruikend een basisvorm van raadpleging is gecodeerd verschijnen en voor elk karakter binnen een cell.

Ie David = vervangen {tr4 {zou

We het proces encypted karakters terug in zijn originele staat via een karakterraadpleging table.

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

therefore {tr4 {= blinkt David

Is daar een manier dat dit kan binnen worden bereikt?

Antwoord : vind en vervang karakters binnen een gebied of cel

U kon een douanefunctie zoals schrijven ik. hieronder heb samengebracht.  Voeg meer beetjes in sectie de van het „Uitgezochte Geval toe“ om meer karakters te decoderen.

HTH
Mat
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:

Overheidsfunctie DecodeText (mytext als Koord)

Schemerige intLength als Geheel
Schemerige I
Schemerige strCurrentLetter als Koord
Schemerige strNewText als Koord

intLength = Len (mytext)

Voor I = 1 aan intLength
    strCurrentLetter = Medio (mytext, I, 1)
    
    Selecteer Geval strCurrentLetter
        Geval „{“
            strNewText = strNewText & „D“
        Geval „t“
            strNewText = strNewText & „a“
        Geval „r“
            strNewText = strNewText & „v“
        Geval „4“
            strNewText = strNewText & „I“
        Geval anders
            'Doe niets
            'Voeg hierboven meer verklaringen van het „Geval toe“ om meer brieven om te zetten die worden gecodeerd
    Beëindig Uitgezocht
Daarna

DecodeText = strNewText

De Functie van het eind
Andere oplossingen  
 
programming4us programming4us