Discussion :

[Heorhelm]

Bonjour à tous !

Voilà, depuis une semaine je me suis mis à visual basic pour répondre à une demande en entreprise.
la problématique est la suivante :

j'ai 3000 fichiers textes (contenu désorganisé) contenant chacun 94 lignes (ce sont des résultats d'essais) soit 282000 lignes au total.
Or sur ces fichiers textes, j'ai besoin de récupérer uniquement quelques lignes (la 3 - 4 - et une dernière "flottante" correspondant à l'endroit ou le test à échoué) et ce pour chacun des 3000 fichiers.

Du coup je me suis beaucoup renseigné sur les aides, ce forum et d'autres pour parvenir à ce programme :

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
Imports System.IO
Imports System.Text
'DUT ANALYSER
 
Public Class Form1
    Dim chemin, path, bloc, x, y, z As String
    Dim testpos, i As Integer
    Dim pathwriter As StreamWriter
    Dim lst As New List(Of String)
 
 
    Private Sub odtbut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles odtbut.Click
        If path = "" Then
            MsgBox("Please, select first a destination file", MsgBoxStyle.Exclamation, "No destination file")
        Else
            'select only txt files
            OpenFileDialog1.Filter = "Text (*.txt)|*.txt"
            OpenFileDialog1.Multiselect = True
 
            If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
 
                'open a window to choose the path of the TXT file
                chemin = OpenFileDialog1.FileName
                lst.Add(chemin)
 
                For Each chemin In lst
 
                    'the file is readed by this application
                    Dim file() As String = IO.File.ReadAllLines(chemin)
                    Dim nblignes = file.Length - 1
 
                    'lbl1.Text = file(4).ToString 'used to see if the programm worked
                    'lbl2.Text = file(94).ToString
                    'comparaison is done with the number of lines : the test stop automatically when it fails, so you always have
                    'less datas than a passed test : it means less lines
                    ' if the test is failed, this programm will search all lines where test failed
                    'test 
                    y = Mid(file(3), 45, 6) 'we take the serial number
                    z = Mid(file(4), 35, 6)
                    lbl1.Text = y
                    lbl2.Text = z
                    'we write in the TXT document we opened earlier (the final one)
                    pathwriter = New StreamWriter(path, True, Encoding.Unicode)
                    If nblignes < 94 Then
                        pathwriter.WriteLine(y & ";" & z & ";" & nblignes & "failed")
                        lbl3.Text = nblignes & "   " & "failed"
                    Else
                        pathwriter.WriteLine(y & ";" & z & ";" & nblignes & "success")
                        lbl3.Text = nblignes & "   " & "success"
                    End If
                    pathwriter.Close()
                    'print the number of files tested
                    i = i + 1
                    lbl5.Text = i
                Next
            Else
                MsgBox("No file selected, please choose one file", MsgBoxStyle.Exclamation, "No file selected")
            End If
        End If
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'we pick up the path of the tested folder
        'select only txt files
        OpenFileDialog2.Filter = "Text (*.txt)|*.txt"
        If OpenFileDialog2.ShowDialog() = Windows.Forms.DialogResult.OK Then
            path = OpenFileDialog2.FileName
            ' i is the counter of txt documents you analyse
            i = 0
            Button1.Enabled = False 'to avoid missclicks
        Else
            MsgBox("No file selected, please choose one file", MsgBoxStyle.Exclamation, "No file selected")
        End If
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        path = ""
 
    End Sub
End Class

