Creer fichier texte avec Output et lire avec Random ? [Résolu]

Signaler
Messages postés
28
Date d'inscription
dimanche 1 janvier 2006
Statut
Membre
Dernière intervention
20 août 2015
-
Messages postés
28
Date d'inscription
dimanche 1 janvier 2006
Statut
Membre
Dernière intervention
20 août 2015
-
Bonjour a tous,
J'ai un fichier texte creer avec "For Output as #1"
voici un exemple de ce qui se trouve dans le fichier texte:

08:55:47 EA1:143
08:55:47 EA1:143
08:55:47 EA1:143
08:55:47 EA1:143
08:55:47 EA1:144
08:55:47 EA1:144
08:55:47 EA1:144
08:55:47 EA1:144
08:55:47 EA1:144
08:55:47 EA1:144
08:55:47 EA1:144
08:55:47 EA1:144
08:55:47 EA1:144
08:55:47 EA1:144 EA2:692
08:55:47 EA1:143 EA2:692
08:55:47 EA1:144 EA2:692
08:55:47 EA1:144 EA2:692
08:55:47 EA1:144 EA2:692
08:55:47 EA1:144 EA2:692
08:55:47 EA1:144 EA2:692
08:55:47 EA1:143 EA2:692
08:55:47 EA1:144 EA2:692
08:55:47 EA1:144 EA2:692
08:55:47 EA1:144 EA2:692
08:55:47 EA1:144 EA2:692
08:55:47 EA1:144 EA2:692
08:55:47 EA1:144 EA2:692
08:55:47 EA1:144 EA2:692
08:55:47 EA1:144 EA2:692
08:55:47 EA1:144 EA2:692
08:55:47 EA1:144 EA2:692
08:55:47 EA1:143 EA2:692
08:55:47 EA1:144 EA2:692
08:55:47 EA1:144 EA2:692
08:55:47 EA1:143 EA2:692
08:55:47 EA1:144 EA2:692
08:55:47 EA1:144 EA2:692
08:55:47 EA1:144 EA2:692
08:55:47 EA1:144 EA2:692
08:55:47 EA1:144 EA2:692
08:55:47 EA1:143 EA2:692
08:55:47 EA1:144 EA2:692
08:55:47 EA1:144 EA2:692
08:55:47 EA1:144 EA2:692
08:55:47 EA1:143 EA2:692
08:55:47 EA1:144 EA2:692
08:55:47 EA1:144 EA2:692
08:55:47 EA1:144 EA2:692
08:55:47 EA1:144 EA2:692 EA3:313
08:55:47 EA1:143 EA2:692 EA3:311
08:55:47 EA1:144 EA2:692 EA3:312
08:55:47 EA1:143 EA2:692 EA3:312


Je souhaite relire ce fichier en analysant chaque ligne ?
En vain je n'y arrive pas
Qui a une soluce ?
Merci.
Steph.

4 réponses

Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
65
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
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
35
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?

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]
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
35
j'aurais dû refresh... ^^
Messages postés
28
Date d'inscription
dimanche 1 janvier 2006
Statut
Membre
Dernière intervention
20 août 2015

Merci a vous, ca fonctionne a merveille !!!!!!!

Steph.