此主题相关图片如下：3e060f3b5bb5c9ea79d8e033d539b6003bf3b350.gif

我要搜索 美容院信息   要名称、地址、电话    一个一个复制太难了    有没有大神帮帮忙    在这感激不尽！！！

参考

下载信息  [文件大小：93.8 KB  下载次数：53]

点击浏览该文件:管理项目3.rar

mark 百度地图关键字查询

Dim 关键词 As String = "电影院"
Dim 地点 As String = "湛江"
Dim uri As String = "http://api.map.baidu.com/place/v2/search?query=" & 关键词 & "&page_size=400&page_num=0&scope=1&region=" & 地点 & "&output=json&ak=hAaa2NLELKdAIfMhMjnuEgi1"
Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(uri)
Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse
Dim stm As System.IO.Stream = rsps.GetResponseStream()
Dim reader As New System.IO.StreamReader(stm)
Dim json As String = reader.ReadToEnd

output.show(uri)
Dim ScriptControl As Object, data  As Object, JscriptCode As String
JscriptCode = "function toObject(json) {eval(""var o=""+json);return o;}"
ScriptControl = CreateObject("MSScriptControl.ScriptControl")
With ScriptControl
    .Language = "Javascript"
    .Timeout = -1
    .AddCode(JscriptCode)
    data = .Run("toObject", json)
End With

For Each o As object In data.results
    output.show(o.name)
    output.show(o.address)
    output.show(o.telephone)
    output.show("---------")
Next

这个  具体怎么 弄   求指教   I,m  新手

参考

http://www.foxtable.com/help/topics/0213.htm

这个帖子是在百度贴吧里的啊，怎么奇怪，楼主还放在这再开一个呢？

我可以给你采集出来你需要的数据，可以加我QQ或给我发邮件：  1175441108@qq.com