Discussion :

[lorenzokamalodo]

Bonjour,

J'ai dans une table plusieurs champs : N° de voie / nom de voie / type de voie / etc, qui constituent une adresse postale.
Avant de les concaténer, je souhaite les abréger afin de réduire le nombre de caractères.
Lorsque le champ contient un seul mot j'y arrive par une requête de mise à jour qui, à partir d'une table d'abréviations, remplace le mot ROUTE par RTE ; AVENUE par AV ; etc.
Par contre quand les adresses sont mal renseignées (déjà concaténées dans un seul champ), je n'arrive pas à faire ces remplacements, ex : comment remplacer 10 CHEMIN DE L EGLISE par 10 CHE DE L EGLISE ; 10 ROUTE DE LA GARE par 10 RTE DE LA GARE ... ? toujours à partir de la table d'abréviation

J'ai trouvé sur un forum le module RemplaceBis, ci-dessous, qui permet de remplacer un mot par un autre dans une chaine de caractères mais je dois alors créer autant de requêtes de mise à jour qu'il y a d'abréviations (une 100aine).

Il y peut-être un moyen de "combiner" le module RemplaceBis avec une requête de mise à jour ? après pas mal d'essais je bloque totalement ... merci de votre aide

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

[ClaudeLELOUP]

Bonjour et bienvenue parmi nous,

Je verrais plutôt une fonction qui prendrait comme paramètre le texte concaténé et qui après une série de Replace(), restituerait le texte abrégé.

[lorenzokamalodo]

Merci de votre message,
Ne parvenant pas à une autre solution j'ai commencé par faire des RemplaceBis() sur les 2 champs concaténés obtenus, ça fait beaucoup de requêtes pour traiter les multiples abréviations, j'aurais souhaité trouver un peu plus simple.

[ClaudeLELOUP]

Mais tu n'as pas besoin de requête !

Simplement ceci, par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
Option Compare Database
Option Explicit
 
 
Public Function Abrege(TexteLong As String) As String
  Abrege = Replace(TexteLong, " route ", " rte ")
  Abrege = Replace(Abrege, " chemin ", " ch. ")
  Abrege = Replace(Abrege, " avenue ", " av. ")
 
End Function

qui donne ceci comme résultat :

[lorenzokamalodo]

Ca marche !! encore merci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Compare Database
 
Option Explicit
 
Public Function Abrege(TexteLong As String) As String
    Abrege = RemplaceBis(TexteLong, "ROUTE", "RTE")
    Abrege = RemplaceBis(Abrege, "CHEMIN", "CHE")
    Abrege = RemplaceBis(Abrege, "AVENUE", "AV")
    Abrege = Replace(Abrege, "ZONE INDUSTRIELLE", "ZI")
    Abrege = RemplaceBis(Abrege, "PLACE", "PL")
    Abrege = RemplaceBis(Abrege, "BOULEVARD", "BD")
    Abrege = RemplaceBis(Abrege, "IMPASSE", "IMP")
 
End Function

[ClaudeLELOUP]

Mais pourquoi RemplaceBis et non simplement Remplace ?

[lorenzokamalodo]

j'ai dans le fichier des adresses pour lesquelles replace ne fonctionne pas, notamment lorsqu’il n’y a pas de N° de voie et que le type de voie n’est pas précédé d’un ESPACE
si j'enlève les ESPACES je risque de remplacer des fins de mots

[ClaudeLELOUP]

Remarque que dans ma proposition, le mot à abréger et sa correspondance étaient encadrés d'espaces.