suppression de certains signes d'une chaîne de caractères

Version imprimable

31/05/2023, 10h38
xtof79

suppression de certains signes d'une chaîne de caractères

Bonjour,
mon problème se situe au niveau de l'import des données d'une table temporaire à un autre, via une procédure INSERT INTO.
Je fusionne les données de 3 champs dans un autre, en les séparant par des tirets.
Certains de ces 3 champs (voire tous) pouvant être vides, je me retrouve donc avec des séries de tirets en début et en fin de chaîne, que j'aimerais supprimer.
J'ai pensé un moment incorporer des IIF (ou CASE) dans la procédure INSERT TO , pour ne pas ajouter de tirets en trop, mais l'imbrication s'avère très compliquée.
Je cherche donc plutôt à utiliser un UPDATE qui supprimerais tous les signets en début et fin de chaîne, mais pas quand il est placé entre 2 mots.
J'ai bien vu cette piste-là (c'est sur EXCEL) puisqu’il faudra bien j'imagine identifier la première et/ou dernière lettre de ma chaîne, mais ça me parait assez insurmontable de l'adapter...
Merci d'avance pour vos lumières !
31/05/2023, 13h25
hyperion13

1 pièce(s) jointe(s)

Salut
Avec une requête de sélection, des fct Iif() imbriquées de l'ordre de 7 (2³ - 1 = 7 permutations possibles), vous testez les valeurs respectives de vos 3 champs et vous calculez le résultat attendu.

Code:

