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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
Function FORMATTEL (FRM As String, NUM As String, PREFIXFR as boolean )
Dim a as number
Dim p as number
Dim z as number
Dim x as number
Dim lngf as number
Dim lngn as number
Dim c as String
Dim PREFIX as string
Dim SEPARATEUR as string
Dim V as string
Dim TELFRMP as string
if FRM="" then
FRMTEL=NUM
elseif NUM<>"" then
if PREFIXFR then PREFIX="+33" else PREFIX=""
lngn=len(NUM)
lngf=len(FRM)
TELFRMP="" : c="" : V="" : SEPARATEUR=""
for a=1 to lngf
c=Mid(FRM,a ,1 )
Select Case c
Case "["
z=instr(a,FRM,"]")
if a=1 then
PREFIX = mid(FRM,a+1,z-(a+1))
else
SEPARATEUR=left(mid(FRM,a+1,z-(a+1)),1)
end if
a=z
Case "0","1","2","3","4","5","6","7","8","9"
V=V+c
Case "#", "X"
if V<>"" then
if PREFIX="+33" and TELFRMP="" and mid(NUM,p+1,1)="0" then
TELFRMP="(0)"
For x=p+2 to p+val(V)
TELFRMP=TELFRMP+mid(NUM,x,1)
next x
p=val(V)
V=""
else
TELFRMP=TELFRMP+iif(TELFRMP<>"",SEPARATEUR,"")+mid(NUM,p+1,val(V))
p=p+val(V)
V=""
end if
end if
End Select
next a
FRMTEL=PREFIX+TELFRMP
else
FRMTEL=""
end if
End Function |
