股票行情列表查询

'【股票行情列表查询】

    Public Function GpHqInf_List(ByVal cDMList As String, Optional ByVal nCs As Integer = 0) As Integer

        Dim nArr As Integer = 0

        Dim cDMNewList As String = Nothing

        Dim cStrLine As Array = Nothing

        Try

            Dim cSpDM As Array = cDMList.Trim.Split(",")

            For r = 0 To cSpDM.Length - 1

                cDMNewList = IIf(r = cSpDM.Length - 1, cDMNewList & LBCX(cSpDM(r), 2) & cSpDM(r), cDMNewList & LBCX(cSpDM(r), 2) & cSpDM(r) & ",")

            Next

            Dim cUrl As String = "http://hq./list=" & cDMNewList

            Dim Client As WebClient = New WebClient()

            Client.Headers.Add("Content-Type", "text/html; charset=gb2312") '设定HTML页面使用的字符集:GB2132(简体中文),BIG5(繁体中文),ISO-8859-1(英文)

            Dim Data As Stream = Client.OpenRead(cUrl)

            Dim Reader As StreamReader = New StreamReader(Data, System.Text.ASCIIEncoding.Default)  '用指定的字符编码为指定的流初始化

            Dim cStrs As String = Reader.ReadToEnd()    'ReadToEnd 读取流当前位置到结尾的所有字符,ReadLine 读取一行字

            Reader.Close()

            Data.Close()

            cStrs = Replace(Replace(cStrs, "var hq_str_sh", ""), "var hq_str_sz", "")

            cStrs = Replace(Replace(cStrs, """", ""), "=", ",")

            cStrs = Replace(cStrs, vbLf, "")

            GpcxArray = cStrs.Split(";")

            Reader = Nothing

            Data = Nothing

            Client = Nothing

            If GpcxArray.Length > 0 Then nArr = 1

        Catch ex As Exception

            MsgBox(ex.ToString, 48, "错误信息")

        End Try

        Return nArr

    End Function