vb.net读取股票 vb读取数据

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

在VB.NET中如何使用新浪股票数据接口

vb6.0中做过这个项目，但是vb.net中也遇到这个问题，看看能否交流一下，刚刚转vb.net。vb6.0中部分代码如下：

Dim HttpReq As Object

Dim request As String

HttpReq = CreateObject("MSXML2.XMLHTTP.3.0")

HttpReq.open("GET", uri, False)

HttpReq.send()

'解析返回值

request = HttpReq.responseBody

request = Split(Split(StrConv(request,vbUnicode,H804),"=")(1),";")(0)

相关问答

Q1: 请问有人知道vb.net如何获取powermill中刀具路径加...

这份文件列出vb.net读取股票了参数在PowerMILL提供。表1 列出一般PowerMILL参数vb.net读取股票，表2 列出了有效vb.net读取股票的PowerMILL安装额外的参数表。

表1。 PowerMILL参数。

标识符说明

（AdditionalStock）最大厚度的股票估计要去除刀具路径。这是用来作为一种辅助手段vb.net读取股票，仅订购。

（AllowToolOutsideBlock）允许外块的工具。

（AlternateCutDirection）交替使用多个削减切削方向。

（AngularDirection）角方向机英寸

（AngularLimits.End）尾角。

（AngularLimits.Start）起始角度。

（AngularLimits2.End）尾角。

（AngularLimits2.Start）起始角度。

（AngularSmoothing）角公差有哪些花键曲线曲面法线必须与表面图案表面的法线。

（AngularStepover）角步之间传递（度）。

（AreaClearance.CalculationType）类型区清拆刀具路径计算。

（AreaClearance.FeatureData）区清拆输入特征数据。

（AreaClearance.LeadIn.ApproachOutside）允许水平移动接近外块。

（AreaClearance.LeadIn.Drill.Pattern）模式使用输入钻孔位置。

（AreaClearance.LeadIn.Drill.TemplateName）名钻输出模式/功能。

（AreaClearance.LeadIn.Ramp.CircleDiameter）在追踪除错单元直径圈。

（AreaClearance.LeadIn.Ramp.Follow）控制的斜方向。

（AreaClearance.LeadIn.Ramp.LimitLength.Active）启用限制。

---------

Q2: VB.net 如果读取txt数据(或十进制dat数据)

vb.net虽也有input语句，但一次只能读取到一个变量中，可以用TextFieldParser类代替，但似乎没以前的方便。不过比以前的更灵活。写入文件Write还是可以用，在Microsoft.VisualBasic.FileIO中。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim fileName As String = "E:\User Documents\Master\My Documents\电子阅读\股票\table2.csv"

Using Recrods As New Microsoft.VisualBasic.FileIO.TextFieldParser(fileName) '建立TextFieldParser对象

'MyReader.TextFieldType = FieldType.Delimited

Recrods.SetDelimiters(",") '把字段分隔符设置为","

Dim curRow() As String

Do Until Recrods.EndOfData

curRow = Recrods.ReadFields() '读取记录行，返回字符串数组，所以不同字段类型需要自己转换。

Debug.Print(Join(curRow, vbTab))

Loop

End Using

End Sub

Q3: 使用VB.NET读取数据

孩子，如果你从你单击事件上下手，就好办了，先弄明白，点击了什么，datagridview点击，可以获取单击的值，好办，用SQL语句去查询单击的这个值，把查到的结果再交给你要处理的地方，我常这么干。我从来不晓得什么表与表之间的关联，或者关系表什么鬼东西，但是我也可以操作很多张表，把它们的结果集一起显示出来。

Dim 表1 As New DataSet

Dim 对象1 As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("select top * from表名 where 字段名 = '" DataGridView1.CurrentCell.Value "' ", 数据源)

对象1.Fill(表1, " 表名")

DataGridView2.DataSource = 表1.Tables(" 表名")

表1 = Nothing

对象1 = Nothing

如果写成这样，还嫌不够，一定要按你的意思去写，那我真的要疯了。

这个例子，就是把表格1点击的值查一个结果集，在表格2上显示，不知有没有你想要的表达式？

Q4: VB网页操作的一点问题

首先第一个问题:

触发一下事件即可

WebBrowser1.Document.All("cl").SetAttribute("value", TextBox1.Text)