| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 5390 人关注过本帖, 1 人收藏
标题:VFP编程技巧擂台赛[三]
只看楼主 加入收藏
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
结帖率:88.24%
收藏(1)
已结贴  问题点数: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分。
搜索更多相关主题的帖子: 中牟县 金水区 街道办事处 社区 编程 
2012-10-25 21:32
wjp456789
Rank: 5Rank: 5
来 自:四川成都
等 级:职业侠客
威 望:1
帖 子:345
专家分:330
注 册:2012-6-25
收藏
得分:0 
占楼看高手。。。。

我是来向高手学习的!
2012-10-26 00:49
taohua300
Rank: 12Rank: 12Rank: 12
来 自:光
等 级:贵宾
威 望:14
帖 子:1636
专家分:3906
注 册:2009-3-11
收藏
得分:0 
我没明白结果是什么样的格式

个性太多,无法显示
2012-10-26 08:47
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分: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最后的阵地
2012-10-26 14:01
网路盲流
Rank: 2
等 级:论坛游民
威 望:2
帖 子:19
专家分:11
注 册:2012-10-12
收藏
得分:0 
需要的结果是什么样式的?给个样本。
2012-10-26 14:29
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
回复 5楼 网路盲流
见4楼

坚守VFP最后的阵地
2012-10-26 15:04
taohua300
Rank: 12Rank: 12Rank: 12
来 自:光
等 级:贵宾
威 望:14
帖 子:1636
专家分:3906
注 册:2009-3-11
收藏
得分: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 




个性太多,无法显示
2012-10-26 15:42
网路盲流
Rank: 2
等 级:论坛游民
威 望:2
帖 子:19
专家分:11
注 册:2012-10-12
收藏
得分:5 
回6楼:
1.第一块、第二块为两个字段,而第三块是三个字段。4楼模式不规范,当然,也可让第一二块中的第二字段(城乡属性码)空着,但总不顺眼。其根本原因是名称字段的属性其实是不一样的,第一块是区县名称,第二块是街镇名称,第三块是社区名称,在一个二元关系中它们不是一个属性。
2.从网址:http://www.stats.上复制得到的是一个很整齐的列表形式,要将其导入到一个DBF表中应该不会有什么难度呀。
2012-10-26 15:46
网路盲流
Rank: 2
等 级:论坛游民
威 望:2
帖 子:19
专家分:11
注 册:2012-10-12
收藏
得分:0 
如果强行从超文本中提取、转换数据,实际意义似乎不大,通用性也不强。
2012-10-26 15:50
taohua300
Rank: 12Rank: 12Rank: 12
来 自:光
等 级:贵宾
威 望:14
帖 子:1636
专家分:3906
注 册:2009-3-11
收藏
得分:0 
以下是引用网路盲流在2012-10-26 15:46:52的发言:

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

9楼S版回答

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

个性太多,无法显示
2012-10-26 15:59
快速回复:VFP编程技巧擂台赛[三]
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.042555 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved