TRI BOYERMOORE
BruNews
Messages postés
21040
Date d'inscription
jeudi 23 janvier 2003
Statut
Modérateur
Dernière intervention
21 août 2019
-
24 mai 2008 à 20:12
BruNews Messages postés 21040 Date d'inscription jeudi 23 janvier 2003 Statut Modérateur Dernière intervention 21 août 2019 - 24 mai 2008 à 20:12
BruNews Messages postés 21040 Date d'inscription jeudi 23 janvier 2003 Statut Modérateur Dernière intervention 21 août 2019 - 24 mai 2008 à 20:12
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/46733-tri-boyermoore
https://codes-sources.commentcamarche.net/source/46733-tri-boyermoore
24 mai 2008 à 20:12
cherche(ByVal texte As String, ByVal mot As String)
Dim ts(256) As Integer
For i As Integer = 0 To mot.Length - 1
ts(Asc(mot.Substring(i, 1))) = i
Next
Il convient donc de vérifier la longueur de 'mot' avanr de l'envoyer à la fonction sinon ts() explose.