VFP编程技巧擂台赛[三] - VFP论坛

已结贴√ 问题点数：100 回复次数：46

VFP编程技巧擂台赛[三]

网页内容提取

网址：http://www.stats.
上述网页内容为[河南省郑州市2011年行政区划代码和城乡划分代码]，部分内容见下面内容：

代码名称
410101000000 市辖区 &&该行可以不提取(没有分支)
410102000000 中原区
  410102001000 林山寨街道办事处
  ......
   410102001001 111 邮电院社区居委会
   ......
410103000000 二七区
410104000000 管城回族区
410105000000 金水区
410106000000 上街区
410108000000 惠济区
410122000000 中牟县
410181000000 巩义市
410182000000 荥阳市
410183000000 新密市
410184000000 新郑市
410185000000 登封市
要求：

程序代码：
提取内容为县(区)、乡(镇、街道)、村(居委会)三级，直接从网页提取内容(不允许下载提取)，要求速度快，代码简洁。
最优者将获得60可用分奖励，参与者都有奖励。
本来想多放些分，可系统最高只能100分。

第 2 楼

得分:0

占楼看高手。。。。

我是来向高手学习的！

第 3 楼

得分:0

我没明白结果是什么样的格式

个性太多,无法显示

第 4 楼

得分:0

回复 3楼 taohua300

代码名称
410101000000 市辖区
410102000000 中原区
410103000000 二七区
410104000000 管城回族区
410105000000 金水区
410106000000 上街区
410108000000 惠济区
410122000000 中牟县
410181000000 巩义市
410182000000 荥阳市
410183000000 新密市
410184000000 新郑市
410185000000 登封市

410102001000 林山寨街道办事处
410102002000 建设路街道办事处
410102003000 棉纺路街道办事处
410102004000 秦岭路街道办事处
410102005000 桐柏路街道办事处
410102006000 三官庙街道办事处
410102007000 绿东村街道办事处
410102008000 汝河路街道办事处
410102009000 航海西路街道办事处
410102010000 中原西路街道办事处
410102011000 西流湖街道办事处
410102012000 须水街道办事处
410102160000 石佛镇
410102360000 沟赵乡

410102001001 111 邮电院社区居委会
410102001002 111 碧沙岗社区居委会
410102001003 111 互助路社区居委会
410102001004 111 伊河路社区居委会
410102001005 111 文化宫路社区居委会
410102001006 111 颖河路社区居委会
410102001007 111 工业高专社区居委会
410102001008 111 一中社区居委会
410102001009 111 工程学院社区居委会
410102001010 111 工人路社区居委会
410102001011 111 百花社区居委会
410102001012 111 林山寨社区居民委员会
410102001013 111 技师学院社区居委会
410102001014 111 郑州日报社区居委会

坚守VFP最后的阵地

第 5 楼

得分:0

需要的结果是什么样式的？给个样本。

第 6 楼

得分:0

回复 5楼网路盲流

见4楼

坚守VFP最后的阵地

第 7 楼

得分:30

我的思路是找到一个RUL，然后找子URL，再然后找子RUL这样

程序代码：

