Remplacer "a" par "ava" , "e" par "ave"

Lordvb Messages postés 57 Date d'inscription jeudi 13 février 2003 Statut Membre Dernière intervention 3 décembre 2004 - 14 févr. 2003 à 19:07
Lordvb Messages postés 57 Date d'inscription jeudi 13 février 2003 Statut Membre Dernière intervention 3 décembre 2004 - 14 févr. 2003 à 20:19
voila en fait je voudrais faire un traducteur javanais ^^ cad rajoute l'infixe -av- devant chaque voyelle.
g 2textbox ( normal et javanais ) et un bouton : javanaiscmd
voila a koi g penser quand on clique sur le bouton:
javanais.text = replace ( normal.text , "a" , "ava" )
ca aucun pb si je tape par ex :
ca va = cava ava
ca c bon mais quand je veux qu'il me mette av devant chaque voyelle comment faire ? g essayer avec :
javanais.text = replace ( normal.text , "a" , "ava" ) & replace ( normal.text , "e" , "ave" )

mais le pb c qu'il m'ecrit le tout en double :@ plz help me ;)

2 réponses

cs_wape Messages postés 262 Date d'inscription samedi 21 décembre 2002 Statut Membre Dernière intervention 19 décembre 2010 12
14 févr. 2003 à 20:06
Essaye ceci :

Dim i As Integer
Dim sVoyelle As String * 1
Dim sVoyelles As String * 6

sVoyelles = "aeiouy"

Javanais.Text = Normal.Text

For i = 1 To 6
sVoyelle = Mid$(sVoyelles, i, 1)
Javanais.Text = Replace(Javanais.Text, sVoyelle, "av" & sVoyelle)
Next i

Slts

wape
0
Lordvb Messages postés 57 Date d'inscription jeudi 13 février 2003 Statut Membre Dernière intervention 3 décembre 2004
14 févr. 2003 à 20:19
yeap ca marche je vais tente de comprendre le code en tout ca c super sympa ( pas tres utile comme truc mais c bon d'apprendre le langage je m'en servirais pour d'autre chose plus serieuse :d )
0
Rejoignez-nous