Remplir une DataTable

Version imprimable

2 pièce(s) jointe(s)

Bonjour,

J'ai besoin de remplir une DataTable afin de l'afficher avec un DataGridView par la suite.

J'ai stocké dans une variable une string de 670 caractères que je dois découper en groupe de 10 afin de les afficher dans le tableau, en le remplissant ligne par ligne.

Je cherche donc à remplir le tableau case par case en parcourant le nombre de colonne et dès qu'on arrive à 10 (le nb de colonnes), on passe à la ligne suivante, en continuant de remplir le compléter à partir de la string qui est découpée.

Le meilleur moyen est-il de faire une liste de string qui contient donc 67 string de 10 caractères (la string de départ qui est découpée), de créer le nombre de lignes à partir de la liste et d'essayer de remplir le tableau à partir de ça?

Pièce jointe 596928
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 35 Dim table As New DataTable() table.Columns.Add("10", Type.GetType("System.String")) table.Columns.Add("20", Type.GetType("System.String")) table.Columns.Add("30", Type.GetType("System.String")) table.Columns.Add("40", Type.GetType("System.String")) table.Columns.Add("50", Type.GetType("System.String")) table.Columns.Add("60", Type.GetType("System.String")) table.Columns.Add("70", Type.GetType("System.String")) table.Columns.Add("80", Type.GetType("System.String")) table.Columns.Add("90", Type.GetType("System.String")) table.Columns.Add("100", Type.GetType("System.String")) Dim testStr As New List(Of String) testStr.Add("test1") testStr.Add("test2") testStr.Add("test3") testStr.Add("test4") testStr.Add("test5") testStr.Add("test6") testStr.Add("test7") testStr.Add("test8") testStr.Add("test9") testStr.Add("test10") testStr.Add("test11") testStr.Add("test12") For k = 0 To table.Columns.Count - 1 Dim putNewRow As DataRow = table.NewRow putNewRow(k) = testStr(k).ToString table.Rows.Add(putNewRow) Next
Pour l'instant j'ai testé avec le code-ci dessus, juste pour essayer de remplir le tableau comme souhaité mais je n'y parviens pas.
Le but serait que de "test1" jusqu'à "test10", on insère sur la première ligne, de "test11" à "test20" sur la suivante, etc...

Je cherche à faire quelque chose qui ressemble à l'image ci-dessous :

Pièce jointe 596976

Merci d'avance pour l'aide

bonjour,
perso je verrais un truc comme ça!

Code:

1
2
3
4
5
 Dim putNewRow As DataRow = table.NewRow
        For k = 0 To table.Columns.Count - 1
            putNewRow(k) = testStr(k).ToString
        Next
        table.Rows.Add(putNewRow)

30/04/2021, 14h01
erataille

1 pièce(s) jointe(s)

Bonjour, effectivement ça se met bien au bon endroit !
Mais le problème c'est pour passer à la ligne suivante, le code que j'ai montré était juste un exemple.
Si je veux le faire pour une string de 600 caractères, comment je fais pour faire en sorte de revenir à la ligne à chaque fois ? Car une fois l'index du nombre de colonnes dépassé je ne peux plus parcourir la chaine en question

Je cherche à faire un tableau qui ressemble exactement à ça :

Pièce jointe 596979

En sachant que les caractères qui sont insérés dans le tableau se trouvent dans une variable String.

ça Dim testStr As New List(Of String) tu oublis tu travail directement avec ta variable {TXT} une string de 670 caractères

Code:

1
2
3
4
5
6
7
8
 For i As Int64 = 0 To TXT.LongCount  Step 100
            Dim putNewRow As DataRow = table.NewRow
            For k = 0 To table.Columns.Count - 1
                If i + (k * 10) + 10 > TXT.LongCount Then Exit For
                putNewRow(k) = TXT.Substring(i + (k * 10), 10)
            Next
            table.Rows.Add(putNewRow)
        Next

30/04/2021, 14h49
erataille

2 pièce(s) jointe(s)

Pièce jointe 596984

Ca à l'air de fonctionner merci ! Il manque juste la dernière case qui ne se remplie pas.
(La textbox à gauche c'est le résultat que j'essaie d'obtenir)
30/04/2021, 14h56
Thumb down

tu excuseras mon tâtonnement mais il mais j'ai déclaré un string(670)="X" c'est moins facile pour faire la part des chose!

je pense avoir fait une erreur là!

Code:

For i As Int64 = 1 To TXT.LongCount Step 100
30/04/2021, 15h01
erataille

Pas de problème ^^ j'ai changé par

Code:

For i As Int64 = 0 To TXT.LongCount Step 60

car il y a que 6 colonnes au final, donc ça fonctionne merci, mais la dernière case ne s'insère pas
30/04/2021, 15h35
Thumb down

si tu considère 10 caractères par colonne on est à step 70!
30/04/2021, 15h44
erataille

En mettant un step de 70 pour 6 colonnes et 10 caractères à chaque fois, certains vont être écrasés non?
La première case de chaque ligne sera pas la bonne ou je me trompe ?

chez mois ca fonctionne

Code:

1
2
3
4
5
6
7
8
9
 For i As Int64 = 0 To TXT.LongCount Step 60            Dim putNewRow As DataRow = table.NewRow
            For k = 0 To table.Columns.Count - 1
                If i + (k * 10) + 10 > TXT.LongCount Then Exit For
                If k = 0 Then table.Rows.Add(putNewRow)
                putNewRow(k) = TXT.Substring(i + (k * 10), 10)
            Next
 
 
        Next

30/04/2021, 16h01
erataille

Je pense qu'il faut faire commencer i=0 sinon le premier caractère de la chaîne est pas inséré.
Et la dernière case ne s'insère toujours pas .. je vais continuer à chercher vous m'avez bien aidé, merci !

1 pièce(s) jointe(s)

j'ai modifié mais trop tard

ici j'ai 174 caractères!

Code:

1
2
3
4
5
6
7
8
9
10
  TXT = "En mettant un step de 70 pour 6 colonnes et 10 caractères à chaque fois, certains vont être écrasés non?
La première case de chaque ligne sera pas la bonne ou je me trompe ?"
        For i As Int64 = 0 To TXT.LongCount Step 60
            Dim putNewRow As DataRow = table.NewRow
            For k = 0 To table.Columns.Count - 1
                If i + (k * 10) > TXT.LongCount Then Exit For
                If k = 0 Then table.Rows.Add(putNewRow)
                putNewRow(k) = (TXT + "          ").Substring(i + (k * 10), 10)
            Next
        Next

Pièce jointe 596990

30/04/2021, 16h39
erataille

Effectivement ça marche !
Merci beaucoup ^^