Discussion :

[wahidred]

bonjour
je voudrais afficher un tableau dans ma fenêtre qui affiche les données provenant de mon programme VB.net et qui se dessine au fur et mesure que les données seront affiché car je ne sais pas a priori combien de ligne aurait je besoin , tout dépend de mon programme


est ce que quelqu’un pourrait m'orienter svp !!!

[-N4w4k-]

Bonjour,

"tableau" = DataGridView ? Si oui, pourquoi la remplir petit à petit au lieu de tout d'un coup ? Si non, réexplique pour voir

[Pol63]

vu la question je te conseille de lire un cours :
http://plasserre.developpez.com/cours/vb-net/

qu'on ne sache pas à l'avance combien de ligne on a c'est courant
listbox, listview, datagridview etc...

[wahidred]

bonjour je vous remercie pour vos reponses

je voudrais declarer un tableau de structure sans savoir sa taille (allocation dynamique) mais ca ne marche pas

Code :

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

Dim mastructure() As information={}

[-N4w4k-]

Bonjour,
Tu peux déclarer ton tableau sans taille précise

Code :

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

Dim array As String()

puis redimensionner quand tu connais sa taille définitive

Code :

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

Redim array(50)

Sinon, tu peux utiliser une List, ce qui te permet de ne pas donner de taille, mais simplement ajouter des items au fur et à mesure

Code :

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

1
2
3
4
Dim list As New list(Of String)
list.Add("item1")
list.Add("item2")
list.Add("item3")

Si à la fin tu veux vraiment un tableau

Code :

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

Dim array As String() = list.ToArray()

[Pol63]

évitez quand même les tableaux et les redim

[-N4w4k-]

évitez quand même les tableaux et les redim

Moi j'utilise plutôt les List mais pourquoi faut-il éviter les tableaux?

[Pol63]

les tableaux en eux même ne sont pas vraiment méchant, le list se base sur un tableau en interne
mais une boucle avec un redim preserve, et vous 1000 à 10000 fois moins performant qu'un list avec un .add

[wahidred]

bonjour j'ai essayé de declarer un tableau dynamique de structure mais ca coince quelque part 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
Public Class Form1
 
    Public Structure information
        Dim erreurs As String
        Dim occurences As Integer
        Dim origines As String
        Dim destinations As String
        Dim tcapops As String
 
    End Structure
 
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
 
        Dim tableau_structure As New List(Of information)
 
        tableau_structure.Add()
 
    End Sub
End Class

il y a une erreur je comprend pas qu'est ce qu'il faut entrer comme argument dans le ADD. en plus j'ai besoin de l'index du tableau de structure je dois au fur et mesure ajouter une structure dans la liste

est ce que quelqu’un a une idée

[Pol63]

il vaut mieux faire une classe plutot qu'une structure

après tu pourras faire

Code :

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

1
2
3
dim i as new information
i.erreurs = "blabla"
tableau_structure.add(i)

http://plasserre.developpez.com/cours/vb-net/

[wahidred]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Structure information
Dim country As String
        Dim int_outband As String
    End Structure
 Dim tableau_structure As New List(Of information)
        Dim i As New information
i.int_outband=1
  tableau_structure.Add(i)
 tableau_structure(0).int_outband.Replace(i.int_outband, i.int_outband + 1)
 
        TextBox1.Text = tableau_structure(0).ssn1

mon problème c'est lorsque j'ajoute une structure avec ADD et qu’après je veux incrémenter ou modifier un élément précis dans cette liste comment je pourrait faire parce qu’ici ma variable int_outband demeure a 1 merci!!

[shayw]

Salut

1 d'abord met ton projet à option strict on et option explicit on

i.int_outband=1 pas correcte
en net

Code :

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

i.int_outband=Convert.ToString(1)

2 pas clair ce que tu veux faire
tu as déclaré une list of (ta structure)
tu ajoutes un element à ta liste
ensuite tu veux modifier un element de ta liste ???
ex remplacer le int_outband de l'element 0

Code :

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

1
2
3
4
dim myinformation as new information
      myinformation.int_outband = Convert.ToString(tableau_structure(0).int_outband +1)
      tableau_structure.Remove(tableau_structure(0))
      tableau_structure.Insert(0, myinformation)

[benny-blanco]

Je voi que vous parler de list.

