| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 402 人关注过本帖
标题:VB高手帮忙改一下,谢谢了。
只看楼主 加入收藏
wang20292
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2010-4-16
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:3 
VB高手帮忙改一下,谢谢了。
本人想提取http://www.网页中以下内容,提取后链接不好用了,高手帮忙改一下。谢谢了。

·甘肃3000万元投资啤酒花生产加工
2010-4-20
·4元中档啤酒引领郑州夜市消费市场
2010-4-20



·泰山黑麦黑啤酒受热捧
2010-4-9
·青岛四方啤酒民俗文化街竣工
2010-4-9
·大富豪啤酒将在开发区新建工厂

Private Sub Command1_Click()
Dim s As String
    With CreateObject("Msxml2.XMLHTTP")
        .Open "GET", "http://www., False
        .Send
        s = .responsetext
        s = Split(Split(s, "<div id=""ArticleList1_Panel1"">", -1, 1)(1), "尾页", -1, 1)(0) & "</a> </div>"

    End With
    Open "c:\temp.htm" For Output As #1
    Print #1, "<HTML>" & s & "</html>"
    Close #1
    WebBrowser1.Navigate "c:\temp.htm", False
End Sub
搜索更多相关主题的帖子: 大富豪 啤酒花 开发区 文化街 泰山 
2010-04-23 16:28
wang20292
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2010-4-16
收藏
得分:0 
回复 2楼 zmh886
谢谢了啊,你的QQ多少?交个朋友。

2010-04-24 09:26
快速回复:VB高手帮忙改一下,谢谢了。
数据加载中...
 
   



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

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