我觉得问题可以分两步：
1.网页获取文本信息。
2.对文本信息的搜索。

看了lz另外一个贴，相信第一地点对lz来说应该没什么问题。
第二点我觉得可以用 正则表达式 来处理，晚上回去试试。
这样的规则:1\d{10}|((0(\d{3}|\d{2}))-)?\d{7,8}(-\d*)?


[ 本帖最后由 hgfeng1984 于 2012-10-26 16:38 编辑 ]

哪一个贴 ？
貌似我在坛子里只发过一个贴啊

等高手代码看看
还没有在vfp中使用过正则表达式
不知道怎么用

貌似我没的传图片和附件，以下图片是我搜索 电话企业列表.htm 的结果。

" border="0" />

规则是网上找的，自己改了下。
以下为代码，替换红字部分为 电话企业列表.htm 的文本，执行看结果。
获取网页内容的我就不写了。
以下代码：
-------------------------------分隔线-------------------------------

Clear
lcPatrn='1\d{10}|((\d{4}|\d{3}|\d{2})-)?((\d{4}|\d{3}|\d{2})-)?\d{7,8}(-\d*)?' &&规则

TEXT TO lcString NOSHOW
这里是你要搜索的文本内容.
ENDTEXT
 
PUBLIC RegEx,nTime
 nTime=SECONDS()
 regEx = CreateObject("VBScript.RegExp")
 regEx.Pattern = lcPatrn
 regEx.IgnoreCase = .F.
 regEx.Global = .T.
 Matches=regEx.Execute(lcString)
 lcGs=ALLTRIM(STR(regEx.Execute(lcString).Count))
 RetStr='元素个数:'+lcGs+CHR(13)+CHR(10)
 For Each Matches In Matches
     RetStr=RetStr+"位置: "+PADR(Ltrim(Str(Matches.FirstIndex)),8)
     RetStr=RetStr+"长度: "+PADR(Ltrim(Str(Matches.Length)),4)
     RetStr=RetStr+"值: "+Matches.Value+CHR(13)
 NEXT

 nTime=SECONDS()-nTime
 IF EMPTY(RetStr)
 ?'无结果'
 ELSE
 ?[用时:]+STR(nTime,7,5)+[秒]
 ?RetStr
 ENDIF
 
-------------------------------分隔线-------------------------------
元素个数:37
位置: 9769    长度: 12  值: 024-83893518
位置: 10105   长度: 12  值: 024-83893518
位置: 10461   长度: 8   值: 61025525
位置: 10806   长度: 11  值: 13088824955
位置: 11154   长度: 13  值: 0512-68052095
位置: 11534   长度: 11  值: 13771807525
位置: 11924   长度: 12  值: 020-87356358
位置: 12277   长度: 12  值: 021-66058069
位置: 12623   长度: 14  值: 86-25-84714861
位置: 12973   长度: 14  值: 86-21-52600668
位置: 13330   长度: 14  值: 86-21-68887776
位置: 13673   长度: 15  值: 86-0769-4806666
位置: 14002   长度: 16  值: 86-0371-68058285
位置: 14334   长度: 16  值: 86-0595-85756966
位置: 14704   长度: 20  值: 86-0775-83516711-812
位置: 14988   长度: 8   值: 22030023
位置: 15011   长度: 10  值: 78264097-6
位置: 15088   长度: 15  值: 86-0434-5013000
位置: 15388   长度: 15  值: 86-021-13761818
位置: 15754   长度: 14  值: 86-316-5916190
位置: 16116   长度: 14  值: 86-21-51696272
位置: 16485   长度: 15  值: 86-022-23022288
位置: 16846   长度: 14  值: 86-28-68591406
位置: 17208   长度: 15  值: 86-021-62429512
位置: 17564   长度: 16  值: 86-0755-27088877
位置: 17915   长度: 16  值: 86-0755-27088877
位置: 18638   长度: 15  值: 86-021-56904487
位置: 18988   长度: 14  值: 86-769-2337525
位置: 19350   长度: 15  值: 86-020-87597926
位置: 19729   长度: 15  值: 86-020-38204260
位置: 20101   长度: 16  值: 86-0755-29847423
位置: 20470   长度: 15  值: 86-0535-6249967
位置: 20825   长度: 16  值: 86-0769-22756985
位置: 21200   长度: 15  值: 86-010-64937625
位置: 21560   长度: 16  值: 86-0755-82205330
位置: 21910   长度: 15  值: 86-020-84229708
位置: 22271   长度: 15  值: 86-021-61028676



[ 本帖最后由 hgfeng1984 于 2012-10-28 01:24 编辑 ]

vfp 调用 VBScript 使用正则表达式 ？

这个有意思

貌似正则的效率要高

都是技术控