(j'ai commenté le code en anglais car je suis actuellement en Irlande)
Le code en soit fait parfaitement ce que je lui demande : le problème c'est qu'il gère le truc fichier par fichier et réitérer le processus 3000 fois est beaucoup trop pénible : et ce même si j'arrive à sélectionner tous les fichiers que je veux traiter dans l'openfiledialog.
j'ai tenté de rectifier ça avec une liste et une boucle for each mais elle retourne uniquement le dernier fichier lu.

Pourriez vous m'aider à adapter ce programme pour faire en sorte que tous les fichiers soient traités et pas uniquement le dernier ?

J'essaie pas d'avoir un truc tout cuit, mais franchement, un coup de main serait sympa.

Merci !

[Phil Rob]

Bonjour,

Je manque de temps pour vraiment étudier ta question, mais après l'avoir survolée, je pense que l'indice suivant pourrait t'être utile.

Tu actives le MultiSelect de ton OpenFileDialog mais tu ne récupères qu'un chemin à la fois, aussi pourquoi ne pas t'intéresser à la propriété FileNameS (avec S)

Code :

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

1
2
3
4
5
6
7
 
 
' et lire les chemins en parcourrant la collection, ça devrait ressembler à ceci :
 
For Each S As String in OpenFileDialog1.FileNames
chemin = S
' ... ... ...

J'espère que ça t'aidera ...

[r.morel]

Salut,
Que veux tu faire ?

1. Sélectionner tous les fichiers dans ta boite de dialogue
2. Ou sélectionner un dossier et lire l’ensemble des fichiers qu'il contient

Je pense que la seconde est la plus ergonomique.

[Heorhelm]

Bonjour,

Je manque de temps pour vraiment étudier ta question, mais après l'avoir survolée, je pense que l'indice suivant pourrait t'être utile.

Tu actives le MultiSelect de ton OpenFileDialog mais tu ne récupères qu'un chemin à la fois, aussi pourquoi ne pas t'intéresser à la propriété FileNameS (avec S)

Code :

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

1
2
3
4
5
6
7
 
 
' et lire les chemins en parcourrant la collection, ça devrait ressembler à ceci :
 
For Each S As String in OpenFileDialog1.FileNames
chemin = S
' ... ... ...

J'espère que ça t'aidera ...

Merci beaucoup pour ta réponse, j'avoue pas avoir vu le S, je vais essayer ça !

[Heorhelm]

Salut,
Que veux tu faire ?

1. Sélectionner tous les fichiers dans ta boite de dialogue
2. Ou sélectionner un dossier et lire l’ensemble des fichiers qu'il contient

Je pense que la seconde est la plus ergonomique.

Salut !

Je partirais sur la deuxième solution : pourquoi : parce que les fichiers textes que me renvoient les bancs d'essais me sont transmis de façon désorganisée.
Ils ne viennent pas dans un dossier spécifique

ce que je veux faire précisemment c'est :
sélectionner les fichiers textes dans une fenêtre (type openfiledialog)
les traiter avec le programme en simultané et non pas en 1 by 1 (parce que la j'en ai 3000, aller en une matinée de clique à répétition c'est fini : mais le jour ou tu en as 300 000 ... voilà )

[Heorhelm]

Phil rob,

Ta solution marche bien !
Le truc c'est que l'appli devient floue (un peu comme un plantage)
je vais chercher comment éviter ça

Mais merci beaucoup !

[Phil Rob]

Tant mieux si ça va dans le bon sens !
Mais en lisant ton post précédent, je vois que tu peux traiter beaucoup de fichiers en une fois et peut-être que la collection FileNames "s'étouffe" ...

Ne peux-tu sélectionner seulement des dossiers (qui ne contiendraient que tes fichiers à traiter), car dans ce cas on peut coder la lecture de chaque fichier, un par un, sans stocker tous leurs noms et chemins d’accès.

Par exemple, le code suivant énumère tous les noms de fichier d'un dossier :

Code :

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

1
2
3
4
5
Dim MesFichiers() As String = Directory.GetFiles("X:\MonDossier")
Dim UnFichier As String
For Each UnFichier In MesFichiers
    LBMaListe.Items.Add(UnFichier)  ' ici au lieu de remplir une ListBox, on peut lire le fichier et travailler avec ses données
Next

Note que Directory.GetFiles est aussi une collection, elle est peut-être plus efficace que FileNames, je n'en sais rien.

[Heorhelm]

Salut phil !

En fait je me suis mal exprimé, la fonction ne s'étouffe pas, le logiciel est juste en "suspend" pendant le traitement
j'avais lu un truc qui disait qu'on pouvait se débrouiller pour faire les calculs en arrière plan pour éviter le phénomène,
mais je t'avoue avoir dû rendre le projet assez tôt donc j'ai simplement mis le curseur en mode sablier.

Je testerai quand même ce soir ta solution, c'est toujours cool d'optimiser les programmes.

Encore merci à tous pour votre coup de pouce !

[clementmarcotte]

Bonjour,

Cela ne change probablement pas grand chose avec une collection de de réponses dans une boîte de dialogue, mais, si tu changes d'idée; cela peut toujours servir. Et puis comme cela va être archivé, cela peut servir à d'autres. (Comme pour les étudiants de Phil.) Directory, Files, DirectoryInfo et FileInfo ont aussi des méthodes Enumerate. Elles fonctionnent comme les méthodes Get sauf qu'elles peuvent commencer à afficher les résultats avant d'avoir tout lu les dossier. Cela peut être plus efficace principalement dans le cas de gros dossiers.

https://docs.microsoft.com/en-us/dot...tframework-4.8

Et cela a été ajouté avant le Framework 4,8

[Phil Rob]

Merci Clement ...