Clear
lcUrl = [http://www.stats.]
oHtml = Createobject("MICROSOFT.XMLHTTP")
oHtml.open("get", lcUrl, .F.)
oHtml.send
lcStr = oHtml.responseBody

Strtofile("", "aa.txt")
m.i = 1
Do While .T.
    lcTemp = Strconv(Strextract(lcStr, [<tr class='countytr'>], [</tr>], m.i), 2)
    If Empty(lcTemp) == .T.
        Exit
    Else
        If At('a href', lcTemp) == 0
            Strtofile(Transform(m.i) + Chr(9) + Strextract(lcTemp, "<td>", "</td>", 1) + Chr(9) + Strextract(lcTemp, "<td>", "</td>", 2) + Chr(13) + Chr(10), "aa.txt", .T.)
        Else
            Strtofile(Transform(m.i) + Chr(9) + Strextract(lcTemp, "'>", "</", 1) + Chr(9) + Strextract(lcTemp, "'>", "</", 2) + Chr(13) + Chr(10), "aa.txt", .T.)
            lcUrl1 = Left(lcUrl, Rat('/', lcUrl, 1)) + Strextract(lcTemp, "'", "'")
            m.i1 = 1
            oHtml.open("get", lcUrl1, .F.)
            oHtml.send
            lcStr1 = oHtml.responseBody
            Do While .T.
                lcTemp1 = Strconv(Strextract(lcStr1, [<tr class='towntr'>], [</tr>], m.i1), 2)
                If Empty(lcTemp1) == .T.
                    Exit
                Else
                    If At('a href', lcTemp1) == 0
                        Strtofile(Transform(m.i) + "." + Transform(m.i1) + Chr(9) + Strextract(lcTemp1, "<td>", "</td>", 1) + Chr(9) + Strextract(lcTemp1, "<td>", "</td>", 2) + Chr(13) + Chr(10), "aa.txt", .T.)
                    Else
                        Strtofile(Transform(m.i) + "." + Transform(m.i1) + Chr(9) + Strextract(lcTemp1, "'>", "</", 1) + Chr(9) + Strextract(lcTemp1, "'>", "</", 2) + Chr(13) + Chr(10), "aa.txt", .T.)
                        lcUrl2 = Left(lcUrl1, Rat('/', lcUrl1, 1)) + Strextract(lcTemp1, "'", "'")
                        m.i2 = 1
                        oHtml.open("get", lcUrl2, .F.)
                        oHtml.send
                        lcStr2 = oHtml.responseBody
                        Do While .T.
                            lcTemp2 = Strconv(Strextract(lcStr2, [<tr class='villagetr'>], [</tr>], m.i2), 2)
                            If Empty(lcTemp2) == .T.
                                Exit
                            Else
                                Strtofile(Transform(m.i) + "." + Transform(m.i1) + "." + Transform(m.i2) + Chr(9) + Strextract(lcTemp2, "<td>", "</td>", 1) + Chr(9) + Strextract(lcTemp2, "<td>", "</td>", 2) + Chr(9) + Strextract(lcTemp2, "<td>", "</td>", 3) + Chr(13) + Chr(10), "aa.txt", .T.)
                            Endif
                            m.i2 = m.i2 + 1
                        Enddo            
                    Endif
                Endif
                m.i1 = m.i1 + 1
            Enddo            
        Endif
    Endif
    m.i = m.i + 1
Enddo

个性太多,无法显示

第 8 楼

得分:5

回6楼：
1.第一块、第二块为两个字段，而第三块是三个字段。4楼模式不规范，当然，也可让第一二块中的第二字段（城乡属性码）空着，但总不顺眼。其根本原因是名称字段的属性其实是不一样的，第一块是区县名称，第二块是街镇名称，第三块是社区名称，在一个二元关系中它们不是一个属性。
2.从网址：http://www.stats.上复制得到的是一个很整齐的列表形式，要将其导入到一个DBF表中应该不会有什么难度呀。

第 9 楼

得分:0

如果强行从超文本中提取、转换数据，实际意义似乎不大，通用性也不强。

第 10 楼

得分:0

以下是引用网路盲流在2012-10-26 15:46:52的发言：

回6楼：
1.第一块、第二块为两个字段，而第三块是三个字段。4楼模式不规范，当然，也可让第一二块中的第二字段（城乡属性码）空着，但总不顺眼。其根本原因是名称字段的属性其实是不一样的，第一块是区县名称，第二块是街镇名称，第三块是社区名称，在一个二元关系中它们不是一个属性。
2.从网址：http://www.stats.上复制得到的是一个很整齐的列表形式，要将其导入到一个DBF表中应该不会有什么难度呀。

练习玩么
当有游戏玩

9楼S版回答

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

个性太多,无法显示