Surveillance du forum

Nombre de messages : 7095 Localisation : 77 Date d'inscription : 29/11/2007

On s'est croisés, regarde dans ton source publié, ligne 238, le &quot a disparu...

Après j'ai un File does not exists ligne 247 (C:\TEMP\Forum.txt), apparemment il n'a pas été créé par la sub Html2Txt.
Cette création se faisait dans la dernière ligne de ma sub du même nom chez moi, et cette ligne a disparu chez toi ???
Non, autant pour moi, elle existe bien, elle a mystérieusement disparu quand j'ai rapatrié ton code ... scratch

Je n'ai plus d'erreur, mais toujours pas d'affichage de l'état actuel... bizarre.

Petit pb ligne 241...

Nombre de messages : 7095 Localisation : 77 Date d'inscription : 29/11/2007

C'est le data ligne 238, il faut mettre ceci:

Code:: DATA " ","<",">","&",""","»","F": ' caractère à remplacer

Mais on ne sort pas de la boucle 'remplacement des caractères spéciaux', il doit y avoir un os dans les autres Datas (une farce du forum ?)

PS Effectivement, c'est l'interprète du forum qui fait des siennes.
Il faut remplacer (dans le code de papydall) les 3 lignes de DATAs par la version originale:

Code:: DATA "Carspe": ' caractères spéciaux, à remplacer (à compléter éventuellement)
DATA " ","<",">","&",""","»","F": ' caractère à remplacer
DATA " ","<",">","&",CHR$(34),CHR$(13)+CHR$(10)+CHR$(187): ' caractère(s) de remplacement

Chez moi ça marche après la modification de la ligne 238.

Une idée :
Dans la SUB Lancer() à partir de la ligne 215, si, au lieu de HIDE 0 puis … SHOW 0, on fait MINIMIZE 0 puis … NORMAL 0, on aura peut-être une autre façon de quitter le programme sans attendre qu’un message soit posté sur le Forum.
Qu'en pensez-vous?

Nombre de messages : 7095 Localisation : 77 Date d'inscription : 29/11/2007

Essaye ?

Peut-être ce soir car on m’appelle et je dois répondre présent sinon ….

Nombre de messages : 7095 Localisation : 77 Date d'inscription : 29/11/2007

@papydall et les autres,
Il y a un moyen simple de tuer une tâche active quelle qu'elle soit.
Je me suis d'ailleurs fait un petit module spécialisé Panoramic (icône sur le bureau) qui tue PANORAMIC.exe, quand j'ai un programme qui boucle ou autre et qu'on ne peut pas arrêter par la procédure normale.
C'est la commande:

Code:: taskkill.exe /F /IM PANORAMIC.exe

