Discussion :

[papy75]

Bonjour a tous,

Voila je voudrais savoir comment faire pour compter le nb de ligne, de mots d'un fichier txt en vb.net

J'ai un form avec un bouton qui me permet de chercher le .txt.

Pour le moment, j'utilise un OpenFileDialog afin de récupérer le fichier txt puis pour ouvrir le fichier j'utilise un StreamReader.
Voici mon bout de code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
 
            Dim sr As New System.IO.StreamReader(OpenFileDialog1.FileName)
            'MessageBox.Show(sr.ReadToEnd)
 
            sr.Close()
 
        End If
 
    End Sub

Je ne trouve aucun tuto ou bout de code sur le net...
Si quelqu'un avait une piste un lien...
Merci d'avance
Cdt
Papy

[tomlev]

Pour le nombre de lignes :

Code :

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

1
2
Dim lignes() As String = File.ReadAllLines("leFichier.txt")
Dim nLignes = lignes.Length

Pour le nombre de mots :

Code :

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

1
2
3
Dim text = File.ReadAllText("leFichier.txt")
Dim mots() As String = text.Split(vbCr, VbLf, vbTab, " "C) ' ajouter à cette liste tous les caractères considérés comme des séparateurs de mots
Dim nMots = mots.Length

[papy75]

Salut Tomlev,

Merci pour ta réponse mais j'ai un ptit soucis.
Le champs File est de quel type? je le déclare comment?

Merci d'avance.
Cdt.

[tomlev]

C'est pas un champ, c'est une classe statique qui est dans le namespace System.IO

[papy75]

Merci Tomlev,

j'ai rajouté Imports System.ISO et ca marche.

Encore Merci pour tout.

Cdt

[papy75]

re,

une dernière petite question:
Ou est ce que je pourrais trouver un cours avec toutes ces fonctions.
Car si je veux afficher d'autres détails sur ce fichier comme l'emplacement du fichier ou le nombre de lettre, de chiffre, caractères etc...

Encore merci.
Cdt
Papy

[helened]

Bonjour à tous !

Ca fait plusieurs fois que je tombe sur des morceaux de code où il faut rajouter "Imports System.ISO", mais chez moi ça ne marche pas....

Est ce qu'il faut une configuration spéciale, ou y a t-il un endroit particulier pour le mettre ?

La procédure permettant de compter les lignes d'un fichier texte me serait bien utile pour mon projet, mais sans system iso, il ne connait pas "File" et plante...

Merci d'avance !

[StringBuilder]

C'est System.IO et non System.ISO

Sinon, j'ai une remarque par rapport aux solution de tomlev.

Si le fichier ne fait que quelques kilo, il n'est pas gênant de travailler dessus avec un ReadAllLines ou faire un Split sur un ReadAllText

En revanche, quand le fichier est volumineux, je pense qu'il est largement plus intéressant de scanner le fichier ligne par ligne, afin d'éviter de bouffer toute la mémoire.

Effectivement, maintenant on a tout de suite 2 ou 4 Go de mémoire sur un PC, mais bon, en entreprise, de nombreuses machines n'ont encore que 512 Mo de RAM (oui oui, ma machine au boulot est vraiment pourrie ) et surtout malheureusement Java est toujours bien présent sur les machines... et le moindre Lotus ou SQL Developper rempli la mémoire de n'importe quelle machine... Donc autant continuer à considérer que la mémoire est une ressource précieuse.

[helened]

Malheureusement ça ne marche toujours pas, même en mettant "Imports System.IO" (et pas ISO effectivement, autant pour moi).

Le débugueur me dit "variable non définie" en surlignant System...

Comment est-ce que je dois faire ?

[Aeronia]

L'as tu bien référencé dans les références de ton projet ?

[helened]

Euh, c'est-à-dire ?

Je débute en VBA et je m'en sors pas trop mal, mais c'est la 1ère fois que j'essaie d'utiliser Systeme.IO et je ne sais vraiment pas comment ça marche.. (désolée)