vb.net股票,vbnet股票

用VB如何直接获取股票实时数据

可以通过调用ChinaStockWebService的服务来实现获取股票的实时数据，代码如下：

 public string[] getStockInfo(string stockcode) 

    {

     

       //string url = ""+stockcode;

       //stockcode 某只股票的代码

        string url = "";

        WebClient client = new WebClient();

        client.Headers.Add("Content-Type", "text/html; charset=gb2312");

        Stream data = client.OpenRead(url);

        StreamReader reader = new StreamReader(data, Encoding.GetEncoding("gb2312"));

        string s = reader.ReadToEnd();

        reader.Close();

        data.Close();

        return s.Split(',');

    }

相关问答

Q1: 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

Q2: 在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)