以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  现在如何用新的移动端功能，Get方式请求外网网页并读取抓取网页的数据？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=99035)
--  作者：chen3728060
--  发布时间：2017/4/11 15:05:00
--  现在如何用新的移动端功能，Get方式请求外网网页并读取抓取网页的数据？

我想问下，现在如何用新的移动端功能，Get方式请求外网网页并读取抓取网页的数据？

 

http://search.anccnet.com/searchResult2.aspx?keyword=6907992100272

 

我想做一个很简单的条码查询商品功能。我发现中国信息条码平台里，商品是这样查询条码的，通过Get。

 

我想在客户端，查询了条码以后，然后message.show出商品名称，请问怎样可以快速实现？我相信很多做小零售软件的朋友，都想可以有商品库，快速录入，扫描条码直接得到名称和规格之类的东西，提高录入效率

[此贴子已经被作者于2017/4/11 15:05:38编辑过]
--  作者：狐狸爸爸
--  发布时间：2017/4/11 15:14:00
--  
参考:

http://www.foxtable.com/mobilehelp/scr/0157.htm

例如：

Dim hc As New HttpClient("http://search.anccnet.com/searchResult2.aspx?keyword=6907992100272")
Dim dt As string = hc.GetData()
MessageBox.Show(dt)
[此贴子已经被作者于2017/4/11 15:15:08编辑过]
--  作者：有点色
--  发布时间：2017/4/11 16:21:00
--  

参考代码

 

Dim hc As New HttpClient("http://search.anccnet.com/searchResult2.aspx?keyword=6907992100272")
hc.ResponseEncoding = "gb2312"
Dim str As String = hc.GetData()
output.show(str)
Dim mc1 = System.Text.RegularExpressions.Regex.Matches(str,"(?<=<dd>).+(?=</dd>)")
If mc1.count > 0 Then
    msgbox(mc1(0).value)
    msgbox(mc1(2).value)
End If