comment lire répertoire oto.csv présent dans un .iniRésolu

Question

s'il vous plais aider moi à résoudre ceci, je crois que pour des connaisseurs de vb .net ça sera facile, moi je suis encore novice.Dim

 cRubrique1 
As
String = 
"toto.csv"
'Nom de la rubrique

Dim cKey1 
As
String = 
"RépertoireDonnées1"
'Nom de la cl‚

Dim cRepertoire1 
As
String = Space(255) 
'Variable r‚cup‚rant la string 

Dim cIniFile1 
As
String = 
"D:\cal.ini"
'Nom du fichier Ini 

Dim istat1 
As
Integer

'Appel de la fonctionistat1 = Get_Private_Profile_String(cRubrique1, cKey1, 

"", cRepertoire1, cIniFile1)

'lire un fichier .csv se trouvant dans le répertoire cRepertoire1

Dim

 fichier1 
As
New StreamReader(cRepertoire1 + 
"	oto.csv") 
'Stream pour la lecture

voila mon .ini à quoi il ressemble

[toto.csv]
RépertoireDonnées1=D:	emp
[Répertoires Entrée/Sortie]
RépertoireSauvegardes=D:	emp\moi

et voila l'erreur qu'il m'affiche

Illegal character in path

PCPT · Accepted Answer

salut,



cRepertoire1 


 contient ton chemin suivit x espaces...., c'est un tampon
il faut d'abord nettoyer tout çà


<hr size="2" width="100%" />
Prenez un instant pour répondre à [forum/sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

gillardg · Answer

Bonjour,

 1  on utilise pas fichier1 AsNew StreamReader(cRepertoire1 + "	oto.csv") 
mais plutôt  fichier1 As

New StreamReader(cRepertoire1 & 
"	oto.csv") 

2  fais une messagebox de ton path

a+

susan72 · Answer

Merci déjà de ta réponse
 j'ai essayé avec ça mais ça fonctionne pas c'est le méme message d'erreur.
si t'as d'autres solutions ça serait bien

gillardg · Answer

Bonjour,

2  fais une messagebox de ton path pour voir ce caractère illégal et mieux comprendre , peut etre ton string contirnt un cr ou lf ou quelque chose du genre 
vérifie !

a+

susan72 · Answer

Merci à vous tous Mais j'ai trouvé. En fait il faudrait faire apparaitre les lignes 

'Enlever le dernier caractère?

If Len(cKeyValue) <> 0 
ThencKeyValue = Mid$(cKeyValue, 1, Len(cKeyValue) - 1)

End
Ifdans la fonction  "Get_Private_Profile_String"

Comment lire répertoire\toto.csv présent dans un .ini

5 réponses

Votre réponse

Discussions similaires