Discussion :

[lou87]

Bonjour !

Eh oui j'avais déja posé une question similaire en vba.

Mais là j'ai essaye une méthode semblable en vb.net, mais ça ne me fait rien...

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
Private Sub AfficheIncident(ByVal LeDataSet)
 
        Dim ResReq As DataTable
        Dim UnEnreg As DataRow
        Dim IndiceIncident As Integer
        Dim description_longue As String
 
        ResReq = LeDataSet.Tables("ResultatBO")
        UnEnreg = ResReq.Rows(IndiceIncident)
        'Affecter les champs de la base à l’interface
 
        txt_date.Text = UnEnreg(1)
        Application.DoEvents()
        txt_num_incident.Items.Add(UnEnreg(0))
        txt_desc_courte.Items.Add(UnEnreg(2))
        txt_desc_longue.Items.Add(UnEnreg(3) & UnEnreg(4))
 
        description_longue = txt_desc_longue.Items
        MsgBox(description_longue)
        Call remplacement(description_longue)
 
 
 Private Sub remplacement(ByVal description_longue)
 
        Dim monTexte As String = description_longue
        Dim montxt As String
 
 
        montxt = monTexte.Replace("¤", Chr(10))
 
        MsgBox(montxt)
 
End Sub
            End Sub

Je pense que le truc qui cloche la dedans (comme dans l'autre), c'est le fait de récupérer les données/le texte de la listBox dans une variable...

Comment puis-je faire ?

Merci d'avance !

[JauB]

je n'ai pas compris ce que tu cherches à faire!!

[lou87]

Oups

En faite ce que je cherche à faire est de remplacer, dans le texte se trouvant dans mon listBox, le caractère ¤ par un saut de ligne.

VOili !

J'espère avoir été assez précis.

[JauB]

et si tu essaie un truc de type:

Code :

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

1
2
3
4
5
6
7
 
Dim i As Integer
i = l.Items.Count
Dim p As String
For j As Integer = 0 To i - 1
l.Items(j) = CType(l.Items(j), String).Replace("¤", vbCrLf)
Next

!?

[lou87]

Merci, ça fonctione ! Mais il ne m'affiche que des trait à la place de ¤.... Que faire ?

[JauB]

et beh dans ce cas je pense je passerai par un petit algorithme.
voilà je t'en ai écrit un

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
Dim i AsInteger
i = l.Items.Count
Dim p AsInteger = 0
Dim tab(100)() AsString
Dim cntTab(100) AsInteger
Dim tb(100) AsString
For j AsInteger = 0 To i - 1
tab(j) = CType(l.Items(j), String).Split("¤")
p = p + CType(l.Items(j), String).Split("¤").Length
cntTab(j) = CType(l.Items(j), String).Split("¤").Length
Next

Dim h AsInteger = 0
For s AsInteger = 0 To i - 1
For l AsInteger = 0 To cntTab(s) - 1
tb(h) = tab(s)(l)
h = h + 1
Next
Next
l.Items.Clear()
For m AsInteger = 0 To p - 1
l.Items.Add(tb(m))
Next

Après faudrait juste de voir les dimensions des tableaux et voilà, je l'ai testé et ça marche
si tu trouves d'autres solutions n'hésite pas à m'en informer
Bon courage