Discussion :

[GriffinK]

Bonjour tout le monde,

J'ai un fichier contenant 40 couleurs sous la forme de nombres:

Code :

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

1
2
3
4
5
6
0
16728128
3207989
...
56797
9018330

Sous vb6, mon fichier lisait ces lignes une par une, et mettait la valeur dans un tableau de ColorConstants. L'utilité d'utiliser un fichier est que je peux personnaliser les couleurs en modifiant la valeur correspondante dans le fichier, et vu que le tableau est rempli à chaque fois qu'on lance le logiciel, il est nécessaire de changer la couleur une seule fois.

Aujourd'hui, je dois utiliser sous dotnet un tableau de System.drawing.Colors.

Voici le code:

Code :

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

1
2
3
4
        FileNum = CShort(FreeFile())
        FileOpen(FileNum, "path de mon fichier", OpenMode.Input)
        For I = 0 To 40 : Input(FileNum, colorArray(I)) : Next I
        FileClose(FileNum)

En vb6, ce code fonctionne mais pas en dotnet. L'erreur que je reçois dès le premier input est "Le cast spécifié n'est pas valide".

Quelqu'un aurait une idée ?

[Totanne]

Il veut sans doute te dire que le nombre que tu récupère ne correspond pas au type de ton tableau colorArray.
D'ailleurs quel est son type ? (integer, color ? ...)
As tu essayé de récupérer tes données tel qu'enregistrées puis de les caster avec un truc du type :

Code :

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

Ctype(MaDonnee, Color)

[tomlev]

Code :

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

1
2
3
4
        FileNum = CShort(FreeFile())
        FileOpen(FileNum, "path de mon fichier", OpenMode.Input)
        For I = 0 To 40 : Input(FileNum, colorArray(I)) : Next I
        FileClose(FileNum)

argh
Je te conseille vivement de ne plus utiliser cette méthode pour ouvrir et lire un fichier. C'est un vieux reste de VB6 qui n'a été gardé que pour faciliter la compatibilité du code existant, mais c'est absolument horrible d'un point de vue programmation orientée objet...
La méthode en VB.NET est la suivante :
http://faqvbnet.developpez.com/?page...adwritetxtfile

Sinon, pour ton problème : il faut que tu lises chaque ligne (ça te renvoie une chaine de caractères), que tu convertisses la chaine obtenue en entier (avec CInt ou Int32.Parse), et que tu crées l'objet couleur correspondant avec Color.FromArgb(...). (en supposant que les valeurs de ton fichier représentent la valeur RGB de la couleur).

Au final tu devrais avoir quelque chose comme ç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
' Au début du fichier
Imports System.IO
Imports.Drawing
 
...
 
' Déclaration du tableau de couleurs
Dim colorArray(40) As Color
 
' Ouverture du fichier
Dim file As New StreamReader("path de mon fichier")
 
' Lecture du fichier et remplissage du tableau
For I = 0 To 40
    Dim s As String
    Dim i As Int32
    s = file.ReadLine()
    i = CInt(s)
    colorArray(i) = Color.FromArgb(i)
Next I
 
' Fermeture du fichier
file.Close()

[GriffinK]

Vous avez raison, merci beaucoup pour votre aide

argh
Je te conseille vivement de ne plus utiliser cette méthode pour ouvrir et lire un fichier. C'est un vieux reste de VB6 qui n'a été gardé que pour faciliter la compatibilité du code existant, mais c'est absolument horrible d'un point de vue programmation orientée objet...
La méthode en VB.NET est la suivante :
http://faqvbnet.developpez.com/?page...adwritetxtfile

Sinon, pour ton problème : il faut que tu lises chaque ligne (ça te renvoie une chaine de caractères), que tu convertisses la chaine obtenue en entier (avec CInt ou Int32.Parse), et que tu crées l'objet couleur correspondant avec Color.FromArgb(...). (en supposant que les valeurs de ton fichier représentent la valeur RGB de la couleur).

Au final tu devrais avoir quelque chose comme ç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
' Au début du fichier
Imports System.IO
Imports.Drawing
 
...
 
' Déclaration du tableau de couleurs
Dim colorArray(40) As Color
 
' Ouverture du fichier
Dim file As New StreamReader("path de mon fichier")
 
' Lecture du fichier et remplissage du tableau
For I = 0 To 40
    Dim s As String
    Dim i As Int32
    s = file.ReadLine()
    i = CInt(s)
    colorArray(i) = Color.FromArgb(i)
Next I
 
' Fermeture du fichier
file.Close()

Merci pour le code, c'est effectivement plus clair ainsi

Voila

[tomlev]

n'oublie pas le tag