ALTERNATIVE À LA FUNCTION VBA OU VB REPLACE (JUSQU'À 10 FOIS PLUS VITE, SANS AP
jjDai
Messages postés
291
Date d'inscription
vendredi 21 février 2003
Statut
Membre
Dernière intervention
13 mars 2015
-
9 févr. 2010 à 20:46
cs_Norpac Messages postés 12 Date d'inscription jeudi 27 décembre 2007 Statut Membre Dernière intervention 21 janvier 2013 - 21 févr. 2010 à 11:34
cs_Norpac Messages postés 12 Date d'inscription jeudi 27 décembre 2007 Statut Membre Dernière intervention 21 janvier 2013 - 21 févr. 2010 à 11:34
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/51268-alternative-a-la-function-vba-ou-vb-replace-jusqu-a-10-fois-plus-vite-sans-api
https://codes-sources.commentcamarche.net/source/51268-alternative-a-la-function-vba-ou-vb-replace-jusqu-a-10-fois-plus-vite-sans-api
21 févr. 2010 à 11:34
ReDim Preserve alHits(0 To lSize) As Long
prend environ 40 % du temps d'exécution. Pourquoi ne pas calculer la taille de ce tableau au préalable et n'effectuer le dimensionnement qu'une seule fois. Cela oblige à dupliquer quelques instructions mais s'avère payant. J'arrive à un rapport de 300 ms pour 16000 ms sur le même exemple.
Toujours impressionné par le travail de passionnés anonymes.
15 févr. 2010 à 13:33
J'ai testé (enfin, si on peut dire) cette proposition, et, j'ai arrêté tout sauvagement VB6, faute de patience...
=
Sinon, le code de VICOSTA est optimisable déjà en utilisant les mêmes types d'optimisation que dans StrRapelace... Entre autre : utiliser LenB, InstrB...
Amicalement,
Us.
15 févr. 2010 à 12:41
15 févr. 2010 à 10:21
Function ReplaceStr(TextIn, SearchStr, Replacement)
If IsNull(SearchStr) Or SearchStr = "" Then
ReplaceStr = TextIn
Exit Function
End If
On Error GoTo 0
If IsNull(Replacement) Then Replacement = ""
Dim WorkText As String, Pointer As Double
If IsNull(TextIn) Then
ReplaceStr = Null
Else
WorkText = TextIn
Pointer = InStr(1, WorkText, SearchStr)
Do While Pointer > 0
WorkText = left(WorkText, Pointer - 1) & Replacement & Mid(WorkText, Pointer + Len(SearchStr))
Pointer = InStr(Pointer + Len(Replacement), WorkText, SearchStr, CompMode)
Loop
ReplaceStr = WorkText
End If
End Function
12 févr. 2010 à 20:00
@ US_30: merci pour le lien, j'ai testé, StrReplace ça va deux fois plus vite que VBReplace, et 20 fois plus vite que la function standard Replace
12 févr. 2010 à 11:44
Comme j'ai trouvé l'équivalent plus rapide sur VBFrance, voici l'adresse :
http://www.vbfrance.com/codes/OPERATIONS-SUR-CHAINES-CARACTERE-OPTIMISEES-ETENDUES_49069.aspx
En reprenant les tests, la fonction StrReplace est encore 2 fois plus rapide que celle proposée ici.
Amicalement,
Us.
12 févr. 2010 à 10:15
mémoire addictionnelle = alloc mémoire (ici HeapAlloc).
1er algo:
1 seule alloc et affectation des octets.
2eme algo:
JUSQUE 500000: BEGIN
- alloc(LEN + 1);
- recopie de LEN octets;
- affectation du dernier octet;
- désalloc (HeapFree) de l'ancien bloc;
END
C'était pas pour pinailler mais les mots sont très importants.
S'ils permettent de mieux expliquer, ils nous aident surtout à mieux structurer et donc résoudre parfaitement un problème.
Si tu veux voir ce qui se passe en interne (sans VM):
REMPLACE DANS TOUTE UNE CHAINE
http://www.cppfrance.com/code.aspx?id=23920
12 févr. 2010 à 01:56
Parfois cet emplacement de mémoire est même déplacé par manque de place continue ce que fait augmenter encore d'avantage le temps de traitement sur la chainne. C'est pour ça que VB est lent, alors on doit appliquer les astuces.
Voici deux exemples qui provoquent le même résultat, plus ou moins vite:
Avec réservation de mémoire: Temps= 125 ms
C Space(500000): For I 1 To 500000: Mid$(C, I, 1) = Chr(I Mod 255): Next
Sans réservation de mémoire: Temps= 92626 ms !!!!!!
For I 1 To 500000: C C & Chr(I Mod 255): Next
Désolé je ne peux pas être plus simple
Dans la pratique ça peut se simplifier comme ça:
Exemple1: for i=1 to 500000: a = a & chr(i mod 255):next
11 févr. 2010 à 14:02
En terme simple et surtout informatiquement, ça donne quoi ?
11 févr. 2010 à 02:43
10 févr. 2010 à 15:15
Amicalement,
Us.
9 févr. 2010 à 21:34
Bien sûr que, si le project ne comporte pas beaucoup de remplacements à éffectuer, cette function sera superflue.
9 févr. 2010 à 20:46
Un test avec
c = Replace(c, "co", "mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm", 1, , 1)
c = Replace(c, "mm", "ttttttttttttttttttttttttttttttttttttttttttttt", 1, , 1)
c = Replace(c, "tt", "bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb", 1, , 1)
c = Replace(c, "bb", "zzzzzzZZZzzzzzzzzzzzzzzzzzzZZZZZZzzzz", 1, , 1)
c = Replace(c, "zz", "oooooooooooooooooooooooooooo", 1, , 1)
c = Replace(c, "zzzzz", "visual basic", 1, , 1)
S'avère presque équivalent sur mon poste.
Cependant très bonne source pour les version antérieures de VB et VBA qui n'implémente pas cette fonction.
JJDAI