cs_JeffC1977
Messages postés928Date d'inscriptionvendredi 10 novembre 2000StatutMembreDernière intervention23 septembre 2023
-
20 août 2007 à 02:34
cs_JeffC1977
Messages postés928Date d'inscriptionvendredi 10 novembre 2000StatutMembreDernière intervention23 septembre 2023
-
20 août 2007 à 20:06
Salut tout le monde
J'ai essayé quelque truc pour mettre mon fichier texte dans un tableau et j'en suis rendu seulement là... (Voir code ci-bas)
ERREUR #1: J'ai un message d'erreur concernant ma variable Fichier (voir caractère gras et souligné)
Erreur: Value of type 'String' cannot be converted to 'System.Array'
Pourquoi j'ai ce message d'erreur qu'est ce que je ne fais pas de correct... encore... :(
ERREUR #2 J'ai un message d'erreur disant:
'Redim' cannot change the number of dimension of an array.
Il est impossible de redimensionner un tableau en Compact Framework ?????
Merci d'avance
Private
Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Tableau() As
String
Dim Fichier As
String
Dim ObjetFichier As StreamReader = New StreamReader(AppPath & "\Coord.txt")
While
Not ObjetFichier.EndOfStream
Fichier = ObjetFichier.ReadLine
For i AsInteger = 0 To UBound( Fichier ) 'ERREUR #1
If LineCount = 0
Then
ReDimTableau(4, LineCount) 'ERREUR #2
Baguauda
Messages postés219Date d'inscriptionmercredi 31 août 2005StatutMembreDernière intervention28 novembre 20081 20 août 2007 à 08:17
1) Ubound prend en paramétre une tableau et non un object de type string.
2) ton tableau n'est pas instancié donc la fonction Redim ne peut pas fonctionné.
juste une petit conseil qui personnelement m'aide.
Ecrit sur papier un algorithme de ce que tu souhaite faire.
Ensuite tu n'auras plus qu'a traduire en code.
cs_JeffC1977
Messages postés928Date d'inscriptionvendredi 10 novembre 2000StatutMembreDernière intervention23 septembre 20234 20 août 2007 à 13:43
Baguauda Dans le fond, je veux tout simplement faire un tableau de mon fichier texte.
Je veux que ce tableau continne 5 Colonnes par le nombre de lignes que contient mon fichier texte.
Mon séparateur de mon fichier texte est l'espace (" ")
Maisntenant je suis rendu à traduire le code..... et c'est là mon problème.....
J'ai réussi à la faire en VB6 mais en .Net je n'y arrive pas....
Baguauda
Messages postés219Date d'inscriptionmercredi 31 août 2005StatutMembreDernière intervention28 novembre 20081 20 août 2007 à 15:33
Si tu connais la taille de ton tableau n'utilise pas les Redim
Ayant quitté vb depuis longtemps je ne suis pas certain de la synthaxe
Mais cela devrais ressemblé a un truc dans le genre (en utilisant le code de [auteurdetail.aspx?ID=1038650 P0lO])Dim ObjetFichier
As StreamReader =
New StreamReader(AppPath &
"\Coord.txt")
WhileNot ObjetFichier.EndOfStream
P0lO
Messages postés65Date d'inscriptionmercredi 18 avril 2007StatutMembreDernière intervention12 juin 20081 20 août 2007 à 16:32
Précise les erreurs tu sais je n'ai jamais fait de VB donc j'y vais un peu à l'instinct en plus les exemple que je te passe je les tape directement ici donc je ne les compiles pas c'est juste pour te donner un ordre d'idée de la démarche à suivre...
cs_JeffC1977
Messages postés928Date d'inscriptionvendredi 10 novembre 2000StatutMembreDernière intervention23 septembre 20234 20 août 2007 à 20:06
Re...
J'ai réussi à trouver un code qui ressemble à ce que je veux faire...
Le seul problème c'est que je ne réussi pas à créer un Tableau multidimension
Le code fonctionne très bien pour un tableau 1 dimension... Mais je dois avoir un Tableau qui a 5 Colonnes avec le nombre de Ligne que contient mon fichier texte.
J'ai essayé de créer une variable Tableau(0,0) pour pouvoir le redimension plus tard = Erreur
Le Redim ne fonctionne pas.. enfin je ne sais pas où le mettre pour que ca fonctionne....
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Uni As
String
Dim i As
Integer
Dim Tableau(50) AsString'J'écris quoi ici Tableau (0,0) et je le redimensionne plus bas??? Mais où???
Try
Dim ObjetFichier As StreamReader = New StreamReader(AppPath & "\Coord.txt")
Do
Uni = ObjetFichier.ReadLine()
If Uni IsNothing
Then
i = i - 1
Else
Tableau(i) = Uni
End
If
i = i + 1
TextBox1.Text = Tableau(i)
LoopUntil Uni Is
Nothing
ObjetFichier.Close()
i = i - 1
Catch exc As Exception
MsgBox("Fichier inexistant")
EndTry