Creer une fonction de conversion de chaine

hemerode · 13 Septembre 2013

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 · 13 Septembre 2013

Re : Creer une fonction de conversion de chaine

Bonjour,
une possibilité à tester :

Code:

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+

Creer une fonction de conversion de chaine

hemerode

XLDnaute Junior

david84

XLDnaute Barbatruc

Discussions similaires

Creer une fonction de conversion de chaine

hemerode

XLDnaute Junior

david84

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency