Discussion :

[Miska59]

Bonjour,

mon problème c'est calculer le nombre mot dans un dossier avec contains dans chaque fichier. Dans mon dossier, j'ai 3 fichier : test,test 2,test3. il m'afficher 4 fois le mème résulta pour chaque fichier test x4 test2 x 4 test3 x4.
dans chaque fichier je doit calculer le nombre la lettre a qui ce trouve dans le fichier.

voici le code :

Code :

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

 Dim ListPath As New List(Of Résult)

Code :

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

1
2
3
4
5
6
7
Dim files As String() = Directory.GetFiles(dossier, "*.*", SearchOption.AllDirectories)
            For Each fn As String In files
           Dim filename As String = fn
For Each Data As String In File.ReadAllLines(filename)
                    If Data.Contains(Pattern) Then ListPath.Add(New Résult With {.Name = filename, .Value = Data.Contains(Pattern).ToString.Count})
                Next
next

Code :

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

1
2
3
4
Class Résult
    Public Property Name As String
    Public Property Value As Integer
End Class

Code :

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

1
2
3
4
5
6
7
8
If ListPath.Any Then
                Dim distinct1 As List(Of Résult) = ListPath.Distinct.ToList
                For i = 0 To distinct1.Count - 1
                    RichTextBox1.AppendText(String.Format("Le texte : {0} ce trouver dans le dossier : {1} ({2} résultats) {3}", "a", distinct1(i).Name, distinct1(i).Value, Environment.NewLine))
                Next
            Else
                RichTextBox1.AppendText(String.Format("Oups, Aucun texte à était trouver : {0}", "a"))
            End If

mon problème c'est comment calculer le nombre mot a dans chaque fichier dans le dossier? merci d'avance

[Miska59]

bonjour,
j'ai refait mon code mais j'ai toujours le mème résulta pour chaque fichier. normalement le fichier teste.txt = 2,teste2.text = 3,teste3.txt = 4 pour rechercher par la lettre a.

Code :

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

1
2
3
4
5
6
7
8
9
RichTextBox1.Clear()
        Dim files1 As IEnumerable(Of Résult) = From data In Directory.EnumerateFiles(filePath, "*.*", SearchOption.AllDirectories) From line In File.ReadAllLines(data) Where (line.Contains(TextBox1.Text)) Distinct Select New Résult With {.Name = Path.GetFileName(data), .Pattern = line, .Value = (From x In data Where x = TextBox1.Text Select x).Count}
        If files1.Any Then
            For Each f As Résult In files1
                RichTextBox1.AppendText(String.Format("Le fichier : {0} - Le mot à rechercher : {1} - Total de mot dans le fichier : {2} {3}", f.Name, f.Pattern, f.Value, Environment.NewLine))
            Next
        Else
            RichTextBox1.AppendText(String.Format("Oups, Aucun texte à était trouver : {0}", TextBox1.Text))
        End If

Voici le résultat en image :


pourquoi j'arrive pas à avoir le résulta pour chaque fichier en recherchent la lettre a? merci d'anavce

[popo]

Pour moi tu es en train de compter le nombre de ligne qui contient un a et pas le nombre de a .

Pour rechercher le nombre de 'a' dans une chaine (en tenant compte que 'a' est différent de 'A') :

Code :

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

1
2
3
4
String text = "Ceci est un texte contenant une phrase";
Int32 number = text.Count(it => it.Equals('a') || it.Equals('A'));
 
MessageBox.Show($"{number}");

[Miska59]

Bonjour Popo,

merci d'avoir répondu à mon problème. mon problème c'est recherche le mot dans chaque fichier et combien à t'il de mème mot dans chaque fichier.

exemple : recherche la lettre a dans fichier teste.txt. il trouve 2 lettre a dans le fichier teste.txt....etc avec teste2.txt,teste3.txt.
voici en image :


mon codes sens Distinct :

Code :

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

1
2
3
4
5
6
7
8
9
10
If Directory.Exists(filePath) Then
            Dim files = From Fichier In Directory.EnumerateFiles(filePath, "*.*", SearchOption.AllDirectories) From lignes In File.ReadLines(Fichier) Where Not String.IsNullOrEmpty(lignes) Where lignes.Contains(TextBox1.Text) Select New With {.CFile = Path.GetFileName(Fichier), .CLine = TextBox1.Text}
            If files.Any Then
                For Each f In files
                    RichTextBox1.AppendText(String.Format("Le fichier : {0} - Le mot à rechercher : {1} - Total de mot dans le fichier : {2} {3}", f.CFile, f.CLine, files.Count, Environment.NewLine))
                Next
            Else
                RichTextBox1.AppendText(String.Format("Oups, Aucun texte à était trouver : {0}", TextBox1.Text))
            End If
        End If

le code avec Distinct :

Code :

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

1
2
3
4
5
6
7
8
9
10
 If Directory.Exists(filePath) Then
            Dim files = From Fichier In Directory.EnumerateFiles(filePath, "*.*", SearchOption.AllDirectories) From lignes In File.ReadLines(Fichier) Where Not String.IsNullOrEmpty(lignes) Where lignes.Contains(TextBox1.Text) Distinct Select New With {.CFile = Path.GetFileName(Fichier), .CLine = TextBox1.Text}
            If files.Any Then
                For Each f In files
                    RichTextBox1.AppendText(String.Format("Le fichier : {0} - Le mot à rechercher : {1} - Total de mot dans le fichier : {2} {3}", f.CFile, f.CLine, files.Count, Environment.NewLine))
                Next
            Else
                RichTextBox1.AppendText(String.Format("Oups, Aucun texte à était trouver : {0}", TextBox1.Text))
            End If
        End If

Comment faire pour calculer par rapport à la recherche le nombre de lettre dans le fichier? merci d'avance

[popo]

Tu es incohérent.
Ce n'est pas la même chose de rechercher un mot et de rechercher une lettre.

Un mot est contenu dans une phrase, il est donc séparé des autres mots par un espace ou une marque de ponctuation.
Une lettre peut se trouver n'importe où.

Ou alors tu recherche une suite de lettre n'importe où (ce qui est encore différent).
Donc qu'est ce que tu veux faire ?

Et au passage,
Tu trouveras peu de personnes pour prendre le temps de recopier chaque caractères à partir d'une image.
Merci de fournir les données en entrée sous forme de texte.

[Thumb down]

Bonsoir,

Code :

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

1
2
3
4
5
6
7
8
9
10
 Private Function ConpteMots(txt As String, C As String) As Integer
        Return (From b In txt.ToLower.Split() Where b = C.ToLower Select b).Count
    End Function
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
          Dim Text As String = My.Computer.FileSystem.ReadAllText("C:\Myrep\Test.txt")
 
        Dim Number As Integer = ConpteMots(Text, "contenant")
 
 
        MessageBox.Show($"{Number.ToString}")