Lire un fichier texte et connaitre le nbre de caractere, de numerique et d'espace

Soyez le premier à donner votre avis sur cette source.

Vue 13 215 fois - Téléchargée 542 fois

Description

comme son titre l'indique ce code tres simple permet de connaitre le nombre de caracter, de numeric et d'espace dans un fichier texte. Ce code s'avere assez lent quand meme. Il marche qu'avec Vb.Net.

Ici vous ne voyez que la function principale, dans le zip il y a le programme terminé, avec d'autre fonction comme celle pour visualiser le fichier.

Source / Exemple :


Dim Lecteur As New StreamReader("Chemin de votre fichier.txt")
Dim CaractereLu As String
Dim CountNum, CountAlpha, CountEspace As Integer
Dim i As Integer

CountNum = 0
CountAlpha = 0
CountEspace = 0

While Lecteur.Peek >= 0

CaractereLu = Lecteur.ReadLine

Dim tab(CaractereLu.Length) As String

For i = 1 To CaractereLu.Length
	tab(i) = Mid(CaractereLu, i, 1)
Next

For i = 1 To CaractereLu.Length

	If IsNumeric(tab(i)) Then
	CountNum = CountNum + 1
                End If

	If Not IsNumeric(tab(i)) Then
	CountAlpha = CountAlpha + 1
	End If

	If tab(i) = " " Then
	CountEspace = CountEspace + 1
                CountAlpha = CountAlpha - 1
	End If

Next

Label3.Text = CountNum
Label4.Text = CountAlpha
Label5.Text = CountEspace

End While

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de ludovicanceaux

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.