ALTERNATIVE À LA FUNCTION VBA OU VB REPLACE (JUSQU'À 10 FOIS PLUS VITE, SANS API)

Commentaire de vicosta le 09/02/2010 21:34:00

Sur mon poste et avec l'exemple de code que tu décris, ça va plus de 10 fois plus vite.
Bien sûr que, si le project ne comporte pas beaucoup de remplacements à éffectuer, cette function sera superflue.

Commentaire de vicosta le 11/02/2010 02:43:11

Pas besoin de tester les autres codes sur vbfrance, j'ai consulté une bonne dizainne parmi le plus récents et aucun, tel que VB, ne reserve de la mémoire addctionnel pour travailler confortablement sans trop embarasser le système d'exploitation.

Commentaire de vicosta le 12/02/2010 01:56:15

Ctd qu'à chaque manipulation de chainnes dont sa longueur se modifie considérablement, vb fait appel à une réserve de mémoire addictionnelle, ou à une liberation de cette mémoire comme c'est logique.
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

Commentaire de us_30 le 12/02/2010 11:44:46

Donc malgré tout, c'est bien l'optimisation de performance qui est recherché...

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.

Commentaire de bernan le 15/02/2010 10:21:09

Ou alors, il y a aussi :

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

Commentaire de us_30 le 15/02/2010 13:33:14

Ouais, ben, si il y avait que ça... CompMode vaut quoi ? Le typage de Textin, SeachStr, Replacement sont variant... et pis, aucune optimisation... Toutes les options de Replace ne sont pas présente. Sans compter le genre de truc qui sert à rien : If IsNull(Replacement) Then Replacement = ""... Utiliser IsMissing, ou mieux une valeur par défaut nulle dans les paramètres... etc.

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.