Discussion :

[Phil Rob]

Suite ...

Bonjour,

La nuit porte conseil dit-on ... C'est probablement pourquoi je pensé pourvoir faire rapidement (rapidement car j'ai très peu de temps durant ce week-end) une application de test de partage du fichier TEXT.TXT entre une application X et le NotePad.

Voici donc le projet FichierEntre1AppliEtNotePad : FichierEntre1AppliEtNotePad.zip.

Voici la vidéo de son fonctionnement (excuse pour les 2 dernière secondes hors sujet, pas le temps de refaire) : https://www.dropbox.com/s/aunivrvx2e...tePad.mp4?dl=0

Sauf à ne pas lancer plusieurs fois NotePad avec son fichier TEXT.TXT, la surveillance du fichier est la même que dans le projet précédent. Simplement, ici, le fichier est disponible quand NotePad se ferme. et pour NotePad, le fichier est toujours disponible puisque le NotePad est lancé avec ce fichier en paramètre.
Cette version devrait t'aider davantage si le programme ABC est bien toujours le NotePad. si c'est autre chose encore, je laisse tomber ...

Très bon week-end,

[excalybur]

Merci

Je regarde cela (j'ai deux heures ce soir)

Je vais bien y arriver !

Très bon week end à toi aussi

[excalybur]

Bonjour,

Aujourd'hui c'est le jackpot c'est coup double! L'exemple de Phil Rob fonctionne très bien avec de nombreux exe. Et c'est nickel ! Merci pour ton superbe travail. Je vais m'en servir justement pour une autre application avec 3 notepad en // pour analyser les datas d'échecs.

et le hasard a bien fait les choses ! En lisant deux lignes en-dessous la demande de trucss pour "Répéter une action" et la réponse de Pol63 : "FileSystemWatcher" !!! j'ai enfin la solution pour les exe mal écrit comme mon ABC.exe ! En fait il suffit de surveiller de façon asynchrone le changement du fichier texte.txt (temps, taille, etc...).

Voici un code exemple sur console vb.

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
 
 
 
Imports System.IO
 
Namespace MyNamespace
 
    Class MyClassVB
 
        Shared Sub Main()
            Using watcher = New FileSystemWatcher("D:\")
                watcher.NotifyFilter = NotifyFilters.Attributes Or
                                       NotifyFilters.CreationTime Or
                                       NotifyFilters.DirectoryName Or
                                       NotifyFilters.FileName Or
                                       NotifyFilters.LastAccess Or
                                       NotifyFilters.LastWrite Or
                                       NotifyFilters.Security Or
                                       NotifyFilters.Size
 
                AddHandler watcher.Changed, AddressOf OnChanged
 
                watcher.Filter = "texte.txt"
                watcher.IncludeSubdirectories = True
                watcher.EnableRaisingEvents = True
 
                Console.WriteLine("Appuyer sur Enter pour finir.")
                Console.ReadLine()
            End Using
        End Sub
 
        Private Shared Sub OnChanged(sender As Object, e As FileSystemEventArgs)
            If e.ChangeType <> WatcherChangeTypes.Changed Then
                Return
            End If
            Dim MyStamp
            ' Retourne valeur date et heure au format English/U.S. 
            MyStamp = FileDateTime("d:\sbwin\hnout.txt")
 
            Console.WriteLine($"Modification de  {e.FullPath}" + " à " + MyStamp)
        End Sub
 
        Private Shared Sub OnCreated(sender As Object, e As FileSystemEventArgs)
            Dim value As String = $"Created: {e.FullPath}"
            Console.WriteLine(value)
        End Sub
 
        Private Shared Sub OnDeleted(sender As Object, e As FileSystemEventArgs)
            Console.WriteLine($"Deleted: {e.FullPath}")
        End Sub
 
        Private Shared Sub OnRenamed(sender As Object, e As RenamedEventArgs)
            Console.WriteLine($"Renamed:")
            Console.WriteLine($"    Old: {e.OldFullPath}")
            Console.WriteLine($"    New: {e.FullPath}")
        End Sub
 
        Private Shared Sub OnError(sender As Object, e As ErrorEventArgs)
            PrintException(e.GetException())
        End Sub
 
        Private Shared Sub PrintException(ex As Exception)
            If ex IsNot Nothing Then
                Console.WriteLine($"Message: {ex.Message}")
                Console.WriteLine("Stacktrace:")
                Console.WriteLine(ex.StackTrace)
                Console.WriteLine()
                PrintException(ex.InnerException)
            End If
        End Sub
 
    End Class
 
End Namespace

Merci encore à tous et à bientôt.