怎样提取文本中的一个或一组数值？

1、在标准模块中写一自定义函数：
function 数(文本 as string) as long
dim str as string
dim i as long,n as long
str=文本
n=len(str)
for i=1 to n
   if Asc(mid(str,1,1)<Asc(0) or Asc(mid(str,1,1)>Asc(9) then
       str=Right(str,len(str)-1)
   else
       exit for
   end if
next
if len(nz(str,""))=0 then
   数=null
else
   数=val(str)
end if
end function

2、在查询中调用该函数：
select *,数(地址) as 提取数字 from tbname

以上函数没有测试，你试试看。