Remplacement de lettres à l'aide d'un tableau et enregistrement de ce dernier

Question

Salut &#224; tous,



Private Sub Form_Load()



Dim tablo(1, 1) As String



tablo(0, 0) = a

tablo(0, 1) = b

tablo(1, 0) = c

tablo(1, 1) = d



End Sub





Private Sub OK_Click()



Text2.Text = Replace(Text1.Text, tablo(0, 0), tablo(0, 1))

Text2.Text = Replace(Text1.Text, tablo(1, 0), tablo(1, 1))



End Sub



Je n'arrive pas &#224; faire marcher cela.

Mon but &#233;tant de faire un tableau avec nottament de colonnes et
lorsqu'on, tape un caract&#232;re dans le TextBox1 et que ce caract&#232;re est
present dans la colonne 1, il se remplace par le caract&#232;re de la m&#234;me
ligne mais de la colonne 2.

Je voudrais &#233;galement savoir comment faire pour enregistrer un tableau
afin qu'on puisse le recharger la prchaine fois qu'on itulise le
programme.



Quelqu'un pourrait-il m'aider?

Merci d'avance!



Tom89



PS : Pour mieux comprendre ce que je fais et por me donner de conseils
je vous invite &#224;         regarder ma
source. Soyez tol&#233;rant (je d&#233;bute) mais franc (c'est comme &#231;a qu'on
            avance)
vis-&#224;-vis de ma source et n'h&#233;sitez pas &#224; la noter. Merci encore!

econs · Answer

' Cette ligne est-elle bien globale ? (C'est &#224; dire en dehors de toutes tes proc&#233;dures et fonctions ?

 Dim tablo(1, 1) As String





As-tu bien mis une d&#233;claration de Sub ICI ??? Je suppose que oui sinon probl&#232;me de compilation ...



 tablo(0, 0) =  "a"

 tablo(0, 1) = "b"

 tablo(1, 0) = "c"

 tablo(1, 1) = "d"



 End Sub





 Private Sub OK_Click()



 Text2.Text = Replace(Text1.Text, tablo(0, 0), tablo(0, 1))

 Text2.Text = Replace(Text1.Text, tablo(1, 0), tablo(1, 1))



 End Sub     







O&#249; peux-t-on voir ta source ????

Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

cs_Tom89 · Answer

Ouais je vais essayer de modifier quelques petites choses.



Pour ma source c'est : 



http://www.vbfrance.com/code.aspx?ID=33417



Merci beaucoup!



Tom89

Gobillot · Answer

les Replace &#224; chaque caract&#232;re c'est pas tr&#232;s heureux

une boucle sera plus rapide







Private Sub OK_Click()

    Dim i As Integer

    Dim j As Integer

    Dim s As String



    s = Text1.Text

    For i = 1 to Len(s)

          c = Mid$(s,i,1)

          for j = 0 to Ubound(tabl0,1)

               If c tablo(j,0)  Then Mid$(s,i,1) tabl0(j,1): Exit For

               Next

        Next



    Text2.Text = s 



 End Sub




pour &#233;crire le fichier, c'est pareil, il faut parcourir la table:




Open NomFichier For Output As #1


For i = 0 to Ubound(tabl0,1)


      Print#1,tabl0(i,0)


      Print#1,tabl0(i,1)


      Next


Close#1





Daniel

Remplacement de lettres à l'aide d'un tableau et enregistrement de ce dernier

3 réponses

Discussions similaires