VraiFaux([varF1] Est Null Et [varF2] Est Null Et [varF3] Est Null;"";...

en complément de la solution d'hyperion, une petite fonction publique qui peut être utilisée dans une requete :

Code:

1
2
3
4
5
6
7
8
9
10
public function concat3col( varF1 as string, varF2 as string , varF3 as string) as string
dim s1 as string
s1=""
if len(nz(varF1)) > 0 then s1 = s1 & varF1 & "-"
if len(nz(varF2)) > 0 then s1 = s1 & varF2 & "-" 
if len(nz(varF3)) > 0 then s1 = s1 & varF3 & "-"
' on retire le dernier "-"
if len(s1) > 0 then s1 = left(s1 , len(s1) -1)
concat3col= s1
end function

31/05/2023, 14h15
xtof79

merci hyperion13, effectivement je m'y prenais mal avec les imbrications, en suivant ta logique, et en testant sur une requête sélection j'entrevois le résultat attendu... Je creuse le sillon, à moins d'avoir une proposition côté UPDATE...?
31/05/2023, 15h17
tee_grandbois
bonjour,
autre solution (qui fonctionne aussi avec INSERT):
Code:

1 2 SELECT Replace(Trim([varf1] & Space(1) & [varf2] & IIf(IsNull([varf2]),"",Space(1)) & [varf3]),Space(1),"-") AS ConcatF1F2F3 FROM MaTable;
avec éventuellement:

Code:

WHERE [varF1]&[varf2]&[varf3] Is Not Null

pour omettre les valeurs nulles

merci pour vos propositions, je suis arrivé à mes fins avec la solution d'hyperion, le code est pas si imbuvable au final (chacun jugera) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
insertcle = "INSERT INTO T04_Cles ( Nom_Cle, Type_Cle, Code_Grave, Stock, [Enfant de], Serrure_Ouverte, Bâtiment, Etage, Domaine, [Usage] ) " & _
         "SELECT T042_Saisie_Cles.Nom_Cle,T042_Saisie_Cles.Type_Cle,T042_Saisie_Cles.Code_Grave,T042_Saisie_Cles.Stock,T042_Saisie_Cles.[Enfant de], T042_Saisie_Cles.Serrure_Ouverte,T042_Saisie_Cles.Bâtiment,T042_Saisie_Cles.Etage,T042_Saisie_Cles.Domaine " & _
         ",IIf([T042_Saisie_Cles].[Bâtiment] Is Null AND [T042_Saisie_Cles].[Etage] Is Null AND [T042_Saisie_Cles].[Domaine] Is Null" & _
         " ,''," & _
         "IIf([T042_Saisie_Cles].[Bâtiment] Is Not Null AND [T042_Saisie_Cles].[Etage] Is Null AND [T042_Saisie_Cles].[Domaine] Is Null" & _
         ",[T042_saisie_cles].[Bâtiment], " & _
         "IIf([T042_Saisie_Cles].[Bâtiment] Is Not Null AND [T042_Saisie_Cles].[Etage] Is Not Null AND [T042_Saisie_Cles].[Domaine] Is Null" & _
         ",[T042_Saisie_Cles].[Bâtiment] + ' - ' + [T042_Saisie_Cles].[Etage], " & _
         "IIf([T042_Saisie_Cles].[Bâtiment] Is Null AND [T042_Saisie_Cles].[Etage] Is Not Null AND [T042_Saisie_Cles].[Domaine] Is Null " & _
         ",[T042_Saisie_Cles].[Etage], " & _
         "IIf([T042_Saisie_Cles].[Bâtiment] Is Null AND [T042_Saisie_Cles].[Etage] Is Not Null AND [T042_Saisie_Cles].[Domaine] Is Not Null " & _
         ",[T042_Saisie_Cles].[Etage] + ' - ' + [T042_Saisie_Cles].[Domaine], " & _
          "IIf([T042_Saisie_Cles].[Bâtiment] Is Null AND [T042_Saisie_Cles].[Etage] Is Null AND [T042_Saisie_Cles].[Domaine] Is Not Null " & _
         ",[T042_Saisie_Cles].[Domaine], " & _
         "IIf([T042_Saisie_Cles].[Bâtiment] Is Not Null AND [T042_Saisie_Cles].[Etage] Is Null AND [T042_Saisie_Cles].[Domaine] Is Not Null " & _
         ",[T042_Saisie_Cles].[Bâtiment] + ' - ' + [T042_Saisie_Cles].[Domaine] " & _
         ", [T042_Saisie_Cles].[Bâtiment] + ' - ' + [T042_Saisie_Cles].[Etage] + ' - ' + [T042_Saisie_Cles].[Domaine]))))))) " & _
         "AS [Usage] " & _
         "FROM T042_Saisie_Cles"
 
         DoCmd.RunSQL insertcle

Pas assez habile pour manier la fonction publique de micniv, mais j'y reviendrai peut-être...
Merci aux contributeurs ! (je clos le sujet)

31/05/2023, 16h49
tee_grandbois

Citation:

je suis arrivé à mes fins avec la solution d'hyperion, le code est pas si imbuvable au final (chacun jugera) :

:weird: c'est sûr qu'à côté, la simplicité de ma proposition fait tâche

Code:

"Replace(Trim([T042_Saisie_Cles].[Bâtiment] & Space(1) & [T042_Saisie_Cles].[Etage] & IIf(IsNull([T042_Saisie_Cles].[Etage]),"",Space(1)) & [T042_Saisie_Cles].[Domaine]),Space(1)," - ") AS [Usage] "
31/05/2023, 19h21
xtof79

désolé tee_grandbois, j'ai exploité la solution que j'appréhendais le mieux (et accessoirement la 1ère proposée), et vu mon niveau, c'est plutôt de bon augure pour la qualité de ton code :mrgreen:
Mais maintenant que tu m'as mâché le travail... ;)
merci à toi !

1 pièce(s) jointe(s)

Pensez à faire le ménage dans les lignes d'écriture !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
insertcle = "INSERT INTO T04_Cles ( Nom_Cle, Type_Cle, Code_Grave, Stock, [Enfant de], Serrure_Ouverte, Bâtiment, Etage, Domaine, [Usage] ) " & _
         "SELECT Nom_Cle,Type_Cle,Code_Grave,Stock,[Enfant de], Serrure_Ouverte,Bâtiment,Etage,Domaine " & _
         ",IIf([Bâtiment] Is Null AND [Etage] Is Null AND [Domaine] Is Null" & _
         " ,''," & _
         "IIf([Bâtiment] Is Not Null AND [Etage] Is Null AND [Domaine] Is Null" & _
         ",[T042_saisie_cles].[Bâtiment], " & _
         "IIf([Bâtiment] Is Not Null AND [Etage] Is Not Null AND [Domaine] Is Null" & _
         ",[Bâtiment] + ' - ' + [Etage], " & _
         "IIf([Bâtiment] Is Null AND [Etage] Is Not Null AND [Domaine] Is Null " & _
         ",[Etage], " & _
         "IIf([Bâtiment] Is Null AND [Etage] Is Not Null AND [Domaine] Is Not Null " & _
         ",[Etage] + ' - ' + [Domaine], " & _
          "IIf([Bâtiment] Is Null AND [Etage] Is Null AND [Domaine] Is Not Null " & _
         ",[Domaine], " & _
         "IIf([Bâtiment] Is Not Null AND [Etage] Is Null AND [Domaine] Is Not Null " & _
         ",[Bâtiment] + ' - ' + [Domaine] " & _
         ", [Bâtiment] + ' - ' + [Etage] + ' - ' + [Domaine]))))))) " & _
         "AS [Usage] " & _
         "FROM T042_Saisie_Cles"

Pas eu le temps de regarder ce qui cloche dans vos codes respectifs.

1 pièce(s) jointe(s)

salut hyperion,
je n'ai pas l'erreur sur mon jeu de test (bravocharlie = blanc-rouge chez moi):

Pièce jointe 639494

Code:

1
2
3
4
SELECT [Matable].ID, [Matable].varF1, [Matable].varF2, [Matable].varF3, Replace(Trim([varf1] & Space(1) & [varf2] & IIf(IsNull([varf2]),"",Space(1)) & [varf3]),Space(1)," - ") AS ConcatF1F2F3
FROM MaTable
WHERE ((([varF1] & [varf2] & [varf3]) Is Not Null))
ORDER BY [Matable].varF1 DESC , [Matable].varF2 DESC , [Matable].varF3 DESC;

tes valeurs vides contiennent-elles nul ou "" ?

31/05/2023, 20h50
hyperion13

@tee_grand
m'a trompé :mrgreen: C'est OK

Citation:

Envoyé par hyperion13

Pas eu le temps de regarder ce qui cloche dans vos codes respectifs.

pour le code de micniv, il faut remplacer String par Variant ou rien du tout (car Variant est le type par défaut) dans les paramètres de la fonction:
Code:

1 2 3 4 5 6 7 8 9 10 Public Function concat3col(varF1, varF2, varF3) As String Dim s1 As String s1 = "" If Len(Nz(varF1)) > 0 Then s1 = s1 & varF1 & " - " If Len(Nz(varF2)) > 0 Then s1 = s1 & varF2 & " - " If Len(Nz(varF3)) > 0 Then s1 = s1 & varF3 & " - " ' on retire le dernier " -" If Len(s1) > 0 Then s1 = Left(Trim(s1), Len(s1) - 2) concat3col = s1 End Function

Salut,
je me suis replongé sur mon code, suite à vos discussions, et parce que j'ai voulu intégrer un 4e champ. L'empilement des iif étant devenu ingérable, j'ai opté pour la solution "tee_grandbois", mais dans mon cas elle m'ajoute des tirets en milieu de chaîne quand les données d'origine ont des espaces... argh !
J'ai fini par dompter la technique micniv, et ça donne ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
' procédure préalable à la concaténation des colonnes Serrures, bâtiment, étage, domaine dans Usage
Dim VarF1 As String
Dim VarF2 As String
Dim VarF3 As String
Dim VarF4 As String
VarF1 = Nz(Me.[Serrure_ouverte])
VarF2 = Nz(Me.[Bâtiment])
VarF3 = Nz(Me.[Etage])
VarF4 = Nz(Me.[Domaine])
Dim usg As String
usg = ""
If Len(VarF1) > 0 Then usg = usg & VarF1 & " - "
If Len(VarF2) > 0 Then usg = usg & VarF2 & " - "
If Len(VarF3) > 0 Then usg = usg & VarF3 & " - "
If Len(VarF4) > 0 Then usg = usg & VarF4 & " - "
' on retire le dernier " -"
If Len(usg) > 0 Then usg = Left(Trim(usg), Len(usg) - 2)
 
 
 ' procédure d'insertion des clés dans la table T04
 
Dim insertcle As String
 
insertcle = "INSERT INTO T04_Cles ( Nom_Cle, Type_Cle, Code_Grave, Stock, [Enfant de], Serrure_Ouverte, Bâtiment, Etage, Domaine, Usage ) " & _
         "VALUES (T042_Saisie_Cles.Nom_Cle " & _
         ",T042_Saisie_Cles.Type_Cle " & _
         ",T042_Saisie_Cles.Code_Grave " & _
         ",T042_Saisie_Cles.Stock " & _
         ",T042_Saisie_Cles.[Enfant de] " & _
         ",T042_Saisie_Cles.Serrure_Ouverte " & _
         ",T042_Saisie_Cles.Bâtiment " & _
         ",T042_Saisie_Cles.Etage " & _
         ",T042_Saisie_Cles.Domaine " & _
         ",'" & usg & "')"
         DoCmd.RunSQL insertcle

ça paraît tellement simple après coup ! :mouarf:
En tous cas ça marche nickel, encore merci à tous les 3 !

02/06/2023, 22h23
tee_grandbois

1 pièce(s) jointe(s)

bonsoir,

Citation:

j'ai opté pour la solution "tee_grandbois", mais dans mon cas elle m'ajoute des tirets en milieu de chaîne quand les données d'origine ont des espaces... argh !

pour mon code, le principe aurait été le même, sauf qu'il fallait mettre 3 espaces entre chaque valeur non vide et si il n'y a que des espaces sans autre caractère significatif (étrange car Access supprime les espaces par défaut en fin de chaiîne), on utilise Trim() :

Code:

select Replace(Trim(Trim([varf1]) & IIf(IsNull(Trim([varf2])),"",Space(3)) & Trim([varf2]) & IIf(IsNull(trim([varf3])),"",Space(3)) & trim([varf3]) & IIf(IsNull(trim([varf4])),"",Space(3)) & trim([varf4])),Space(3)," - ") AS [ConcatF1-4] FROM MATABLE;

Pièce jointe 639619

sinon, c'est vrai que le code de micniv fait très bien le travail

Bonjour,

J'arrive un peu tard :?

A noter que dans ce type de problème, quand le nombre de champs varFi augnente, il peut être intéressant d'utiliser un tableau de paramètres :

https://learn.microsoft.com/fr-fr/of...rameter-arrays

A passer comme argument vars() dans une fonction concatener :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Public Function concatener(ParamArray vars() As Variant) Dim i As Long For i = 0 To UBound(vars) If Nz(vars(i)) <> "" Then concatener = concatener & vars(i) & " - " End If Next i If Len(concatener) > 2 Then concatener = Left(concatener, Len(concatener) - 3) End If End Function
Ensuite, on appel la fonction dans la requête comme ceci pour 4 champs :

concatF1-4: concatener([varF1];[varF2];[varF3];[varF4])

Cdlt,