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
|