Creer fichier texte avec Output et lire avec Random ?
Résolu
rapido6
Messages postés
28
Date d'inscription
dimanche 1 janvier 2006
Statut
Membre
Dernière intervention
20 août 2015
-
21 juil. 2009 à 08:57
rapido6 Messages postés 28 Date d'inscription dimanche 1 janvier 2006 Statut Membre Dernière intervention 20 août 2015 - 23 juil. 2009 à 07:53
rapido6 Messages postés 28 Date d'inscription dimanche 1 janvier 2006 Statut Membre Dernière intervention 20 août 2015 - 23 juil. 2009 à 07:53
4 réponses
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
74
21 juil. 2009 à 09:07
21 juil. 2009 à 09:07
Dim sBuffer as String
dim xsParts() As String
Open "..." For Input As #1
Do Until EOF(1)
Line Input #1, sBuffer
xsParts = Split(sBuffer, " ")
'# Traitement de xsParts, qui contient les differents elements
Loop
Close #1
Renfield - Admin CodeS-SourceS - MVP Visual Basic
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
21 juil. 2009 à 09:16
21 juil. 2009 à 09:16
salut,
relire chaque ligne? pas clair comme question....
tu as fait OUTPUT, il te suffit de faire INPUT
et pour lire une ligne :
LINE INPUT NUM...
ou lire séparément chaque élément de chaque ligne?
++
[hr]
relire chaque ligne? pas clair comme question....
tu as fait OUTPUT, il te suffit de faire INPUT
et pour lire une ligne :
LINE INPUT NUM...
ou lire séparément chaque élément de chaque ligne?
Private Sub Form_Load()
Dim FF As Integer
Dim sLine As String
Dim asValues() As String
Dim i As Long
Dim j As Integer
FF = FreeFile
i = 0
Open "c:\s.txt" For Input As #FF
Do While Not EOF(FF)
' récupère la ligne
Line Input #FF, sLine
i = i + 1 'pour afficher la ligne
' découpe
asValues = Split(sLine, " ")
' date
Debug.Print "Ligne n°" & i & " =>"
Debug.Print " Horodatage = " & vbTab & asValues(0)
' chaque valeur
For j = 1 To UBound(asValues)
Debug.Print " Valeur " & j & " = " & vbTab & vbTab & asValues(1)
Next j
Debug.Print "-----------------"
Loop
Close #FF
Erase asValues
End Sub
++
[hr]
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
21 juil. 2009 à 09:17
21 juil. 2009 à 09:17
j'aurais dû refresh... ^^
rapido6
Messages postés
28
Date d'inscription
dimanche 1 janvier 2006
Statut
Membre
Dernière intervention
20 août 2015
23 juil. 2009 à 07:53
23 juil. 2009 à 07:53
Merci a vous, ca fonctionne a merveille !!!!!!!
Steph.
Steph.