cela m'a été utile alors si cela peu en aider d'autres

Merci à Anil PAssi

Legerement modifié cela donne
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
Create Or Replace Function check_email(Mon_Email in Varchar2)
  Return Varchar2 Is
  l_dot_pos    NUMBER;
  l_at_pos     NUMBER;
  l_str_length NUMBER;
Begin
  l_dot_pos    := instr(Mon_Email ,'.');
  l_at_pos     := instr(Mon_Email ,'@');
  l_str_length := length(Mon_Email);
  If ((l_dot_pos = 0) OR (l_at_pos = 0)  OR
      (l_dot_pos = l_at_pos + 1) OR (l_str_length < 4) OR
      (l_at_pos  = 1)  OR (l_at_pos = l_str_length) OR
      (l_dot_pos = l_str_length))
  Then
    RETURN 'KO';
  End If;
  If instr(substr(Mon_Email ,l_at_pos) ,'.') = 0 Then Return 'KO'; End If;
  Return 'OK';
END check_email;