Probleme dans mes tableaux

**jacko842** · 02/01/2008, 11h35

Voila j ai plusieurs phrases et je dois melangé les mots de chaque phrases et les affiché par exemple dnas une list box

ex: j ai 2 phrases coucou les amis
bonne année a tous

Je voudrais les affichés comme ca:

les coucou amis
tous année a bonne

au mieux de ca j ai ce resultat

les coucou amis
amis tous coucou annnée bonne les a

Il garde en memoire la 1 er phrases et la melange avec la deuxieme

voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
Private Sub Bou_melanger_Click()
 
    Dim i As Integer
    Dim j As Integer
    Dim z As Integer
    Dim k As Integer
    Dim tab_mot() As String
    Dim int_nbr_mot As String
    Dim tab_nombre() As Integer
    Dim tab_phrase_melang As String
    Dim tab_select_phras() As String 'tableau contenant les phrases de la liste phrase selectionné
    Dim str_mot As String
    Dim int_long As Integer
    Dim str_phrase_mel As String
 
    List_mel.Clear
 
    If List_select.ListCount = 0 Then 'si ya pas de phrase dans la list_select
 
        MsgBox "Vous devez d'abord sélectionné des phrases" + vbCrLf + "Double clik sur un phrase pour la sélectionné", vbExclamation, vbSystemModal
        Exit Sub
 
    End If
 
    For i = 1 To List_select.ListCount
 
        ReDim Preserve tab_select_phras(i) 'phrase selectionné
        tab_select_phras(i) = List_select.List(i - 1) 'contient les phrases selectionné
 
    Next i
 
    Randomize Timer
 
    For i = 1 To UBound(tab_select_phras)
 
        tab_select_phras(i) = tab_select_phras(i) + " "
 
        int_long = Len(tab_select_phras(i))
 
            For z = 1 To int_long
 
                str_mot = str_mot + Mid(tab_select_phras(i), z, 1)
 
                    If Mid(tab_select_phras(i), z, 1) = " " Then
 
                        k = k + 1
 
                        ReDim Preserve tab_mot(1 To k)
                        tab_mot(k) = Trim(str_mot)
                        str_mot = ""
 
                    End If
 
                    int_nbr_mot = k
 
            Next z
 
            ReDim tab_nombre(k)
 
            tab_nombre(1) = Int(Rnd * k) + 1 'générer un nombre aléatoire compris entre des bornes choisies
 
            For j = 2 To int_nbr_mot
 
                tab_nombre(j) = Int(Rnd * k) + 1
 
                    For z = j - 1 To 1 Step -1
 
                        If tab_nombre(j) = tab_nombre(z) Then
 
                            j = j - 1
 
                            z = 0
 
                            Exit For
 
                        End If
 
                    Next z
 
            Next j
 
 
 
            For z = 1 To int_nbr_mot
 
                tab_phrase_melang = tab_phrase_melang & " " & tab_mot(tab_nombre(z))
 
            Next z
 
        List_mel.AddItem tab_phrase_melang
 
        tab_phrase_melang = ""
 
 
 
    Next i
 
 
 
 
 
 
 
End Sub

merci d avance

**OhMonBato** · 02/01/2008, 11h43

Je n'ai pas regardé ton code mais n'y a t'il pas une certaine similitude avec ce message : http://www.developpez.net/forums/sho...d.php?t=465751 ?
Pourquoi avoir créé un nouveau sujet ?

**ucfoutu** · 02/01/2008, 12h05

Bonjour,

Remarques :

1) tu parles de sélection d'une phrase dans la liste et je vois un traitement de la totalité des phrases ('et encore : le 1er élément de ton tableau serait toujours vide avec tab_select_phras(i) = List_select.List(i - 1) puisque i = 1 au début !!!)
2) un split sur " " de la phrase sélectionnée te conduirait à un array (et je t'ai montré dans ton autre post comment mélanger un array

Bref...

**jacko842** · 02/01/2008, 12h10

tab_select_phras(i) = List_select.List(i - 1) puisque i = 1 au début !!!)

si je met pas I-1 la 1 er phrase ne sera jamais selectionné

ps: je voudrais bien qu on m aide sur mon code et pas me donné un autre code que j ai pas encore vu ces instruction la merci

**ucfoutu** · 02/01/2008, 12h12

Tu plaisantes ?
Réveille-toi et regarde quel i j'ai mis en rouge !!!!

**jacko842** · 02/01/2008, 12h12

c le programme je le fais tourné c pcq dans la list il commence a 0

si je fais tab_select_phras(i) = List_select.List(i ) la 1 er phrase n apparait jamais

**ucfoutu** · 02/01/2008, 12h18

Explique-toi à nouveau en français (pas de sms ici ) et en détaillant ce que tu as exactement dans ta liste de phrases et ce que tu veux faire exactement...

Et ce n'est pas ce i que j'ai mis en rouge, mais ... l'autre... non ????

**jacko842** · 02/01/2008, 12h21

ok bon en faite j ai une serie de phrases exemple:

salut a les amis
hello the world

je voudrais faire ressortir ces deux phrases mais melangé genre:

a amis les salut
world the hello

mais j obtiens a la place

a amis les salut ==>pour la 1 er phrases ca marche
world a the amis hello salut ==> la il melange la 1 er avec la Deuxieme

juste ca mais ca fais 2 semaines que j ai le meme probleme et pas moyen de trouvé

tab_select_phras(i) = List_select.List(i - 1)

j ai voulu faire un tableau contenant toutes les phrases d une list et ensuite je fais une autre boucle et avec la 1 er je la decompose ensuite la 2 .....

si je fais tab_select_phras(i) = List_select.List(i )il me m affiche qu a partir de la deuxieme phrase

**ucfoutu** · 02/01/2008, 13h28

Alors regarde bien (et essaye de comprendre un peu, hein ...)

Je ne fais ivi appel à rien d'autre qu'à Split (dont je t'ai parlé plus haut pour dresser un array aevc " " comme séparateur et au code que je t'ai donné dans ton autre post pour mélanger une array (ici mis en vert) ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub Form_Activate()
 Randomize Timer
 'juste pour exemple d'une liste à traiter
 List1.AddItem "salut les amis"
 List1.AddItem "hello the world"
End Sub

Private Sub Command1_Click()
  For i = 0 To List1.ListCount - 1
    List1.List(i) = melange(List1.List(i))
  Next
End Sub

Private Function melange(chaine As String) As String
  Dim monarray, i As Integer, ou As Integer, temp As String, nb As Integer
  monarray = Split(chaine, " ")
  nb = UBound(monarray)
  For i = 0 To nb \ 2
   ou = Int(((nb - i) * Rnd))
   temp = monarray(ou)
   monarray(ou) = monarray(nb - i)
   monarray(nb - i) = temp
  Next 
 melange = ""
  For i = 0 To UBound(monarray)
    melange = melange & monarray(i) & " "
  Next
  melange = Trim(melange)
End Function