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
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.