RECHERCHE DE L'OCCURENCE DES CARACTÈRES DANS UN FICHIER TEXTE
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
-
16 déc. 2008 à 15:44
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 16 déc. 2008 à 15:44
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 16 déc. 2008 à 15:44
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/48722-recherche-de-l-occurence-des-caracteres-dans-un-fichier-texte
https://codes-sources.commentcamarche.net/source/48722-recherche-de-l-occurence-des-caracteres-dans-un-fichier-texte
16 déc. 2008 à 15:44
pourquoi passer par 2 tableaux, pourquoi "200"
en passant par un tableau de byte tu n'as pas besoin de vérifier l'existance...
voici une modif pour lister la totalité, pose une listbox en font 'courier new' pour tester :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListBox1.Items.Clear()
Dim aiChars() As Int32 = GetCharsCount(TextBox1.Text, True)
For i As Int32 = 0 To 255
If aiChars(i) > 0 Then ListBox1.Items.Add(Convert.ToChar(i) & " " & aiChars(i).ToString)
Next
End Sub
Function GetCharsCount(ByVal sText As String, Optional ByVal bUcase As Boolean = False) As Int32()
Dim aiRet(0 To 255) As Int32
If sText.Length > 0 Then
If bUcase Then sText = sText.ToUpper
Dim abChars() As Char = sText.ToCharArray
For i As Int32 = 0 To sText.Length - 1
aiRet(Convert.ToByte(abChars(i))) += 1
Next
End If
Return aiRet
End Function
pas forcément optimisé non plus mais çà me semble plus logique non?
++