Discussion :

[Didier77]

Bonjour,
je suis débutant en VB et j'ai un probleme dans access
je doit normalisé un champ StandardName dans une table access 97
par exemple:
"Mans (Le)" doit etre normalisé en "Le Mans"

Je voulais faire ça avec une requete mais après plusoeurs tentative je pense que ce n'est pas possible donc il faut utiliser VB
Si quelqu'un a une idée..

[Delbeke]

Effectivement je ne vois pas bien comment une requete Sql pourais faire çà.

Si il n'y avais que les Mans (Le) a transformer, une requete du type "Update TaBle Set Ville='Le Mans' Where Ville='Mans (Le)' serait suffisante

Donc je suggégére toutes une série de requete de normalisation, une pour chaque nom de ville à changer

[Didier77]

Merci pour ta réponse mais en fait il n'y a pas que Le Mans
il y a toutes les villes de France qui commence par Le, L', La, Les
je suis en train de galérer en VB, en fait j'ai penser à tester si il y a le caractere "(" dans la chaine et si oui supprimer ce qui suit et le réecrire
au début de la chaine...
mais c pas gagné
si quelqu'un la déjà fait..

[Didier77]

Merci Phifi je vais essayé

[Delbeke]

Tu peux Toujours ecrire une fonction qui normalise le nom de la ville
et l'appeler pour chaque enregistrement

Exemple de fonction

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
16
17
18
19
20
21
22
 
Private Function Normalise(ByVal NomVille As String)
  Dim PosDeb As Long
  Dim PosFin As Long
  Dim Longeur As Long
  Dim Prefixe As String
 
  PosDeb = InStr(NomVille, "(")
  If PosDeb = 0 Then
    Normalise = NomVille
    Exit Function
  End If
  PosFin = InStr(NomVille, ")")
  If PosFin = 0 Then
    'pas de parenthese fermante
    PosFin = Len(NomVille)
  End If
  Longeur = PosFin - PosDeb - 1
  Prefixe = Mid(NomVille, PosDeb + 1, Longeur)
  NomVille = Left(NomVille, PosDeb - 1)
  Normalise = Trim(Prefixe & " " & NomVille)
End Function

Tu lis chaque enregistrement et tu modifie l'enregistrement si le champs est different du resultat de la fonction (pas la peinne de modifier tous les enreistrements)

[Didier77]

ok merci beaucoup
j'ai lu ton code et si j'ai bien compris
"NomVille" c'est le champ à normalisé

[Phifi]

Bonjour,

si tu as cette configuration dans tous tes champs ville, càd "Ville (préfixe)" et que tu veux obtenir "préfixe ville", tu peux pour chaque champ :

- utiliser la fonction Instr pour chercher ton premier caractère "("
- si tu trouves "(", utilisation de Instr également pour trouver la position de ")"
- tu extrais ton préfixe contenu entre tes deux positions (fonction Mid)
- tu concatènes (opérateur "+" ou "&") le début de ta chaine (jusqu'à "(", tu as sa position) avec ton préfixe extrait précédemment
- tu édites ton champ ville pour remplacer l'enregistrement par ton résultat
- si tu as beaucoup d'enregistrements, F1 sur "BeginTrans" ou "CommitTrans" pour optimiser le traitement

A toi de jouer