Discussion :

[Invité]

Bonsoir,

avant tout voilà 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
Dim list As New _listview(AddressOf Set_listview)
 
                Dim sort As New StreamReader(Application.StartupPath & "\sort.txt")
                While Not sort.ReadToEnd
                    For i = 0 To ID_Message.spells.count - 1
                        Dim line As String = sort.ReadLine()
                        Dim R() As String
                        R = Split(line, "|")
                        MsgBox(R(0))
                        MsgBox(ID_Message.spells(i).spellId.ToString)
                        If R(0) = ID_Message.spells(i).spellId.ToString Then
                            Invoke(list, ListSort, R(1))
                        End If
                    Next
                End While
                sort.Close()

Je cherche a comparer ID_Message.spells(i).spellId.ToString par rapport a mon split du fichier txt r(0) et si il est correct on ajoute r(1) a la listview.

mais voilà l'erreur:

parsing() ToLong -> La conversion de la chaîne "0|Coup de poing
1|Armure Incand" en type 'Long' n'est pas valide.

Je cherche aussi a ajouter plusieurs élément a ma listview:

Code :

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

listview1.items.add(item1,item2,item3)

mais sa n'ajoute qu'a la premier colone l'item1

merci de m'aider

[franticfranz]

Bonjour,

L'erreur se produit sur quelle ligne ?

[Invité]

aucune ma c'est ma fenêtre de sortie qui m'indique cela sinon le texte:
ligne 1: 0|Coup de poing
ligne 2: 1|Armure Incand

[hunteshiva]

Bonjour,

Bon déjà l'idée est pas très bonne d'appeler ton streamReader "sort"
*il y a déja plein de fonctions qui s’appellent sort ... (au mieux str_sort)*
(idem pour list, dans 2 pages de code tu sais plus ce que c'est)

Deuxième point qui me perturbe, c'est la boucle For dans le while.
La syntaxe est correcte mais mettre

Code :

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

Dim line As String = sort.ReadLine()

dedans n'est pas une bonne chose a mes yeux, tu peux faire un dépassement de fichier avec ça
*sauf si sa plante pas quand tu lit des lignes mm si y en a plus*

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
                Dim list As New _listview(AddressOf Set_listview)
                Dim sort As New StreamReader(Application.StartupPath & "\sort.txt")
                Dim line As String
                Dim R() As String
 
                While Not sort.ReadToEnd
                    line = sort.ReadLine()' <-- ici c'est plus raisonnable
                    ' MsgBox(line)          <-- regarde ce que tu a dans ta ligne avant
                    For i = 0 To ID_Message.spells.count - 1
                        R = Split(line, "|")
                        MsgBox(R(0))
                        MsgBox(ID_Message.spells(i).spellId.ToString)
                        If R(0) = ID_Message.spells(i).spellId.ToString Then
                            Invoke(list, ListSort, R(1))
                        End If
                    Next
                End While
                sort.Close()

[Invité]

Merci beaucoup j'avais trouve la meme chose avant de voir ton message mais merci

[hunteshiva]

N'oublie pas