Fonction Remplace - [PatCatNat's]

Fonction Remplace

Article mis en ligne le 17 janvier 2007

par Patrice MOREL

La fonction Replace (Remplace) n’existe pas dans Access97 et <.
Voici de quoi la créer.

Access 97

Access 97 | Testé |

Access 2003

Access 2003 | Non testé |

A mettre dans un module classique :

Public Function Remplace(ByVal classStringValue As String, _
ByVal strSearch As String, _
ByVal strReplac As String, _
Optional ByVal IntStart As Integer = 0, _
Optional ByVal intCount As Integer = 2 ^ 16 / 2 - 1) As String
' ------------------------------------------------
' Remplace la fonction REPLACE qui n'existe pas dans access97 et <
' Source : http://www.vbfrance.com/codes/FONCTION-REPLACE-POUR-OFFICE-97_41145.aspx
' classStringValue : contrôle concerné
' strSearch : chaîne recherchée
' strReplac : chaîne qui se substituera
' IntStart : Nombre d'occurrences à partir de laquelle commenceront les remplacements (par défaut 0)
' IntCount : Nombre de valeurs qui seront remplacées (par défaut le maximum pour un type Integer)
' ------------------------------------------------

Dim i As Integer, iCount As Integer, iStart As Integer
Dim strOut As String 'chaîne qui contiendra le résultat
iCount = 0
iStart = 0

If Len(classStringValue) > 0 Then
i = 1
' Boucle qui parcourt la chaîne
Do While i <= Len(classStringValue)
If Mid(classStringValue, i, Len(strSearch)) = strSearch And iCount < intCount Then
'cas d'une occurence trouvée et le nb maximum de remplacements n'est pas atteint
If iStart >= IntStart Then
strOut = strOut & strReplac
i = i + Len(strSearch)
iCount = iCount + 1 'on incrémente le compteur de remplacements
iStart = iStart + 1 'on incrémente le compteur d'occurences trouvées
Else 'le nombre de remplacement est atteint on laisse le caractère d'origine
iStart = iStart + 1
strOut = strOut & Mid(classStringValue, i, 1)
i = i + 1
End If
Else 'il n'y a pas de remplacement à faire la chaîne recherchée n'est pas trouvée
strOut = strOut & Mid(classStringValue, i, 1)
i = i + 1
End If
Loop

Remplace = strOut
Else
Remplace = ""
End If

Exemple d’appel :
_

Private Sub BtnRemplace_Click()
'MonControle = Remplace([MonControle], "Le caractère à remplacer", "Le caractère de remplacement", Sans compter les 2 premiers caractères, Remplacer 3 caractères)
ZoneTexte = Remplace([ZoneTexte], "-", "T", 2, 3)
End Sub