convertir string en autres string en utilisant "select case"Résolu

Question

bonjour,
j'ai besoin de faire une fonction qui permet de convertir une chaine de caracteres en une autre chaine de caracteres en utilisant "select case"; cad si qlq entre une chaine de caracteres dans "text1" -->dans "text2" apparait une autre chaine de caracteres (ex: en text1="alin" --> text2="jard") en se basant dans "select case" de remplacer chaque caractere par une autre caractere
stp aider moi de faire cette fonction
et merci d'avance.

Gobillot · Accepted Answer

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

    Dim x As Integer

    x = Text1.SelStart

    Select Case KeyCode

      Case 8: If x > 0 Then Text2 = Left$(Text2.Text, x - 1) & Mid$(Text2.Text, x + 1)

      Case 46: Text2 = Left$(Text2.Text, x) & Mid$(Text2.Text, x + 2)

      End Select

End Sub



Private Sub Text1_KeyPress(KeyAscii As Integer)

    Dim i As Integer

    Dim x As Integer

    Dim K As String

    

    If KeyAscii = 8 Then Exit Sub

    

    Select Case Chr$(KeyAscii)

      Case "a": K = "j"

      Case "l": K = "a"

      Case "i": K = "r"

      Case "n": K = "d"

      Case Else: K = Chr$(KeyAscii)

      End Select

    x = Text1.SelStart

    Text2 = Left$(Text2.Text, x) & K & Mid$(Text2.Text, x + 1)

End Sub


Daniel

pastis51forever · Answer

Si j'ai bien compris ce que tu veux dire, je ferais un truc du genre:

sub text1_keypress(byval keycode (ou keyascii, je sais plus) as integer)
select case keycode '(ou keyascii, toujours)
case "a"
textbox2.setfocus
sendkeys("j")
case "l"
textbox2.setfocus
sendkeys("a")
'pour chaque lettre on r&#233;p&#232;e l'op&#233;ration
end select

Cependant, je n'ai pas VB install&#233; sur le poste avec lequel j'&#233;cris ca, donc j'ai pas pu tester si c'&#233;tait exactement la technique &#224; utiliser, mais je pense que ca fait d&#233;j&#224; une bonne base de recherche...

Brice

jpleroisse · Answer

Bonsoir,



Tu peux faire aussi



Private Sub Text1_Change()

Select Case Texte1

    Case "alin"

        Text2 = "jard"

    Case "loisir"

        Text2 = "bon temps"

    Case Else

    Text2 = ""

End Select



jpleroisse

cs_elmekki · Answer

bonsoir
merci pour votre reponse.
pastis51forever c exactement ce que je veux mais le code ca marche pa , il me donne une erreur &#224; (case "a")
est ce que vous pouvez ou qlqun peu corriger le code:


private sub text1_keypress(keyascii as integer)
select case keyascii
   case "a"
      text2.setfocus
      sendkeys("j")
   case "l"
      text2.setfocus
      sendkeys("a")
end select
end sub

Gobillot · Answer

&#231;a risque de faire beaucoup de Select Case s'il y a beaucoup de lettres.









Dim s1 As String

Dim s2 As String



Private Sub Form_Load()

'compl&#232;te tes cha&#238;nes de correspondances

    s1 = "alin"

    s2 = "jard"

End Sub



Private Sub Text1_KeyPress(KeyAscii As Integer)

    Dim i As Integer

    i = InStr(s1, Chr$(KeyAscii))

    If i > 0 Then

       KeyAscii = Asc(Mid$(s2, i, 1))

       End If

End Sub


Daniel

cs_liquide · Answer

Keyascii est en "INTEGER" comment retrouver un "a" dans le select case !! ca me parait difficile ---> (Chr$())
private sub text1_keypress(keyascii as integer)
select case chr$(keyascii)
   case "a"
      text2.setfocus
      sendkeys("j")
   case "l"
      text2.setfocus
      sendkeys("a")
end select
end sub