Voici un petit programme que j'ai appelé Kill (malin, non ?) qui permet de tuer n'importe quelle tâche récalcitrante: ça affiche toutes les tâches actives, il suffit de cliquer sur celle qu'on veut tuer, puir 'Kill'
(à transformer en exécutable, sur le bureau, c'est plus accessible:

Code:: ' Kill.bas tuer une tâche Windows récalcitrante
DIM fm$, a$, i%, w0, h0, hp%, tsk$(200), nta
LABEL Kill

fm$ = "C:\Temp\Tasklist.txt": ' fichier de manoeuvre, -- A AJUSTER --
' paramètres de Tasklist, voir: http://windows.developpez.com/cours/ligne-commande/?page=page_19

EXECUTE_WAIT "Cmd.exe /c Tasklist.exe >" + fm$
FILE_OPEN_READ 1, fm$
   FILE_READLN 1, a$: FILE_READLN 1, a$: FILE_READLN 1, a$: ' en-tête
   WHILE FILE_EOF(1) = 0
   FILE_READLN 1, a$
   IF INSTR(a$, "Console") > 0
   a$ = LEFT$(a$, 20): nta = nta + 1: tsk$(nta) = a$
   END_IF
   END_WHILE
FILE_CLOSE 1: FILE_DELETE fm$
hp% = 13: w0 = 200: h0 = (nta+2)*hp%+65
WIDTH 0, w0: HEIGHT 0, h0: CAPTION 0, " - KILL -"
LIST 1: WIDTH 1, w0-17: HEIGHT 1, h0-40: COLOR 1, 255,255,192
FONT_NAME 1, "Verdana": FONT_SIZE 1, 8
FOR i% = 1 TO nta
   ITEM_ADD 1, tsk$(i%)
NEXT i%
SORT 1
ITEM_INSERT 1,1," .TACHES CONSOLE ACTIVES."
ITEM_INSERT 1,2," ----------------------------------"
BUTTON 2: TOP 2, h0-60: LEFT 2, 4: WIDTH 2, w0-68: HEIGHT 2, 18: CAPTION 2, "Clic la tâche à tuer, puis ->"
BUTTON 3: TOP 3, h0-60: LEFT 3, w0-62: WIDTH 3, 40: HEIGHT 3, 18: CAPTION 3, "Kill"
ON_CLICK 3, Kill
END

Kill:
IF ITEM_INDEX(1)<3 OR ITEM_INDEX(1)>(nta+2) THEN RETURN
EXECUTE "Cmd.exe /c taskkill.exe /F /IM " + ITEM_INDEX$(1)
TERMINATE

Merci JL35

Nombre de messages : 7095 Localisation : 77 Date d'inscription : 29/11/2007

Pour en revenir à la surveillance du forum, papydall a suggéré la solution la plus pratique à mon sens pour tuer la tâche en cours de veille, c'est à dire la minimiser pour qu'elle soit toujours accessible.

Sous W7 (ça doit être semblable pour les autres), la tâche se trouve réduite sous forme d'un caption en bas à gauche, il suffit de cliquer dessus à tout moment, Windows propose 'Restaurer' ou 'Fermer', il faut choisir Restaurer (Fermer ne fait rien), la fenêtre revient en grandeur nature, et là on fait 'Quitter'.
Ce Quitter ne prend effet qu'en dehors des pauses (SUB Lancer), aussi j'ai réduit la boucle de celles-ci de 30 secondes à 3 secondes pour avoir une réaction plus rapide.
J'ai aussi changé le caption de la fenêtre réduite, pour afficher les périodes d'activité et de veille (pas très important).
Revoici le programme complet (version papydall modifiée):

Code:: REM ============================================================================
REM Surveillance du forum Panoramic
REM AUTEUR : JL35
rem Reformulé par : papydall
REM ============================================================================
Init()
Make_Script()
GUI()
end
rem ============================================================================
SUB Init()
   LABEL clic
   DIM url$,frec$,rect$,fref$,recf$,f$,a$,b$,i%,k%,m%,cat$,suj$,mes$,der$,aut$,gui$
   DIM Titref$(20),Datref$(20),Titact$(20),Datact$(20),nref%,nact%,tr%,nl%,wf%,hf%,n%
   DIM lf%,tp%,srv%,df%,fscr$

   url$ = "http://panoramic.1fr1.net/"
   frec$ = "C:\TEMP\Forum.htm"
   rect$ = "C:\TEMP\Forum.txt"
   fref$ = "C:\TEMP\Forum_ref.htm"
   recf$ = "C:\TEMP\Forum_ref.txt"

   fscr$ = "C:\Temp\Scrdnl.vbs": ' script vbs
   gui$ = CHR$(34)
END_SUB
REM ============================================================================
' Script vbs de lecture de la page web url$ dans un fichier html (frec$)
DATA "Debscr"
DATA "HTTPDownload "+gui$+url$+gui$+", "+gui$+frec$+gui$
DATA "Sub HTTPDownload( URL, Path )"
DATA "Dim i, objFile, objFSO, objHTTP, strFile, strMsg"
DATA "Const ForReading = 1, ForWriting = 2, ForAppending = 8"
DATA "Set objFSO = CreateObject( "+gui$+"Scripting.FileSystemObject"+gui$+" )"
DATA "strFile = Path"
DATA "Set objFile = objFSO.OpenTextFile( strFile, ForWriting, True )"
DATA "Set objHTTP = CreateObject( "+gui$+"WinHttp.WinHttpRequest.5.1"+gui$+" )"
DATA "objHTTP.Open "+gui$+"GET"+gui$+", URL, False"
DATA "objHTTP.Send"
DATA "For i = 1 To LenB( objHTTP.ResponseBody )"
DATA " objFile.Write Chr( AscB( MidB( objHTTP.ResponseBody, i, 1 ) ) )"
DATA "Next"
DATA "objFile.Close( )"
DATA "End Sub"
DATA "Finscr"
REM ============================================================================
SUB Make_Script()
   RESTORE: READ a$: WHILE a$ <> "Debscr": READ a$: END_WHILE
   FILE_OPEN_WRITE 9, fscr$
   READ a$: WHILE a$ <> "Finscr": FILE_WRITELN 9, a$: READ a$: END_WHILE
   FILE_CLOSE 9
END_SUB
REM ============================================================================
SUB GUI()
   WIDTH 0,637: HEIGHT 0,430: BORDER_SMALL 0: COLOR 0,190,255,255
   font_name 0,"Arial": font_bold 0: font_color 0,0,0,255
   CAPTION 0," SURVEILLANCE FORUM"

   MEMO 5: HIDE 5: WIDTH 5,400: HEIGHT 5,300: ' memo de manoeuvre
   ALPHA 11: TOP 11,5: LEFT 11,100: CAPTION 11," PRÉCÉDENT ": COLOR 11,255,255,0
   ALPHA 12: TOP 12,5: LEFT 12,400: CAPTION 12," ACTUEL ": COLOR 12,255,255,0
   BUTTON 15: TOP 15,0: LEFT 15,520: WIDTH 15,100: CAPTION 15,"Se connecter"
   ON_CLICK 15,clic : ' Connect
   ALPHA 100: TOP 100,HEIGHT(0)-60

   CAPTION 100,"Lancer la surveillance périodique, délai: minutes"
   SPIN 101: TOP 101,TOP(100)-3: LEFT 101,225: WIDTH 101,40
   MIN 101,1: MAX 101,100: POSITION 101,10
   BUTTON 102: TOP 102,TOP(101): LEFT 102,LEFT(101)+90: WIDTH 102,140
   CAPTION 102,"Lancer ou relancer"
   ON_CLICK 102,clic : ' Lancer
   BUTTON 104: TOP 104,TOP(102): LEFT 104,LEFT(102)+220: CAPTION 104,"Quitter"
   ON_CLICK 104,clic : ' Quitter

   Surveil()
   srv% = 0
END_SUB
REM ============================================================================
clic:
   select number_click
   case 15 : Connect()
   case 102 : Lancer()
   case 104 : Quitter()
   end_select
RETURN
REM ============================================================================
SUB Surveil()
   IF FILE_EXISTS(recf$) = 0
   EXECUTE_WAIT "WSCRIPT.exe " + fscr$: ' capture de la page, -> frec$ (htm)
   IF FILE_EXISTS(fref$) = 1 THEN FILE_DELETE fref$
   FILE_COPY frec$,fref$: ' fichier référence
   Html2Txt(fref$,recf$): ' conversion htm -> texte pur
   FILE_DELETE fref$
   f$ = recf$: Transfert()
   m% = 2: nref% = nact%: IF srv% = 0 THEN Crelist()
   FOR i% = 60 TO 60+nact%: CLEAR i%: NEXT i%
   FILE_OPEN_WRITE 1,recf$
   ITEM_ADD 20, " ********** "+DATE$+" à " +LEFT$(TIME$,5)+" **********"
   FILE_WRITELN 1, " ********** "+DATE$+" à " +LEFT$(TIME$,5)+" **********"
   FOR i% = 1 TO nact%
   ITEM_ADD 20+i%,Titact$(i%): FILE_WRITELN 1,Titact$(i%)
   ITEM_ADD 20+i%,Datact$(i%): FILE_WRITELN 1,Datact$(i%)
   NEXT i%
   FILE_CLOSE 1
   MESSAGE "Référence créée !"
   ELSE
   FILE_OPEN_READ 1,recf$
   FILE_READLN 1,b$: ' date/heure
   nref% = 0
   WHILE FILE_EOF(1) = 0
   FILE_READLN 1, a$
   IF LEFT$(a$,1) = CHR$(187)
   nref% = nref%+1: Titref$(nref%) = a$
   ELSE
   Datref$(nref%) = a$
   END_IF
   END_WHILE
   FILE_CLOSE 1
   m% = 1: IF srv% = 0 THEN Crelist()
   FOR i% = 20 TO 20+nref%: CLEAR i%: NEXT i%
   ITEM_ADD 20,b$: ' date/heure de la référence
   FOR i% = 1 TO nref%
   ITEM_ADD 20+i%,Titref$(i%): ITEM_ADD 20+i%,Datref$(i%)
   NEXT i%
   ' téléchargement de l'état actuel:
   EXECUTE_WAIT "WSCRIPT.exe " + fscr$: ' capture de la page actuelle -> frec$
   Html2Txt(frec$,rect$): ' conversion htm -> texte pur
   FILE_DELETE frec$
   f$ = rect$: Transfert()
   FILE_DELETE rect$
   m% = 2: IF srv% = 0 THEN Crelist()
   FOR i% = 60 TO 60+nact%: CLEAR i%: NEXT i%
   FILE_OPEN_WRITE 1,recf$: ' devient la nouvelle référence
   ITEM_ADD 60, " ********** "+DATE$+" à " +LEFT$(TIME$,5)+" **********"
   FILE_WRITELN 1, " ********** "+DATE$+" à " +LEFT$(TIME$,5)+" **********"
   FOR i% = 1 TO nact%
   ITEM_ADD 60+i%,Titact$(i%): FILE_WRITELN 1,Titact$(i%)
   ITEM_ADD 60+i%,Datact$(i%): FILE_WRITELN 1,Datact$(i%)
   NEXT i%
   FILE_CLOSE 1
   ' comparaison de l'état actuel avec le précédent
   Compare()
   END_IF
END_SUB
REM ============================================================================
' nettoyage du fichier texte, transfert dans les tables
SUB Transfert()
   FILE_OPEN_READ 1,f$
   nact% = 0
   WHILE FILE_EOF(1) = 0
   FILE_READLN 1, a$: a$ = TRIM$(a$)
   IF a$ <> ""
   IF INSTR(a$,"Derniers sujets") > 0
   FILE_READLN 1, a$: a$ = TRIM$(a$)
   WHILE INSTR(a$,"Navigation") = 0
   k% = INSTR(a$,CHR$(187))
   IF k% > 0: ' caractère >>
   a$ = MID$(a$,k%,LEN(a$))
   nact% = nact%+1
   Titact$(nact%) = a$
   FILE_READLN 1,a$
   Datact$(nact%) = a$
   END_IF
   FILE_READLN 1,a$: WHILE TRIM$(a$)="": FILE_READLN 1,a$: END_WHILE
   END_WHILE
   END_IF
   END_IF
   END_WHILE
   FILE_CLOSE 1
END_SUB
REM ===========================================================================
SUB Crelist()
   wf% = 310: hf% = 35
   IF m% = 1
   nl% = 20: lf% = 0: n% = nref%
   ELSE
   nl% = 60: lf% = wf%: n% = nact%
   END_IF
   LIST nl%: TOP nl%, 20: LEFT nl%,lf%: WIDTH nl%,wf%: HEIGHT nl%,20
   COLOR nl%,180,255,180: FONT_SIZE nl%,10: FONT_COLOR nl%,0,0,0
   tp% = 40
   FOR i% = 1 TO n%
   k% = nl%+i%
   LIST k%: TOP k%,tp%: LEFT k%,lf%: WIDTH k%,wf%: HEIGHT k%,hf%
   tp% = tp% + hf%
   NEXT i%
   i% = tp%+40: IF i%>HEIGHT(0) THEN HEIGHT 0,i%: ' ajuste fenêtre principale
END_SUB
REM ============================================================================
SUB Compare()
   df% = 0
   FOR i% = 1 TO nact%
   a$ = Titact$(i%): b$ = Datact$(i%): tr% = 0
   FOR k% = 1 TO nref%
   IF a$ = Titref$(k%)
   tr% = 1
   IF b$ <> Datref$(k%): ' sujet existant, nouveau message
   COLOR 60+i%,255,255,0
   df% = 1
   END_IF
   END_IF
   NEXT k%
   IF tr% = 0: ' nouveau sujet
   COLOR 60+i%,255,255,0: ' en jaune
   df% = 1
   END_IF
   NEXT i%
END_SUB
REM ============================================================================
SUB Connect()
   EXECUTE url$
   pause 2000
   TERMINATE
END_SUB
REM ============================================================================
SUB Lancer()
   ' Pendant la veille, le programme est minimisé. Pour le stopper, cliquer sur
   ' le caption en bas à gauche, puis 'Restaurer', puis 'Quitter'
   MINIMIZE 0
   srv% = 1
   WHILE srv% = 1
   i% = 60000*POSITION(101): ' délai, en ms
   ' k% = i%/30000
   ' FOR i% = 1 TO k%
   ' pause 30000 : ' maximum autorisé
   ' NEXT i%
   k% = i%/2000
   FOR i% = 1 TO k%
   pause 2000 : ' 2s de pause
   NEXT i%
   CAPTION 0,"SURVEILLANCE : ACTIVE"
   Surveil()
   IF df% = 1 THEN NORMAL 0: srv% = 0: EXIT_WHILE
   CAPTION 0,"SURVEILLANCE : VEILLE"
   END_WHILE
END_SUB
REM ============================================================================
SUB Quitter()
   TERMINATE
END_SUB
REM ============================================================================
SUB Html2Txt(f$,ft$)
' conversion approximative fichier html f$ en fichier texte brut dans ft$
   DIM_LOCAL a$,s$,ba$,cr$,k%,k1%,ns%,csp$(20),crm$(20)
   cr$ = CHR$(13)+CHR$(10): ' saut de ligne
DATA "Carspe": ' caractères spéciaux, à remplacer (à compléter éventuellement)
DATA " ","<",">","&",""","»","F": ' caractère à remplacer
DATA " ","<",">","&",CHR$(34),CHR$(13)+CHR$(10)+CHR$(187): ' caractère(s) de remplacement
   ns% = 0: RESTORE: READ a$: WHILE a$<>"Carspe": READ a$: END_WHILE: READ a$
   WHILE a$<>"F": ns%=ns%+1: csp$(ns%) = a$: READ a$: END_WHILE
   FOR k% = 1 TO ns%: READ a$: crm$(k%) = a$: NEXT k%
' lecture intégrale du fichier htm dans la variable a$
   FILEBIN_OPEN_READ 9,f$: k% = FILEBIN_SIZE(9): FILEBIN_CLOSE 9
   FILE_OPEN_READ 9,f$: FILE_READBUF 9,a$,k%: FILE_CLOSE 9
   k% = INSTR(a$,"</head>"): IF k%=0 THEN message "Pas de balise </head>": EXIT_SUB
   a$ = MID$(a$,k%+7,LEN(a$))
' suppression des balises <script...>...</script> et <style...>...</style> et de
' leur contenu
   k% = INSTR(a$,"<script")
   WHILE k%>0
   k1% =INSTR(a$,"</script>"): a$ = LEFT$(a$,k%-1)+MID$(a$,k1%+9,LEN(a$))
   k% = INSTR(a$,"<script")
   END_WHILE
   k% = INSTR(a$,"<style")
   WHILE k%>0
   k1% =INSTR(a$,"</style>"): a$ = LEFT$(a$,k%-1)+MID$(a$,k1%+8,LEN(a$))
   k% = INSTR(a$,"<style")
   END_WHILE
' remplacement des balises </tr> par des sauts de ligne
   k% = INSTR(a$,"</tr>")
   WHILE k%>0: a$=LEFT$(a$,k%-1)+cr$+MID$(a$,k%+5,LEN(a$)): k%=INSTR(a$,"</tr>"): END_WHILE
' suppression de toutes les balises (on garde les sauts de lignes, pour lisibilité)
   k% = INSTR(a$,"<")
   WHILE k% > 0
   k1% = INSTR_POS(a$,">",k%): ba$ = MID$(a$,k%,k1%-k%+1): ' balise trouvée
   IF LEFT$(ba$,3) = "<br": ' saut de ligne
   a$ = LEFT$(a$,k%-1)+CHR$(13)+CHR$(10)+MID$(a$,k1%+1,LEN(a$))
   ELSE
   a$ = LEFT$(a$,k%-1)+MID$(a$,k1%+1,LEN(a$)): ' suppression
   END_IF
   k% = INSTR(a$,"<")
   END_WHILE
' remplacement des caractères spéciaux
   FOR k% = 1 TO ns%
   s$ = csp$(k%): k1% = INSTR(a$,s$)
   WHILE k1%>0
   a$ = LEFT$(a$,k1%-1)+crm$(k%)+MID$(a$,k1%+LEN(s$),LEN(a$))
   k1% = INSTR(a$,s$)
   END_WHILE
   NEXT k%
' suppression des rc/al redondants
   k% = INSTR(a$,CHR$(13)+CHR$(10)+CHR$(13)+CHR$(10))
   WHILE k%>0
   a$ = LEFT$(a$,k%-1)+MID$(a$,k%+2,LEN(a$))
   k% = INSTR(a$,CHR$(13)+CHR$(10)+CHR$(13)+CHR$(10))
   END_WHILE
   FILE_OPEN_WRITE 9,ft$: FILE_WRITELN 9,a$: FILE_CLOSE 9
END_SUB
' ==============================================================================

Maintenant ça me parait parfaitement parfait !
Bravo JL35

Demeure un souci ligne 249... Embarassed

J' exécute le programme depuis l' éditeur.
L' interface apparait puis, quelques secondes plus tard, une fenêtre d' erreur apparait
avec un souci sur la ligne 249.
Et sans avoir cliqué nul part...

Je pense que le Forum nous joue des tours !

Regarde la ligne 246

Code:: DATA " ","<",">","&",""","»","F": ' caractère à remplacer

Les trois guillemets qui se suivent n’étaient pas dans le code, aller savoir pourquoi le Forum les ajoute !

Les trois lignes DATA doivent être

Code:: DATA "Carspe": ' caractères spéciaux, à remplacer (à compléter éventuellement)
DATA " ","<",">","&",""","»","F": ' caractère à remplacer
DATA " ","<",">","&",CHR$(34),CHR$(13)+CHR$(10)+CHR$(187): ' caractère(s) de remplacement

Remplace-les et tout fonctionnera.

Nombre de messages : 7095 Localisation : 77 Date d'inscription : 29/11/2007

C'est la ligne 249 de la dernière version ci-dessus ? chez moi c'est:
FILEBIN_OPEN_READ 9,f$: k% = FILEBIN_SIZE(9): FILEBIN_CLOSE 9
et c'est quoi comme erreur ?
Tu as bien rectifié les 3 lignes de datas comme ceci:

Code:: DATA "Carspe": ' caractères spéciaux, à remplacer (à compléter éventuellement)
DATA " ","<",">","&",""","»","F": ' caractère à remplacer
DATA " ","<",">","&",CHR$(34),CHR$(13)+CHR$(10)+CHR$(187): ' caractère(s) de remplacement

c'est là qu'il y avait un problème, des caractères bouffés par le forum il me semble.

PS on s'est croisés papydall, pour dire la même chose (heureusement...)
rePS Zut! je m'aperçois que ce n'est pas bon, le forum me l'a encore mutilé...
par contre ce que tu as mis a l'air bon

Nombre de messages : 7095 Localisation : 77 Date d'inscription : 29/11/2007

J'ai édité et cette fois c'est passé... c'est n'importe quoi ! scratch

La ligne 246

Code:: DATA " ","<",">","&",""","»","F": ' caractère à remplacer

Comporte trois guillemets qui se suivent.
C’est l’instruction READ a$ qui déclenche l’erreur.

EDIT :
Après rectification, je n'ai plus de problème Basketball

Nombre de messages : 7095 Localisation : 77 Date d'inscription : 29/11/2007

comme c'est une liste de caractères spéciaux html, il semble que le forum les interprète et les transforme, pas toujours d'ailleurs !
je dilate, mais dans ton exemple ci-dessus,
à la place de " < " il devrait y avoir " & lt; " (collés)
à la place de " > " il devrait y avoir " & gt; " (idem)
à la place de """ il devrait y avoir " & quot; " (idem)
C'est vraiment scabreux que le forum interprète quoi que ce soit qui se trouve entre les balises code.
Et en plus quelque chose qui se trouve entre guillemets.
Et ce n'est pas la 1ère fois (ni la dernière hélas) que ça nous joue des tours.

Nombre de messages : 7095 Localisation : 77 Date d'inscription : 29/11/2007

Toujours dans le cadre de la surveillance du forum, je remarque au passage que le forum est toujours à l'heure d'hiver, les messages sont horodatés avec une heure de retard par rapport à l'heure légale.
C'est pas bien.

Et aussi, ce qui est un peu gênant (mais juste pour moi) pour la surveillance, c'est que je compare les date/heure des messages d'une fois à l'autre pour voir s'il y a du changement, or d'un jour à l'autre pour un même message il y a 'Aujourd'hui...', 'Hier...', et puis la date réelle, alors je signale une différence là où il n'y en a pas... Crying or Very sad

On fera avec...

PS autant pour moi, il vient de passer à la bonne heure, heure d'été ! donc j'imagine que ça doit se passer à 10h du matin... scratch

Alors, si tu vois "aujourd'hui", remplace par date$... Pour "hier", tu peux modifier le résultat de date$...

Nombre de messages : 7095 Localisation : 77 Date d'inscription : 29/11/2007

Certes, tout est possible, mais ce n'est pas aussi simple que ça en a l'air.
Il ne suffit pas de remplacer Aujourd'hui par date$, il faut le remplacer par quelque chose du genre Mer 20 Aoû 2014, ce qui est déjà moins évident. Idem pour Hier, après création d'une fonction date$-1...

Eh bien je crois que ça restera en l'état.

Sinon tu fais une fonction de transformation de date pour la récupérer sous ce format ?

Enfin c'est toi qui voit, si ça te dit ou non. Si c'est bon pour toi, ben ce sera à celui qui en veut plus de le faire Very Happy

Nombre de messages : 7095 Localisation : 77 Date d'inscription : 29/11/2007

Certes c'est faisable, mais comme tu dis c'est bon pour moi, je trouve que le jeu n'en vaut pas tellement la chandelle, ce n'est pas un programme pour le public mais un utilitaire pour programmeurs. Après on peut toujours s'amuser si on veut !

Bonjour JL35 et bonjour à tous,

Je déterre ce fil de discussion puisque tu en as parlé aujourd'hui...

J'essais de lancer le code mais il me semble capricieux !!
Cela ne semble pas fonctionnel même après avoir corriger les erreurs indiquées ci-dessus par Papydall.

Peut être que Windows 10 est plus tatillon sur les noms, les dossiers...
Je tente de dénouer les fils... Laughing

Edit :
Bon maintenant ça se lance mais il me reste encore a reprendre l'affichage.
J'ai été obligé de modifier les lignes d'exécution en EXECUTE_WAIT fscr$ pour que ça fonctionne...

Nombre de messages : 7095 Localisation : 77 Date d'inscription : 29/11/2007

Bonjour Minibug,

Je suis toujours sous Windows 7, ça peut expliquer des choses...
et je n'ai pas touché à mon exécutable depuis cette époque, je ne sais plus s'il est conforme au code du forum...
Mais je sens que tu vas y arriver ! en tout cas pour moi c'est bien pratique.

Oui oui ça marche !! C'est super !! cheers

D'ailleurs c'est ton programme qui vient de m'avertir du message... Laughing

c'est génial ! Merci JL35 !! geek

Nombre de messages : 7095 Localisation : 77 Date d'inscription : 29/11/2007

Génial, peut-être pas quand même ! quoique... Very Happy

Effectivement on peut le mettre en veille si on attend une intervention quelconque et qu'on fait autre chose en attendant.

» Bug forum ?
» La vie du forum
» Un Forum animé
» Ouvrir un forum
» Remarque sur le forum...