麻辣家族討論版版 - Powered by Discuz! Board

Sub fnLoadFileAndParse(ByVal StockNo As String, ByVal DataType As String)
Dim xmlHttp As Object
Dim Readstr As Variant, Ar As Variant, xAr(), i As Integer, T As Date
T = Time
Set xmlHttp = CreateObject("MSXML2.XMLHTTP.6.0")
If DataType = "Week" Then
xmlHttp.Open "GET", "http://www.wantgoo.com/Stock/%E5%80%8B%E8%82%A1%E7%B7%9A%E5%9C%96/%E6%8A%80%E8%A1%93%E7%B7%9A%E5%9C%96%E8%B3%87%E6%96%99?StockNo=" & StockNo & "&Kcounts=245&Type=%E5%91%A8K_K%E7%B7%9A%7C%E5%91%A8K_%E6%BC%B2%E8%B7%8C%E8%B3%87%E6%96%99%7C%E5%91%A8K_%E6%88%90%E4%BA%A4%E9%87%8F%7C%E5%91%A8K_KD%7C%E5%91%A8K_RSI%7C%E5%91%A8K_MACD%7C%E5%91%A8K_%E5%8A%A0%E6%AC%8A%E6%8C%87%E6%95%B8%7C%E5%91%A8K_DMI&isCleanCache=false", False
ElseIf DataType = "Day" Then
xmlHttp.Open "GET", "http://www.wantgoo.com/Stock/%E5%80%8B%E8%82%A1%E7%B7%9A%E5%9C%96/%E6%8A%80%E8%A1%93%E7%B7%9A%E5%9C%96%E8%B3%87%E6%96%99?StockNo=" & StockNo & "&Kcounts=245&Type=%E6%97%A5K_K%E7%B7%9A%7C%E6%97%A5K_%E6%BC%B2%E8%B7%8C%E8%B3%87%E6%96%99%7C%E6%97%A5K_%E6%88%90%E4%BA%A4%E9%87%8F%7C%E6%97%A5K_KD%7C%E6%97%A5K_RSI%7C%E6%97%A5K_MACD%7C%E6%97%A5K_%E5%91%A8%E8%BD%89%E7%8E%87%7C%E6%97%A5K_William%7C%E6%97%A5K_%E5%8A%A0%E6%AC%8A%E6%8C%87%E6%95%B8%7C%E6%97%A5K_DMI&isCleanCache=false", False
Else
Exit Sub
End If
xmlHttp.setRequestHeader "Content-Type", "text/html; charset=utf-8"
xmlHttp.send
Readstr = xmlHttp.responseText
'************* 'responseText 檔案的本文
'Mid 函數從一字串傳回特定數量字元所構成的Variant (String)
'InStr 函數傳回在某字串中一字串的最先出現位置，此位置為 Variant (Long)。
'Split 函數傳回一個陳列索引從零開始的一維陣列，它包含指定數目的子字串。
'Replace 函數傳回一個字串，該字串中指定的子字串已被取代成另一子字串，並且取代發生的次數也是指定的。
'******************************************
'***擷取所要的文字
If DataType = "Week" Then
Readstr = Mid(Readstr, InStr(Readstr, "W = [{x:") + Len("D = [{x:"))
Readstr = Split(Readstr, "}];var Close_W =")(0)
Else
Readstr = Mid(Readstr, InStr(Readstr, "D = [{x:") + Len("D = [{x:"))
Readstr = Split(Readstr, "}];var Close_D =")(0)
End If
'***踢除不要的文字
Readstr = Replace(Readstr, "open:", "")
Readstr = Replace(Readstr, "high:", "")
Readstr = Replace(Readstr, "low:", "")
Readstr = Replace(Readstr, "close:", "")
'*** 以 "},{x:" 將文字分割為陣列
Readstr = Split(Readstr, "},{x:")
ReDim xAr(UBound(Readstr)) '重置一陣列的維數
For i = 0 To UBound(Readstr)
Ar = Split(Readstr(i), ",")
Ar(0) = DateAdd("s", Mid(Ar(0), 1, 10), CDbl(DateSerial(1970, 1, 1))) '*** 字串轉為日期
xAr(i) = Ar '***整理好的資料放在陣列
Next
With Sheet2
.UsedRange.Offset(1).ClearContents '清除之前記錄的資料
.Range("A2").Resize(UBound(xAr) + 1, UBound(Ar) + 1) = Application.Transpose(Application.Transpose(xAr)) '陣列資料的讀取
End With
'MsgBox Application.Text(Time - T, ["S秒"]) '測試程式運行的速度
End Sub

複製代碼