Remove unwanted charcters from phone numbers

[Danny Yeadon]

Hi
I need to remove unwanted characters from phone numbers from my phone bill
to analyse the data.
Some examples are
02 48222222 i need to remove the space
[phone] i need to remove the +
0427 221 529 i need to remove both spaces
0419 637 344MNET i need to remove the spaces and the MNET
telstra.wap i need to remove all of this
[phone]MNE i need to remove the + and MNE

I think Telstra my phone company has done this on purpose to stop people
like myself from analysing their phone calls

I have tried using right, left and length functions in a query but this does
not seem to work properly and is cumbersome

Any help would be greatly appreciated

Thanks Danny

[RoyVidar]

Danny Yeadon wrote in message <44********@dne ws.tpgi.com.au> :

Hi
I need to remove unwanted characters from phone numbers from my phone
bill to analyse the data.
Some examples are
02 48222222 i need to remove the space
[phone] i need to remove the +
0427 221 529 i need to remove both spaces
0419 637 344MNET i need to remove the spaces and the MNET
telstra.wap i need to remove all of this
[phone]MNE i need to remove the + and MNE

I think Telstra my phone company has done this on purpose to stop
people like myself from analysing their phone calls

I have tried using right, left and length functions in a query but
this does not seem to work properly and is cumbersome

Any help would be greatly appreciated

Thanks Danny

I think this calls for a user defined function, where I'd probably loop
the string, verify each character and append the numbers to the result
string - perhaps something like the air code below (try it in a
standard module, not a form/report class module)

public function stripunvanted(b yval v_strIn) as string
dim lngCount as long
if not isnull(v_strIn) then
for lngCount = 1 to len(v_strIn)
if isnumeric(mid$( v_strIn, lngCount, 1)) then
strOut = strOut & mid$(v_strIn, lngCount, 1)
end if
next lngCount
end if
stripunvanted = strOut
end function

call it with stripunvanted([name of your field]) in the query.

--
Roy-Vidar

[Rick Wannall]

dim s as string

s = replace(Formatt edPhoneNumber, "+", "")
s = replace(s, " ", "")
FormattedPhoneN umber would be replaced by whatever your field name is that
holds the formatted phone number.

Be sure to notice that after the first Replace you reference s, not the
original field.

[Danny Yeadon]

Thanks Roy
It worked Beautifully

Danny

"RoyVidar" <ro************ *@yahoo.no> wrote in message
news:mn******** *************** @yahoo.no...

Danny Yeadon wrote in message <44********@dne ws.tpgi.com.au> :

Hi
I need to remove unwanted characters from phone numbers from my phone
bill to analyse the data.
Some examples are
02 48222222 i need to remove the space
[phone] i need to remove the +
0427 221 529 i need to remove both spaces
0419 637 344MNET i need to remove the spaces and the MNET
telstra.wap i need to remove all of this
[phone]MNE i need to remove the + and MNE

I think Telstra my phone company has done this on purpose to stop people
like myself from analysing their phone calls

I have tried using right, left and length functions in a query but this
does not seem to work properly and is cumbersome

Any help would be greatly appreciated

Thanks Danny

I think this calls for a user defined function, where I'd probably loop
the string, verify each character and append the numbers to the result
string - perhaps something like the air code below (try it in a
standard module, not a form/report class module)

public function stripunvanted(b yval v_strIn) as string
dim lngCount as long
if not isnull(v_strIn) then
for lngCount = 1 to len(v_strIn)
if isnumeric(mid$( v_strIn, lngCount, 1)) then
strOut = strOut & mid$(v_strIn, lngCount, 1)
end if
next lngCount
end if
stripunvanted = strOut
end function

call it with stripunvanted([name of your field]) in the query.

--
Roy-Vidar