Discussion :

[Johnbob]

Salut à tous !

J'ai une variable de type String dans laquelle je stocke une longue suite de mots et nombres respectant le format CSV (c'est à dire séparés par des virgules et avec des sauts de lignes: Vbcrlf). J'aimerais savoir combien il y a de lignes dans mon fichier CSV de départ.

Je stocke ce CSV dans un String donc tout est mis à la suite donc pour compter le nombre de lignes du fichier de base j'essaie de compter le nombre de Vbcrlf dans mon String mais ça marche pas... des idées ?

Merci !

[lexav]

peut-être que tu peux utiliser la fonction split ?
ça te permet de stocker dans un tableau les éléments séparés par un séparateur que tu passes à la fonction => donc le nombre de lignes = longueur du tableau

[Johnbob]

Très bonne idée ! Je me lance dessus tout de suite...

Mon fichier CSV a la tête suivante:

Code :

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

1
2
3
4
5
6
7
Date,Open,High,Low,Close,Volume,Adj. Close*
9-Jan-04,12.25,12.47,11.96,12.29,26342100,12.29
8-Jan-04,11.25,12.43,11.25,12.10,59433800,12.10
7-Jan-04,10.97,11.11,10.81,10.96,16042100,10.96
6-Jan-04,10.55,10.96,10.52,10.90,15934500,10.90
5-Jan-04,10.51,10.54,10.41,10.45,10123200,10.45
2-Jan-04,10.26,10.52,10.25,10.50,5169710,10.50

Pour ceux qui connaissent, il s'agit de cotations boursières.
Dans un premier temps, je voudrais stocker tout ça dans un tableau (fonction 'split') mais je ne sais pas quel caractère délimiteur je dois utiliser pour détecter la fin ou le saut de ligne.

[lexav]

VbCrLf = retour chariot

[Johnbob]

Merci mais j'ai déjà essayé avec VbCrLf (cf. premier post) de la façon suivante:

Code :

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

1
2
' quotes est mon String qui contient les données
Dim test : test = Split(quotes,Vbcrlf)

Et ça ne fonctionne pas malheureusement... Je continue d'essayer mais il doit bien y avoir autre chose que VbCrLf ???

[Arthis]

tu compte les virgules et tu divises ce nombre par le nombre de virgules presentes sur une ligne..
a+

[jfphan]

sinon essaie de passer par les caractères ASCII et utilise la fonction chr:

Code :

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

1
2
Dim test 
test = Split(quotes,chr(15))

[Johnbob]

Merci à tous voici la solution:

Code :

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

Dim test : test = Split(quotes,Chr(10))

Autrement dit, 'VbCrLf' correspond à 'Chr(10)'.

Concernant les virgules, ça me permet bien de connaitre le nombre de lignes mais pas de faire mon split correctement (car absence de virgule en fin de ligne)

Merci encore