MVP Office Access 2003, 2004, 2005 et 2006
Base de données Base de données Administrateur Administrateur Table Table Requête Requête Formulaire Formulaire Dates & Heures Dates & Heures Nombre Nombre Math Math Fichier Fichier Commandes externes Commandes externes Automation Automation Equivalence Equivalence
Base de données Base de données
|
Equivalence - Fonction fReplace
| | Cette fonction permet de renvoyer une chaîne dans laquelle une sous-chaîne spécifiée a été remplacée plusieurs fois par une autre sous-chaîne. A partir d'Access 2000 il existe une fonction équivalente qui s'utilise de la même façon à savoir la fonction "Replace()". | | | | | | | | | | Expression = fReplace(expression, find, strReplace[, start[, compare]]) La synthaxe de la fonction fReplace comprend les éléments suivants : Eléments | Description | expression | Expression de chaîne contenant une sous-chaîne à remplacer. | find | Sous-chaîne recherchée. | strReplace | Sous-chaîne de remplacement | start | Faculatif. Position dans l'argument expression où la recherche de sous-chaîne doit commencer. Si elle est omise, la position 1 est prise par défaut. | compare | Facultatif. Valeur numérique indiquant le type de comparaison à utiliser lors de l'évaluation des sous-chaînes. Si elle est omise, une comparaison binaire est effectuée. Reportez-vous à la section Valeurs. | Section Valeurs : L'argument compare prend les valeurs suivantes : Constante | Valeur | Description | vbUseCompareOption | -1 | Effectue une comparaison à l'aide de la valeur de l'instruction Option Compare. | vbBinaryCompare | 0 | Effectue une comparaison binaire. | vbTextCompare | 1 | Effectue une comparaison de texte. | vbDatabaseCompare | 2 | Micorosft Access seulement. Effectue une comparaison basée sur des informations contenues dans votre base de données. | | | | | | | | | | | Cet exemple permet de retourner un msgBox indiquant l'expression que l'on souhaite modifier et l'expression retournée par la fonction fReplace après modification. On peut voir qu'il est possible de combiner plusieurs fois la fonction. Function fReplace_EXE() Dim strExpression As String strExpression = "Expression avec des Espaces" MsgBox "Le texte initial était :" & vbCrLf & vbCrLf & _ vbTab & strExpression & vbCrLf & vbCrLf & _ "L'expression modifié avec la fonction fReplace est :" & _ vbCrLf & vbCrLf & vbTab & _ fReplace(fReplace(strExpression, " ", ""), "avecdes", "Sans") End Function Cet exemple retournera le msgBox suivant : On peut voir dans ce message box, que l'on a effectué 2 remplacements, d'abord on a remplacé les espaces par rien et ensuite on a changé le texte de l'expression en remplaçant "avecdes" par "sans". | | | | | | | | | | Public Function fReplace(expression As String, find As String, _ strReplace As String, Optional start As Long = 1, _ Optional compare As VbCompareMethod = vbBinaryCompare) Dim strTmp As String Dim intPos As Integer If IsNull(expression) Then fReplace = Null Else strTmp = expression intPos = InStr(start, strTmp, find, compare) Do While intPos > 0 strTmp = left(strTmp, intPos - 1) & strReplace & _ Mid(strTmp, intPos + Len(find)) intPos = InStr(intPos + Len(strReplace), strTmp, find, compare) Loop fReplace = strTmp End If End Function | | |
Date de création : 14/09/2006 @ 23:16
Dernière modification : 27/10/2006 @ 16:08
Catégorie : Equivalence
Page lue 1574 fois
Prévisualiser la page
Imprimer la page
Personne n'a encore laissé de commentaire. Soyez donc le premier ! |
|
79 Membres
les 10 derniers :
Membre en ligne :
( personne ) Anonymes en ligne : 5
Total visites : 174513
Affluence record: 102
le 17/06/2007 @ 07:36
|