Quel est la différence entre une list et un arrayList ?

Merci

[Pol63]

Quel est la différence entre une list et un arrayList ?

penser que google a réponse à tout
à ce propos il a l'air de dire que arraylist date du framework 1 et que list date du framework 2 et que list serait autrement plus performant (ca peut se vérifier avec des tests)
sinon google a l'air de dire que list permet d'utiliser des generics, qui n'existaient pas sur le fx1

[wahidred]

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
Public Structure erreur
    Dim type_error As String
    Dim nombre_error As Integer
End Structure
Public Structure information
    Dim struct_error As List(Of erreur)
    Dim messages As String
    Dim ssn1 As String
    Dim ssn2 As String
    Dim succes As String
    Dim tentatives As Integer
    Dim origines As String
    Dim destinations As String
    Dim tcapops As String
    Dim operateurs As String
    Dim country As String
    Dim int_outband As String
    Dim taille_struct_error As Integer
    Dim nbre_faute As Integer
    Dim number As Integer
End Structure
Public Class Form1
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim tableau_structure As New List(Of information)
        Dim i As New information
        Dim a As Integer = 0
        Dim fofo As New information
  recup = File.ReadAllLines("source.csv")
 Dim index = 0
        For j = 0 To recup.Length - 1
 
 
            fofo.operateurs = ""
            fofo.country = ""
            fofo.int_outband = ""
            fofo.tentatives = 1
  champs = recup(j).Split(";")
            If champs(13) = "Update Location" And champs(4) = "BEG" Then
                fofo = chercher_operateur(champs(11), champs(9))
                i = fofo
              If Not tableau_structure.Contains(i) Then
  tableau_structure.Add(i)
 
                Else
'je cherche de quel structure s'agit il 
                    index = tableau_structure.IndexOf(i)
                    i.tentatives = tableau_structure(index).tentatives + 1
                    tableau_structure.Remove(tableau_structure(index))
                    tableau_structure.Insert(index, i)
 
                End If
 
            End If
 Next

bonjour mon projet c'est d ouvrir un fichier CSV qui s’appelle "source" et de le lire ligne par ligne après si certaines conditions sont verifiés je vais aller chercher de quel opérateur s'agit il pour cela j'ai écrit une fonction qui s'appelle "chercher_operateur" qui rend une structure de type information après si cet opérateur existe déjà dans ma liste j'incremente le nombre de tentatives si non j'ouvre une nouvelle rangé dans ma liste avec add mais il s’avère que mon programme ne donne pas de résultat j'arrive pas a le debugger aidez moi svp

ma fonction "chercher_operateur" est comme suit :

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
 
Public Module wahid
    Public Function chercher_operateur(ByVal origine As String, ByVal destination As String) As information
        Dim intermediate As New information
        intermediate.operateurs = ""
        intermediate.country = ""
        intermediate.int_outband = ""
        Dim oper() As String
        Dim k As Integer = 4
        oper = File.ReadAllLines("movistar.csv")
        Dim oper_frac As String()
        Dim flag As Boolean = False
        If origine.Contains("`21377") Then
            intermediate.int_outband = "inbound"
        Else
 
            Do
                For n As Integer = 0 To oper.Length - 1
                    oper_frac = oper(n).Split(";")
                    If origine.Contains(Mid(oper_frac(0), 1, k)) Then
                        intermediate.operateurs = oper_frac(2)
                        intermediate.country = oper_frac(3)
                        flag = True
                    End If
                Next
                k = k + 1
            Loop Until flag = True Or k = 8
        End If
        If destination.Contains("`21377") Then
 
            intermediate.int_outband = "outbound"
        Else
            Do
 
 
                For n As Integer = 0 To oper.Length - 1
                    oper_frac = oper(n).Split(";")
                    If destination.Contains(Mid(oper_frac(0), 1, k)) Then
                        intermediate.operateurs = oper_frac(2)
                        intermediate.country = oper_frac(3)
                        flag = True
                    End If
                Next
                k = k + 1
            Loop Until flag = True Or k = 8
        End If
 
        Return intermediate
    End Function

le probleme c'est meme au niveau de la boucle la ou je parcoure le fichier la ligne de tentatives ne s’incrémente pas

Code :

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

 i.tentatives = tableau_structure(index).tentatives + 1