Discussion :

[erataille]

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?

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
 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 :



Merci d'avance pour l'aide

[Thumb down]

bonjour,
perso je verrais un truc comme ça!

Code :

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

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)

[erataille]

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 :




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

[Thumb down]

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

Code :

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

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

[erataille]

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)

[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 :

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

For i As Int64 = 1 To TXT.LongCount Step 100

[erataille]

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

Code :

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

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

[Thumb down]

si tu considère 10 caractères par colonne on est à step 70!

[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 ?

[Thumb down]

chez mois ca fonctionne

Code :

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

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

[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 !

[Thumb down]

j'ai modifié mais trop tard

ici j'ai 174 caractères!

Code :

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

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

[erataille]

Effectivement ça marche !
Merci beaucoup ^^