Lecture d'un fichier à accès random

Question

Je veux faire une lecture de fichier en vba, d'un fichier TrameRx_IP.DAT, C'est un fichier à accès random. Après un enregistrement de 500 évènements le transmetteur vocalys supprime les évènements et faire un nouvel enregistrement. Moi je veux lire dans le fichier et faire une sauvegarde de tous les évènements .

j'ai essayé avec ce code mais ça ne marche pas quelqu'un pourrait t-il m'aider.

Function FileTrameInput( Trame As String) As String

Const NbMesRx = 500

Dim FileNumber As Integer

Dim BufFile As String * 800

    FileNumber = FreeFile

    Open App.Path & "C:\TrameRx_IP.DAT" For Random As FileNumber Len = Len(BufFile)

    ' Lecture des pointeurs

    Get #FileNumber, 1, BufFile

    gintPtReTi = Val(Mid(BufFile, 1, 5))

    gintPtWrTi = Val(Mid(BufFile, 6, 10))

        ' Lecture trame

            ' Test des limites pointeur lecture

            If gintPtReTi > NbMesRx Or gintPtReTi < 2 Then

                gintPtReTi = 2

            Else

                gintPtReTi = gintPtReTi + 1

            End If

            BufFile = Format(gintPtReTi, "00000") & Format(gintPtWrTi, "00000")

            ' Mise à jour Pointeurs

            Put #FileNumber, 1, BufFile

            ' Lecture de la trame

            Get #FileNumber, gintPtReTi, BufFile

            FileTrameInput = Trim(BufFile)

            ' Effacement de la trame

            BufFile = ""

            Put #FileNumber, gintPtReTi, BufFile

    Close #FileNumber

End Function

Amicalement

Banzai64 · Answer

Sans tes fichiers pas facile de t'aider +...