20220225
dès que le fichier est récupéré, ouvrir/fermer pour mettre à jour l'heure
ce script déduit l'heure de chaque ligne de l'heure du fichier
20220321, ok, Pas vide, 10 jours file051
20220323-1054: chargé à donf, remis au frigo.
' redate les lignes en fonction de l'heure de fin prise dans la date du fichier!
' 20220225
Dim fs
Set fs = CreateObject("scripting.FileSystemObject")
Dim oShell
Set oShell = CreateObject("WScript.Shell")
un=wscript.arguments(iarg)
set fi=fs.opentextfile(un)
set dx=fs.getfile(un)
ast= dx.DateLastModified
if mid(ast,1,10)="01/01/2000" then
msgbox "mettre le fichier à l'heure"
wscript.quit
end if
msgbox "date du fichier" & vbcrlf &ast
set fo=fs.createtextfile(un+".csv")
' compter la durée
while not fi.atendofstream
li=fi.readline
wend
'0@4:31:59 -13,50
msgbox "dernière ligne " & vbcrlf & li
iday=instr(li,"@")
jour=mid(li,1,iday-1)
t1=mid(li,iday+1)
ih=instr(t1,":")
heure=mid(t1,1,ih-1)
t2=mid(t1,ih+1)
im=instr(t2,":")
minu=mid(t2,1,im-1)
t3=mid(t2,im+1)
isec=instr(t3," ")
seconde=mid(t3,1,isec-1)
elapsed=seconde+60*minu+3600*heure+3600*24*jour
fl=jour+ (seconde+60*minu+3600*heure)/(3600*24)
dep=ast-fl
msgbox "extrait de derniere ligne " & vbcrlf & li & vbcrlf & jour & " " & heure & " " & minu & " " & seconde & vbcrlf & elapsed & vbcrlf & fl & vbcrlf & dep
fi.close
set fi=fs.opentextfile(un)
while not fi.atendofstream
li=fi.readline
'fo.writeline li
' stamp ligne
iday=instr(li,"@")
jour=mid(li,1,iday-1)
t1=mid(li,iday+1)
ih=instr(t1,":")
heure=mid(t1,1,ih-1)
t2=mid(t1,ih+1)
im=instr(t2,":")
minu=mid(t2,1,im-1)
t3=mid(t2,im+1)
isec=instr(t3," ")
seconde=mid(t3,1,isec-1)
elapsed=seconde+60*minu+3600*heure+3600*24*jour
fl=jour+ (seconde+60*minu+3600*heure)/(3600*24)
nnn=dep+fl
'msgbox ast & vbcrlf & vbcrlf & dep & fl & vbcrlf & nnn
'wscript.quit
if len(nnn)<19 then
nnn=nnn & " 00:00:00"
msgbox "oops "&dep
end if
ibl=instr(nnn," ")
fo.writeline mid(nnn,1,ibl-1)&"-"&mid(nnn,ibl+1) &" "&li
wend
fo.close