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 |
Partager