Discussion :

[clemini]

Bonjour,

J'ai un champ Adresse qui contient plusieurs milliers d'enregistrements parmi lesquels j'aimerais remplacer certains mots par d'autres de façon automatique. Par exemple, "Rte" par "Route", "St" par "Saint" etc...
Le problème est qu'il faut considérer uniquement le mot et non pas la chaîne de caractères car sinon ça va pas mal chambouler mes enregistrements (au lieu de "Christophe", j'aurai "Chrisaintophe", pas terrible ! )
Bref j'ai cherché un peu partout, j'ai trouvé des solutions uniquement pour les chaînes de caractères mais pas pour les mots entiers et ajoutons à cela que je ne suis pas experte en Access...
Je sollicite donc votre aide en espérant que je ne sois pas passée à côté de la discussion résolvant mes "problèmes".
D'avance merci,

Clemini.

[pc75]

Bonjour,

Et en utilisant la fonction replace avec un espace avant et après ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Replace(Adresse, " st ", "Saint")

[clemini]

Bonjour et merci,

En faisant ça, ça m'en remplace certains, ceux strictement à l'intérieur de la chaîne, et cela omet donc ceux au début et ceux à la fin.
Je pourrais faire remplacer "st " par "saint" en cochant "début de champ" dans la fonction manuelle Ctrl+H sur le champ, mais pour la fin de champ il n'y a pas d'options !
C'est pourquoi je cherche une méthode générale.

[Invité]

Bonjour

A mon avis il va falloir créer ta propre fonction de remplacement.

Cette fonction va spliter ta chaîne (fonction Split avec l'espace comme séparateur), ce qui te permet de créer un tableau.

Tu parcours ce tableau qui représente chaque élément de ta chaine, donc tu as une égalité à tester, et si c'est égale tu remplaces.

Ensuite tu fais un Join pour reconstituer ta chaine, et faire le remplacement total de la valeur de ton champ.

C'est la seule solution que je vois, et cette fonction va remplacer la fonction Replace avec deux paramètres.

Philippe

[clemini]

Bonjour,

Merci en effet cela peut-être une solution à laquelle je n'avais pas pensé car mon niveau reste assez moyen ! Reste plus qu'à faire le code
Bonne journée.

[Pierre Fauconnier]

Et en imbriquant les Replace?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Replace(Replace(Replace(Monchamp, "st ", "Saint "), " st", " Saint"), " st ", " Saint ")

ou, directement dans le générateur de requête

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Remplacer(Remplacer(Remplacer([MonChamp];"st ";"Saint ");" st";" Saint");" st ";" Saint ")

[clemini]

Bonjour et merci,

Je pense que cette solution remplacera aussi les "st" à l'intérieur de mots déjà existants dans les cas "st " et " st"...

[Pierre Fauconnier]

Non, j'ai mis les trois cas...
"st " en début de phrase, " st" en fin de phrase et " st " en milieu de phrase (avec les espaces de part et d'autres).

[clemini]

Ce que je voulais dire c'est que cela remplacera bien, mais pour les cas "st " et " st" il ne s'agit pas forcément de début ou de fin de champ :
"route STanislas"=> " st"
ou encore
"BeST quelquechose" => "st "... d'où mon problème avec cette solution

[Pierre Fauconnier]

Ok. Pigé. Pas de solution pour l'instant

[Invité]

Re

Une petite fonction faite vite fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Function RemplaceBis(strTexte As String, strRech As String, strRempl As String) As String
    ' déclaration des variables
    Dim tabSplit() As String
    Dim i As Integer
    ' éclatage de la chaine
    tabSplit = Split(strTexte, " ")
    ' parcours de la chaine et remplacement
    For i = 0 To UBound(tabSplit())
        If tabSplit(i) = strRech Then
            tabSplit(i) = strRempl
        End If
    Next i
    ' reconstruction de la chaine
    RemplaceBis = Join(tabSplit(), " ")
End Function

à placer dans un module, et à utiliser à la place du Replace dans ta requête.

Je n'ai pas tout testé, mais cela devrait fonctionner.

Philippe

[clemini]

Merci beaucoup ça marche !
Et merci aussi à ceux qui ont pris le temps de me répondre,
Bonne journée !