Discussion :

[GoFio]

Bonjour,

Je souhaiterais récupérer un nombre dans un fichier texte qui se situe à la dixème ligne. Le nombre de chiffre peut varier.
Je suis partis sur se code, mais je ne peux pas vraiment le tester, c'est pourquoi j'aimerais avoir vos avis.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub temps_sequence(x As String)
    i As Integer
    Dim fs As Object, src As Object
    'x correspond à l'adresse du fichier
 
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set src = fs.opentextfile(x, 1)
 
    For i = 1 To 9 'saute 9 lignes
        src.skipline
    Next
 
    j = 0
    While Not src.read() = "" 'temps que l'on a des chiffres, on lit les charactères
        tempss = src.read()
        j = j + 1
    Wend
 
    tempssequence = src.read(j)  on lit et récupère le nombre.
 
End Sub

Merci de votre aide.

[Marc-L]

Bonjour, bonjour,
on ne peut pas non plus tester car on n'a pas le fichier texte et imprécise est la présentation ‼

[GoFio]

Quelles infos souhaiteriez vous en plus.

Ma méthode pour arriver à la 10ème ligne est elle correct, de même que celle de la lecture du nombre?

Cordialement

[patricktoulon]

Bonjour
voila un exemple qui te dis a la fin le numero de ligne ou se trouve un nombre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub trouve_le_nombre_dans_le_texte()
'activation de la référence "Microsoft Scripting Run Time" est necessaire
    Dim oFSO As Scripting.FileSystemObject
    Dim oFile As Scripting.TextStream
    Dim ligne As String, Fichier As String
    Dim compte, valeur, a As Long, e As Long
    'adapte ton chemin de fichier
    Fichier = "C:\Users\le sauveur\Desktop\essaitext.txt"
    num = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9)
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    Set oFile = oFSO.OpenTextFile(Fichier, 1)
    Do Until oFile.AtEndOfStream
        a = a + 1
        ligne = oFile.ReadLine
        If a > 9 Then    ' si on a atteint la ligne 9 on teste la presence de chiffre
            For e = 0 To UBound(num)
                If InStr(ligne, num(e)) > 1 Then Exit Do
            Next
        End If
    Loop
    MsgBox "le nombre se trouve dans la ligne " & a
    oFile.Close
End Sub

au plaisir

[GoFio]

Merci pou ta réponse.
Par contre j'ai une erreur de compilation :

Type défini par l'utilisateur non défini

Et le compilateur se bloque sur la première ligne de la sub.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

oFSO As Scripting.FileSystemObject

est sélectioner

J'ai cherché un peu, j'ai cru comprendre qu'il fallait que j'active plusieurs choses dans références :
Microsoft Scripting Runtime
Microsoft DAO 3.6 Object Library
Mais c'est sans succès

Sinon je n'ai pas très bien compris cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

num = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9)

Pourrais tu m'expliquer ce que le code réalise.

Merci!

[GoFio]

Erreur de ma part, ce problème c'est résolu en activant "Microsoft Scripting Runtime"

Par contre j'en ai un autre ^^

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub temps_sequence()
 
    'activation de la référence "Microsoft Scripting Run Time" est necessaire
    Dim oFSO As Scripting.FileSystemObject
    Dim oFile As Scripting.TextStream
    Dim ligne As String, Fichier As String
    Dim compte, valeur, a As Long, e As Long
    Dim num() As Integer
    'adapte ton chemin de fichier
    Fichier = "C:\Documents and Settings\jean dubois\Desktop"
    num = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9)   'ERREUR
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    Set oFile = oFSO.OpenTextFile(Fichier, 1)
    Do Until oFile.AtEndOfStream
        a = a + 1
        ligne = oFile.ReadLine
        If a > 9 Then    ' si on a atteint la ligne 9 on teste la presence de chiffre
            For e = 0 To UBound(num)
                If InStr(ligne, num(e)) > 1 Then Exit Do
            Next
        End If
    Loop
    MsgBox "le nombre se trouve dans la ligne " & a
    oFile.Close

C'est justement à la ligne que je n'ai pas trop saisie.
Tu n'avais pas déclaré la variable num
J'ai donc ajouté une déclaration qui ne doit surement pas convenir, car j'ai une incompatibilité de type.