Discussion :

[hawax]

bonjour

Je voudrais savoir si il existe un moyen rapide et effficace afin de scruter periodiquement un fichier texte(fichier syslog) afin de detecter l'ajour d'une nouvelle entrée.
La methode classique serait de sauvegarder a chaque intervalle le nbr de lignes de mon fichier puis de tester.ca me parrait impeu tiré par les cheuveux
Merci d'avance

[ThierryAIM]

et tester la taille du fichier ?

[hawax]

Mouais.....effectivement..mais je serais tjrs obligé de lire la totalité du fichier pour acceder a la derniere ligne
en fait je doit modifier une appli qui anterieurement recevait des données sur le port COM(les données arrivaient vers un port serie, donc pas de soucis...ca marche tout seul).Désormais je dois lire dans un syslog....et en plus, distant...
Merci

[ProgElecT]

sur une frm
un label (LabLargeFont) (oublié au premier envoi)
Un commandialog
un commandbutton
un listbox

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
Option Explicit
Dim Chemin, Fichier, Resultat As String
Dim NamIndx(34) As String
Dim T, U As Byte
Dim LargMin, HautMin As Integer
 
Private Sub Form_Resize()
If Me.WindowState <> vbMinimized Then
 If Me.WindowState = vbNormal Then
  If Me.Height < 1035 Then Me.Height = 1035
  If Me.Width < 2670 Then Me.Width = 2670
 End If
 List1.Height = (Me.Height - List1.Top) - (List1.Left * 8)
 List1.Width = Me.Width - (List1.Left * 4)
End If
End Sub
 
Private Sub Form_Load()
NamIndx(0) = "Name": NamIndx(1) = "Size": NamIndx(2) = "Type"
NamIndx(3) = "Date Modified": NamIndx(4) = "Date Created": NamIndx(5) = "Date Accessed"
NamIndx(6) = "Attributes": NamIndx(7) = "Status": NamIndx(8) = "Owner"
NamIndx(9) = "Author": NamIndx(10) = "Title": NamIndx(11) = "Subject"
NamIndx(12) = "Category": NamIndx(13) = "Pages": NamIndx(14) = "Comments"
NamIndx(15) = "Copyright": NamIndx(16) = "Artist": NamIndx(17) = "Album Title"
NamIndx(18) = "Year": NamIndx(19) = "Track Number": NamIndx(20) = "Genre"
NamIndx(21) = "Duration": NamIndx(22) = "Bit Rate": NamIndx(23) = "Protected"
NamIndx(24) = "Camera Model": NamIndx(25) = "Date du cliché": NamIndx(26) = "Dimensions"
NamIndx(27) = "Not used": NamIndx(28) = "Not used": NamIndx(29) = "Not used"
NamIndx(30) = "Company": NamIndx(31) = "Description": NamIndx(32) = "File Version"
NamIndx(33) = "Product Name": NamIndx(34) = "Product Version"
U = 0
For T = 0 To 34
 If Len(NamIndx(T)) > U Then U = Len(NamIndx(T))
Next T
U = U + 1
For T = 0 To 34
 NamIndx(T) = NamIndx(T) & String$(U - Len(NamIndx(T)), " ") & ": "
 If T < 10 Then NamIndx(T) = " " & NamIndx(T)
Next T
List1.Clear
End Sub
 
Private Sub Command1_Click()
CommonDialog1.Flags = cdlOFNFileMustExist + cdlOFNHideReadOnly
CommonDialog1.Flags = CommonDialog1.Flags + cdlOFNPathMustExist + cdlOFNExplorer
CommonDialog1.CancelError = True
On Error Resume Next
CommonDialog1.ShowOpen
If Err.Number <> 0 Then On Error GoTo 0: Exit Sub
Fichier = CommonDialog1.FileTitle
Chemin = Left$(CommonDialog1.FileName, Len(CommonDialog1.FileName) - Len(Fichier))
informationsFichier
LargMin = (LargMin + 1) * LabLargeFonte.Width
HautMin = (240 * (List1.ListCount - 1))
'redimenssionnes si besoin
If List1.Height < HautMin Then
 List1.Height = HautMin
 Me.Height = List1.Height + List1.Top + (List1.Left * 8)
End If
If List1.Width < LargMin Then
 List1.Width = LargMin
 Me.Width = LargMin + (List1.Left * 4)
End If
End Sub
 
Public Sub informationsFichier()
'recuperé sur ce forum pour avoir les infos que tu recherche
'necessite d'activer reference Microsoft Shell Controls and Automation
 
Dim objShell As Shell
Dim objFolder As Folder
Dim strFileName As FolderItem
 
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(Chemin) 'adapter le chemin
Set strFileName = objFolder.Items.Item(Fichier) 'adapter le fichier
List1.Clear: LargMin = 0
For T = 0 To 34
 If objFolder.GetDetailsOf(strFileName, T) <> "" Then
  List1.AddItem CStr(T) & " " & NamIndx(T) & Trim$(objFolder.GetDetailsOf(strFileName, T))
  If LargMin < Len(List1.List(List1.NewIndex)) Then LargMin = Len(List1.List(List1.NewIndex))
 End If
Next
Set objShell = Nothing: Set objFolder = Nothing: Set strFileName = Nothing
End Sub

"Date Modified": NamIndx(4)
en retenant la derniere date/heure du fichier et en la comparant par la suite
If OldDate <> DateDernierAppel then
'comparer ou/et le fichier à ete modifié

[hawax]

Merci pour vos reponses
C bon mais il faudrait que ca me retourne une date plus precise...car si mon fichier est modifié 2 fois pendant une minute, mon traitement sera faux.
dateDernieremodif retourne par exemple 17/10/200 13:30
il me faudrait au moins les secondes...

Merci

[jmfmarques]

Tu auras plus qu'il ne t'en faut avec ceci !
ToutApi

[bidou]

y a des moments où vous me faites un peu peur les gars

normalement FileDateTime devrait le faire. Par exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Command1_Click()
 
 If DateDiff("s", Me.Label1.Caption, FileDateTime("d:\user\test.txt")) > 0 Then
    MsgBox "Modifié"
 End If
 
End Sub
 
Private Sub Form_Load()
 
Me.Label1.Caption = FileDateTime("d:\user\test.txt")
 
End Sub

[hawax]

BIDOU : +1

Merci a tous

[Vld44]

C'est pas propre tout ça :>

Ouvrir un fichier ne veut pas dire ajouter une ligne à la fin ...

[bidou]

C'est pas propre tout ça :>

Ouvrir un fichier ne veut pas dire ajouter une ligne à la fin ...

Certes, mais comme on ne regarde pas la date d'ouverture non plus, ce n'est pas trop grave...

[Vld44]

peu importe, même si c'est la date de sauvegarde, ce n'est pas parcequ'il y a eu une sauvegarde que le fichier a changé de contenu ...

[bidou]

sur un fichier en général non, mais sur un fichier de log si.
Un fichier de log c'est un fichier qu'une apllication ouvre pour ajout, ajoutes des trucs et referme.

[omen999]

on peut aussi utiliser le flag archive avec SetAttr