Solenoyde
Messages postés14Date d'inscriptionjeudi 17 janvier 2008StatutMembreDernière intervention 4 février 2008 4 févr. 2008 à 13:35
Ah merci pour ce commentaire !
C'est vrai que la fonction est un peut longue pour ce quelle fait hehe ...
et cette petite ligne 'dim ligne As string = fileContents.split(separateurLigne)(Ligne) ma l'air bien sympa.
Je vais donc essayer d'appliquer votre conseil et encore merci, car sans crtitiques on progresse pas beaucoup tout seul...
cs_JACKY007
Messages postés23Date d'inscriptionvendredi 16 septembre 2005StatutMembreDernière intervention 1 décembre 2010 4 févr. 2008 à 09:02
C'est bien compliqué pour une si petite chose...
1er étape : lire le fichier.
Conseil pour commenser, utilise les extraits de codes !!!
Celui-ci nous donne :
Dim fileContents As String
fileContents = My.Computer.FileSystem.ReadAllText("C:\Test.txt")
Ensuite on pointe sur la ligne :
dim ligne As string = fileContents.split(separateurLigne)(Ligne)
Généralement, separateurLigne=vbLf : tu peux le mettre dans la fonction en optionnal. Cela te permettra de l'utiliser plus tard pour d'autres choses
Puis sur notre champ :
dim champ As string = ligne.split(separateurColonne)(Colonne)
return champ
Fini !
En 3 lignes (sans la gestion d'erreur) tu as le résultat...
Pour ce qui est de du nombre de lignes et de colonnes tu peux rajouter des UBound sur les tableaux (il te faudra 2 lignes de plus!)
Dernier conseil : place ta fonction dans tes extraits de codes pour la réutiliser plus tard.
Sinon ton code est propre, bien aéré et commenté.
Bonne chance pour la suite.
Respectueusement.
4 févr. 2008 à 13:35
C'est vrai que la fonction est un peut longue pour ce quelle fait hehe ...
et cette petite ligne 'dim ligne As string = fileContents.split(separateurLigne)(Ligne) ma l'air bien sympa.
Je vais donc essayer d'appliquer votre conseil et encore merci, car sans crtitiques on progresse pas beaucoup tout seul...
4 févr. 2008 à 09:02
1er étape : lire le fichier.
Conseil pour commenser, utilise les extraits de codes !!!
Celui-ci nous donne :
Dim fileContents As String
fileContents = My.Computer.FileSystem.ReadAllText("C:\Test.txt")
Ensuite on pointe sur la ligne :
dim ligne As string = fileContents.split(separateurLigne)(Ligne)
Généralement, separateurLigne=vbLf : tu peux le mettre dans la fonction en optionnal. Cela te permettra de l'utiliser plus tard pour d'autres choses
Puis sur notre champ :
dim champ As string = ligne.split(separateurColonne)(Colonne)
return champ
Fini !
En 3 lignes (sans la gestion d'erreur) tu as le résultat...
Pour ce qui est de du nombre de lignes et de colonnes tu peux rajouter des UBound sur les tableaux (il te faudra 2 lignes de plus!)
Dernier conseil : place ta fonction dans tes extraits de codes pour la réutiliser plus tard.
Sinon ton code est propre, bien aéré et commenté.
Bonne chance pour la suite.
Respectueusement.