Creer une fonction de conversion de chaine

[hemerode]

Bonjour a tous,

Je souhaite créer une fonction qui converti un mot selon une codification que j'ai défini.

ALPHABET CODE
A.....................G
B.....................P
C.....................O
D.....................2
E.....................M
F.....................B
etc.

Voici la fonction que j'ai essayé d'ecrire:
Function AlphaCode(Texte as string)as string

for i=1 to len(Texte)

next i

End Fonction


Par exemple le resultat de "BABA" sera "PGPG".

Merci pour vos contributions!

 

[david84]

Re : Creer une fonction de conversion de chaine

Bonjour,
une possibilité à tester :

Function AlphaCode(Texte As String) As String
Dim T1, T2, i As Long, temp As String
T1 = Array("A", "B", "C", "D", "E", "F")
T2 = Array("G", "P", "O", "2", "M", "B")
For i = 1 To Len(Texte)
    temp = temp & T2(Application.Match(Mid(Texte, i, 1), T1, 0) - 1)
Next i
AlphaCode = temp
End Function

A+