1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46
|
Function FileTrameInput As String
Const NbMesRx = 500
Dim FileNumber As Integer
Dim BufFile As String * 800
FileNumber = FreeFile
Open App.Path & "\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 |
Partager