cs_baz187rem78
Messages postés vendredi 23 mars 2007Date d'inscription
21 juin 2010
Dernière intervention
-
10 mai 2010 à 12:33 - Dernière réponse : cs_baz187rem78
Messages postés vendredi 23 mars 2007Date d'inscription
21 juin 2010
Dernière intervention
- 10 mai 2010 à 13:45
J'ai un petit soucis avec le streamreader, il saute des lignes dans mon fichier texte.
Le streamWriter écrit bien mais du coup je suis obligé d'insérer des saut de lignes dans mon fichier texte pour lire toutes mes données.
Dim file As String
Dim refassemblies As String
FileDialog.ShowDialog()
file = FileDialog.FileName
grdReferencesAssemblies.Rows.RemoveRange(grdReferencesAssemblies.Rows.Fixed, _
grdReferencesAssemblies.Rows.Count - 1)
Dim oFile As New StreamReader(file)
Do
refassemblies = oFile.ReadLine()
grdReferencesAssemblies.Rows.Add()
grdReferencesAssemblies.Item(grdReferencesAssemblies.Rows.Count - 1, 0) = refassemblies
Loop Until oFile.ReadLine Is Nothing
oFile.Close()
Renfield17307
Messages postés mercredi 2 janvier 2002Date d'inscription
18 janvier 2017
Dernière intervention -10 mai 2010 à 12:51
3
Merci
il ne 'saute' pas des lignes, c'est TOI qui les lit ^^
une ici :
refassemblies = oFile.ReadLine()
et une ici:
Loop Until oFile.ReadLine Is Nothing
faire en gros:
Do
refassemblies = oFile.ReadLine()
If refassemblies Is Nothing Then
Exit Do
End If
grdReferencesAssemblies.Rows.Add()
grdReferencesAssemblies.Item(grdReferencesAssemblies.Rows.Count - 1, 0) = refassemblies
Loop
a aidé 74 internautes ce mois-ci