[vb.net] remplacement d'un caractère dans listbox

Version imprimable

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:

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 !

29/03/2007, 12h10
JauB

je n'ai pas compris ce que tu cherches à faire!!
29/03/2007, 13h24
lou87

:oops: 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. :)

et si tu essaie un truc de type:

Code:

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

30/03/2007, 09h20
lou87

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

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

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 :mouarf:
si tu trouves d'autres solutions n'hésite pas à m'en informer
Bon courage :mrgreen:

30/03/2007, 13h29
lou87

MERCI !!!!!! :D

C'est génial, ça fonctionne parfaitement !

:D
30/03/2007, 14h03
JauB

WOW c'est super d'avoir aider quelqu'un LOL :lol:
Bon courage