Virgule dans un fichier TXT
ScorpionBlanc
Messages postés
2
Date d'inscription
samedi 26 mars 2005
Statut
Membre
Dernière intervention
10 août 2009
-
10 août 2009 à 17:24
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 11 août 2009 à 11:08
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 11 août 2009 à 11:08
2 réponses
cs_Jack
Messages postés
14006
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
79
10 août 2009 à 20:38
10 août 2009 à 20:38
BONJOUR aussi
Ta question manque de précision.
Que veux-tu qu'on te réponde ?
"Importer un fichier TXT" : Qu'as-tu écrit pour lire les données ?
"ca passe a la ligne" : "ca
", c'est ton programme, il n'y a que toi qui sache dire pourquoi
Alors si tu veux de l'aide, il va falloir être plus précis sans pour autant nous inonder de code : Ne colle que les lignes là où ça se passe.
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Ta question manque de précision.
Que veux-tu qu'on te réponde ?
"Importer un fichier TXT" : Qu'as-tu écrit pour lire les données ?
"ca passe a la ligne" : "ca
", c'est ton programme, il n'y a que toi qui sache dire pourquoi
Alors si tu veux de l'aide, il va falloir être plus précis sans pour autant nous inonder de code : Ne colle que les lignes là où ça se passe.
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
74
11 août 2009 à 11:08
11 août 2009 à 11:08
utilises d'autres commandes de lecture...
lis tout le contenu, et zou :
Dim i As Long
Dim xsLines() As String
Open "C:\MonFichier" For Input As #1
xsLines(Input(LOF(1), 1), vbNewLine)
Close #1
For i = 0 To UBound(xsLines)
[...]
Next i
Renfield - Admin CodeS-SourceS - MVP Visual Basic
lis tout le contenu, et zou :
Dim i As Long
Dim xsLines() As String
Open "C:\MonFichier" For Input As #1
xsLines(Input(LOF(1), 1), vbNewLine)
Close #1
For i = 0 To UBound(xsLines)
[...]
Next i
Renfield - Admin CodeS-SourceS - MVP Visual Basic
