请教高手，这类不能从“查看源码”中直接获取列表值的网页数据如何提取。地址如下：
[http://jg.]
最好是用vb或者vfp实现

[此贴子已经被作者于2016-7-26 22:54编辑过]

复制、粘贴

梅子论坛中有很多操作网页的帖子，可以去搜索一下。

这个页面至少有两个页框控件组成，要找到需要提取数据的页框的网址入口才能提取到你需要的数据。

应该不难，下午我试试看。

Clear
oIE = Createobject("internetexplorer.application")
oIE.Visible = .T.
cURL = "http://jg.
oIE.Navigate(cURL)
tStartSecond = Seconds()
Do While oIE.Busy = .T. Or oIE.ReadyState#4
    If Seconds() - tStartSecond > 10
        Exit
    Endif
    Inkey(0.5)
Enddo

#Define CRLF Chr(13) + Chr(10)

O1 = oIE.Document.GetElementsByTagName("th")
O2 = oIE.Document.GetElementsByTagName("td")

cStr = ""
For I = 0 To O1.Length - 1  && 获取该元素 (cElement) 的每个内容
    cStr = cStr + Iif(Type("O1.Item(I).InnerText") # "U", O1.Item(I).InnerText, "") + " : "
    cStr = cStr + Iif(Type("O2.Item(I).InnerHtml") # "U", O2.Item(I).InnerText, "") + CRLF
Endfor
=Strtofile(cStr, "AAA.txt")

oIE.Quit()
Modify File aaa.txt

是不是要这种效果：


中文全称 : 中信证券股份有限公司
注册地址 : 广东省深圳市福田区中心三路8号卓越时代广场（二期）北座
法人代表 : 张佑君
经营证券业务许可证编号 : 11020000
注册资本（万元） : 1211690.84
办公地址 : 广东省深圳市福田区中心三路8号中信证券大厦
办公地邮编 : 518048
客户服务（投诉）电话 : 0755-23835888
公司网址 : http://www.cs.
资格信息 : 代销金融产品、网上交易、全国银行间拆借市场成员、证券业务外汇经营许可证（外币有价证券经纪业务、外币有价证券承销业务、受托外汇 资产管理业务）、全国社保基金转持股份管理资格、股票期权做市、约定购回式证券交易资格、交易所固定收益平台做市商、公开市场交易商、政策性银行承销商资格、自营业务开展股指期货交易资格、自营业务开展股指国债期货交易资格、转融通业务试点资格、证券经纪、证券承销与保荐、报价转让、中小企业私募债券承销业务、资产管理业务开展股指期货交易资格、受托管理保险资金资格、证券投资咨询、与证券交易、证券投资活动有关的财务顾问、证券自营、短期融资券承销、证券资产管理、受托理财、合格境内机构投资者从事境外证券投资管理业务（QDII）、代办股份转让、银行间债券市场做市商、记账式国债承销团成员、中央国债登记结算公司甲类结算参与人、资产管理业务开展国债期货交易资格、工商营业执照副本、为期货公司提供中间介绍业务、银行间市场利率互换、股票收益互换业务试点资格、权证交易、证券投资基金代销、直接投资业务、企业年金基金管理机构资格、保险兼业代理业务资格、融资融券、柜台交易业务试点资格、全国社保基金境内投资管理人资格、

水平就是高，学习了

客气了，俺还是一个在校学生，向各位哥哥姐姐学习。

往往，研究生，博士后，等等，也是在校学生，而我们却是，在职的，高中生。。
不过，6a还是知道的很多的。