Conversion d'une string

Question

Bonjour

on a textbox1 et textbox2 , je veu que le text ecri en textbox1 est converti en textbox2 suivant une algorithme par exemple :


si je tappe "jack;ja/" dans textbox1 doi etre remplacer dans textbox2 sous "mick;ny/" cad "j" remplacer par "m" et "a" par "i" et "ja" par "ny".

cs_franckydeluka · Answer

salut,
je sais pas si c'est la meilleure soltion mais regarde avec l'instruction replace()



Deluka.

jpleroisse · Answer

bonjour,

Tu peux faire ceci,



Private Sub Text1_Change()

Select Case Text1.Text

    Case "jack;ja/"

       Text2.Text = "mick;ny/"

    Case "Bonjour"

       Text2.Text = "Ca-vas ?"

    Case Else

        Text2 = ""

End Select

End Sub



jpleroisse

cs_drahcir · Answer

Salut,

situ utilises Replace, tu as int&#233;r&#234;t a bien choisir l'ordre avec lequel tu remplaces tes lettres car si tu remplaces d'abord tous les "j" par des "m" et les "a" par des "y" tu obtiendras "myck;my". Tandis que si tu remplaces "ja" par "ny"  tu obtiendras "nyck;ny".

@+

cs_elmekki · Answer

Sur Deluka et jepleroise


moi je veu traiter chaque caractere apar et parfois chaque deux ou trois caractere (a condition que ces deux ou trois caratere soit en mot entier)

cs_franckydeluka · Answer

alors peut-&#234;tre que la meilleure solution c'est de naviguer dans ta string avec l'instruction Mid() mais ca risque de te compliquer ton algorythme...



Deluka.

Gobillot · Answer

pareil que pour les String mais avec des tables.



Table1(0) "ja"  : Table2(0) "ky"

Table1(1) "ka"  : Table2(0) "po"


balayer toute la Table1(), si existe dans s on remplace par Table2()


Daniel

cs_drahcir · Answer

Qu'est-ce qui te permet de dire, quand je rencontre "ja" : 

1- je remplace "ja" par "ny"
OU
2- je remplace "j" par "m" et "a" par "i"

 ???

@+

cs_elmekki · Answer

je suis bolqu&#233; , j'arrive pa a faire le code

Gobillot · Answer

Dim Tabl1() As String

Dim Tabl2() As String



Private Sub Form_Load()

    ReDim Tabl1(1), Tabl2(1)

    Tabl1(0) "ja": Tabl2(0) "ny"

    Tabl1(1) "ka": Tabl2(1) "po"

End Sub



Private Sub Text1_Change()

    Dim i As Integer

    Dim j As Integer

    Dim s As String

    

    s = Text1.Text

    For i = 0 To UBound(Tabl1)

        j = InStr(s, Tabl1(i))

        If j > 0 Then

           Mid$(s, j) = Tabl2(i)

           End If

        Next

    Text2.Text = s

   

End Sub




Daniel

cs_elmekki · Answer

sur drahcir j'ai fé cet exemple expré sur Daniel mé ce code fé le traitement qu'une seul foi , moi je veu si je que le code traite les carateres apar et les mots entiers apar par exemple pour les caractere apar : si je tappe "mick" il va me donner "lari" il va converti "m" en "l" et "i" en "a" ...ect. pour les les mots entiers : si je tappe "mi" doit etre remplacer par "wp" et pa ~~"mick" par "wpck"~~

cs_drahcir · Answer

C'est pas tr&#233;s clair ton truc...... Es-tu s&#251;r d'avoir toi-m&#234;me compris ce que tu veux???????

@+

P.S : essaye aussi de faire un effort sur l'&#233;criture, parce que franchement, le style texto, c'est un peu lourd &#224; d&#233;chiffrer....

Gobillot · Answer

si tu tape "mick" il faut d'abord taper "m" qui se transforeme en "l" ensuite "i" qui se transforme en "a" soit "mick" --> "lack" dans ce cas "mi" sera pas détecté !!!!! en faisant ~~"mi" -->~~ "la" --> "wp" , c'est "lack" qui sera transformé en "wpck" pourquoi tu barres ~~"mick" par "wpck"~~ ????? Daniel

cs_elmekki · Answer

moi je veux convertir les lettres en lettres selon la coresspondance suivante ('abcdefghijklmn...') par ('idmpxyzpqwnao....')


mais pour quelques mots entiers predefini, ne suivent pa cette correspondance

les mots entiers dans mon programme sont separ&#233;s par des "," et des "." et des "/" 


par ex:


si je tape dans textbox1: "alin.mange"


il va se transformer  en : "inpo.suite"

"alin" suit la coresspondance des lettres 
"mange" est predefini, ne suit pa la coresspondance des lettres

cs_elmekki · Answer

sur Daniel j'ai barré ~~mick par wpck~~ car "mi" n'est pas un mot entier , il est integer dans un autre mot.

Conversion d'une string

14 réponses

Discussions similaires