Bonne prog, [mailto:liquide_vaisselle_76@hotmail.fr liquide_vaisselle_76@hotmail.fr]
liquide (Membre "Liquide-Fundation" -- tout ce qui peut etre bu est interdit -- les alcolo sont mals  , moi le 1er&n

cs_liquide · Answer

c'est sur Daniel, c'est fastidieux, on peut aussi utiliser la fonction "switch"

Bonne prog, [mailto:liquide_vaisselle_76@hotmail.fr liquide_vaisselle_76@hotmail.fr]
liquide (Membre "Liquide-Fundation" -- tout ce qui peut etre bu est interdit -- les alcolo sont mals  , moi le 1er&n

Gobillot · Answer

je l'ai fait directement dans Text1 mais tu peux adapter pour Text2:
  If i > 0 Then

      Text2.Text = Text2.Text & Mid$(s2, i, 1)

      End If



le probl&#232;me c'est que le nouveau caract&#232;re entr&#233; n'est pas forc&#233;ment &#224;
la fin, il y a aussi les suppressions de caract&#232;res qui se refl&#232;teront
pas dans Text2, bref l'&#233;dition compl&#232;te.



Private Sub Text1_Change()

    Dim i As Integer

    Dim j As Integer

    Dim c As String

    Dim s As String

    For j = 1 To Len(Text1.Text)

        c = Mid$(Text1.Text, j, 1)

        i = InStr(s1, c)

        If i > 0 Then

           s = s & Mid$(s2, i, 1)

           Else

           s = s & c

           End If

        Next

    Text2.Text = s


End Sub


Daniel

cs_elmekki · Answer

Lorsque je tappe un text dans textbox1 par exemple si je tape la lettre "a"  il la converti en "j" en textbox2 mais le curseur passe au textbox2 il me laisse pa de continuer le mot dans textbox1, c mon premier probleme.
et aussi lorsque j'efface une caractere a textbox1 il s' efface pa &#224; textbox2, c mon deuxieme probleme.
Svp aider moi d'ajouter ces taches a ce code en gardant "select case" :

private sub text1_keypress(keyascii as integer)
select case chr$(keyascii)
   case "a"
      text2.setfocus
      sendkeys("j")
   case "l"
      text2.setfocus
      sendkeys("a")
end select
end sub

Merci d'avance

Gobillot · Answer

il vaut mieux supprimer tous les caractères < 32 comme chr$(13) , Ctrl(M), etc.. ~~If KeyAscii = 8 Then Exit Sub~~ If KeyAscii < 32 Then Exit Sub Daniel

cs_liquide · Answer

private sub text1_keypress(keyascii as integer)
dim Ret as string
select case chr$(keyascii)
   case "a"
            ret = "j"
   case "l"
      ret = "a"
end select

text2.text = text2.text & ret
end sub

Bonne prog, [mailto:liquide_vaisselle_76@hotmail.fr liquide_vaisselle_76@hotmail.fr]
liquide (Membre "Liquide-Fundation" -- tout ce qui peut etre bu est interdit -- les alcolo sont mals  , moi le 1er&n

jpleroisse · Answer

Bonsoir,

Question toute simple (comme le code)

elmekki, as-tu essay&#233;s le code que je t' ais pass&#233; ?

jpleroisse

cs_liquide · Answer

JP, il veut tester chaque caractere, et non tout d'un seul coup, d'apres son post.

Bonne prog, [mailto:liquide_vaisselle_76@hotmail.fr liquide_vaisselle_76@hotmail.fr]
liquide (Membre "Liquide-Fundation" -- tout ce qui peut etre bu est interdit -- les alcolo sont mals  , moi le 1er&n

jpleroisse · Answer

OK, liquide,

Mais parfois je me pose la question, quel genre de programme
fabriquent-ils (bon nombre de posteurs) . Que recherche un utilisateur ?

A mon avis la simplicit&#233;, la rapidit&#233; et l'efficacit&#233;.

Tu sais, les barres de titres qui clignottent, les progressBar
multiCouleur, ect...ect.., je pense que cel&#224; est bien pour programmer
et apprendre, mais dans un programme (disons s&#233;rieux) cel&#224; ne fait pas
tr&#232;s s&#233;rieux.

Enfin, c'est mon avis et ce n'est pas le sujet.

Bonne prog et bonne nuit.



jpleroisse

cs_CanisLupus · Answer

Salut,
elmekki, ton code un peu corrig&#233; :

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim k As String
Select Case Chr(KeyAscii)
  Case "a": k = "j"
  Case "l": k = "a"
  Case "i": k = "r"
  Case "n": k = "d"
End Select
Text2.SetFocus
If k <> "" Then
  SendKeys k
Else
  SendKeys Chr(KeyAscii)
End If
End Sub


Private Sub Text2_Change()
Text1.SetFocus
End Sub

Ainsi le focus reviendra &#224; ta 1&#232;re textbox et tu pourras utiliser le bakspace pour effacer le dernier caract&#232;re.
Si tu veux que ta 2&#232;me textbox re&#231;oive (en dehors des caract&#232;res modifi&#233;s) les m&#234;mes commandes (suppr, d&#233;placement avec les fl&#232;ches,...) &#231;a devient plus complexe mais il me semble que j'ai d&#233;j&#224; vu &#231;a sur le site.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_elmekki · Answer

Merci &#224; tous pour vos reponses,

cs_elmekki · Answer

bonsoir jpleroisse moi je veux tester chaque caractere apart ,
de toute facon merci pour vos reponses

cs_liquide · Answer

j'ia toujours pas compris pourquoi vous faisiez un sendcase et un focus sur la textbox2, puisque tout peut etre balancer sans qu'elle prenne le focus pour ensuite le lui faire perdre au b&#233;n&#233;fice de la textbox1, autant que la textbox1 conserve le focus en permanence.

Bonne prog, [mailto:liquide_vaisselle_76@hotmail.fr liquide_vaisselle_76@hotmail.fr]
liquide (Membre "Liquide-Fundation" -- tout ce qui peut etre bu est interdit -- les alcolo sont mals  , moi le 1er&n

cs_CanisLupus · Answer

liquide > tu as tout a fait raison, il existe une autre mani&#232;re, sans sendkeys et qui plus est prend en charge toute op&#233;ration sur le textbox1 :

Il faut oublier le keypress et autres keydown et keyup. Dans le change du textbox1, on analyse la chaine car par car puis on transmet le r&#233;sultat &#224; textbox2 :

Private Sub Text1_Change()
Dim s As String
Dim k As String
Dim i As Integer


For i = 1 To Len(Text1.Text)
  k = Mid(Text1.Text, i, 1)
  Select Case k
    Case "a": s = s & "j"
    Case "l": s = s & "a"
    Case "i": s = s & "r"
    Case "n": s = s & "d"
    Case Else: s = s & k
  End Select
Next


Text2.Text = s


End Sub

Question performance, je n'ai pas analys&#233; mais bon, quand il s'agit de saisie, je ne crois pas que la diff&#233;rence soit sensible. Surtout qu'on a un r&#233;sultat beaucoup plus correct.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Gobillot · Answer

il faut faire la m&#234;me chose avec Text2_change.

1) il faut &#233;viter que Text1_Change entra&#238;ne Text2_Change et r&#233;ciproquement

2) il faut conserver la position du curseur

3) pas de double dans s1 et s2, si "a" --> "d" il faut "d" --> "a"





Dim s1 As String

Dim s2 As String

Dim bb As Boolean



Private Sub Form_Load()

    s1 = "abcdefghijklmnopqrstuvwxyz"

    s2 = "jbcnefghrlkamdopqistuvwxyz"

End Sub



Private Sub Text1_Change()

    Dim i As Integer

    Dim j As Integer

    Dim c As String

    Dim s As String

    If bb Then Exit Sub

    bb = True

    For j = 1 To Len(Text1.Text)

        c = Mid$(Text1.Text, j, 1)

        i = InStr(s1, c)

        If i > 0 Then

           s = s & Mid$(s2, i, 1)

           Else

           s = s & c

           End If

        Next

    i = Text2.SelStart

    Text2.Text = s

    Text2.SelStart = i

    bb = False

End Sub



Private Sub Text2_Change()

    Dim i As Integer

    Dim j As Integer

    Dim c As String

    Dim s As String

    If bb Then Exit Sub

    bb = True

    For j = 1 To Len(Text2.Text)

        c = Mid$(Text2.Text, j, 1)

        i = InStr(s2, c)

        If i > 0 Then

           s = s & Mid$(s1, i, 1)

           Else

           s = s & c

           End If

        Next

    i = Text1.SelStart

    Text1.Text = s

    Text1.SelStart = i

    bb = False

End Sub


Daniel

Convertir string en autres string en utilisant "select case"

30 réponses

Discussions similaires