Discussion :

[ajor]

Bonjour,

J'ai une table qui contient un champ, qui contient des adresses mail.

Je suis en train d'essayer d'extraire le nom de domaine (ce qu'il y a après l'@) de chaque adresse et de l'insérer dans un deuxième champ de la table.

Vous voyez le truc?

Merci d'avance à ceux qui essaieront de m'aider...

Ajor

[Snipah]

Bonjour,
n'oublie pas de préciser l'environnement sur lequel tu travailles, ça peut aider

[ajor]

Heu oui, je bosse sur Microsoft Access 2000...

[Snipah]

Bon, je vais pas pouvoir aider des masses, ne connaissant pas access.

En oracle, pour donner une idée, ça se ferait comme ça :

Code :

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

1
2
UPDATE matable 
SET monchamps=substr(email,instr(email,'@')+1)

Sous Access SUBSTR n'existe manifestement pas. INSTR existe, mais je saurai pas dire comment il s'utilise (par exemple, en mySql les deux parametres sont inversés par rapport à Oracle je crois).
Consulte ce lien, ça peut peut etre t'aider : http://sqlpro.developpez.com/cours/s...onctions/#L1.4

[Jean-Philippe André]

salut,
utilise cette 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
Function RecupererTexteEntreBornes(texte As String, textedebut As String, textefin As String) As String
Dim result As String
Dim debut As Integer
Dim fin As Integer
    debut = InStr(1, texte, textedebut)
    fin = InStr(debut + Len(textedebut), texte, textefin)
    result = ""
    If debut > 0 Then
        If fin > debut + Len(textedebut) Then
            result = Mid(texte, debut + Len(textedebut), fin - debut - Len(textedebut))
        Else
            result = Right(texte, Len(texte) - debut - Len(textedebut) + 1)
        End If
    End If
    RecupererTexteEntreBornes = result
End Function

Ainsi

Code :

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

 MsgBox RecupererTexteEntreBornes("pioupiou@DVP.com","@","")

affichera

Code :

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

DVP.com

[ajor]

Merci Snipah,

en effet SUbstr n'est pas reconnue dans Access2000.
Et je ne voie pas comment utiliser Instr dans mon cas, ça renvoie une position, donc un chiffre.

Est-ce qu'il y a un autre moyen?

Aj

[Tofalu]

Fonction Mid

[ajor]

Merci beaucoup pour votre aide.

Par contre je suis débutant, et d'habitude j'utilise des simple requetes SQL... je ne sais pas trop comment m'y prendre pour utiliser cette fonction, ou est-ce que je la place?

Et est-ce que c'est dans la requete que je place un code du genre:

Code :

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

MsgBox RecupererTexteEntreBornes(Ma_Table.email,"@","")

?? je nage un peu....

[ajor]

On dirait qu'il y a une solution avec la fonction Mid (merci Tofalu!)

J'ai essayé cette requete

Code sql :

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

UPDATE Matable SET dom = Mid([mail],Instr("@",[mail]));

dans lequel mail contient mon email et dom doit contenir le nom de domaine.

Sauf que j'obtient une erreur d'échec de conversion de type


Vous voyez l'erreur?

[Jean-Philippe André]

En l'occurence, le code fourni doit être mis dans un module.
Une fois cela fait, il suffit d'écrire la requête de la façon suivante :

Code SQL :

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

1
2
UPDATE matable 
SET monchamps=RecupererTexteEntreBornes(email,'@','')

L'avantage de travaille sous Access est notamment la possibilité de faire appel à des fonctions développées en VBA, ce qui permet d'avoir une manipulation plus complexe des données

[ajor]

Merci beaucoup, cette fonction a marché!

Merci jpcheck