導航:首頁 > 數據行情 > vb獲取股票軟體數據格式

vb獲取股票軟體數據格式

發布時間:2024-06-16 16:16:47

1. 用VB 讀取通達信實時股票數據(現價,漲幅)

關鍵是介面

我估計現在沒有免費的介面了!!!

所以你想自己編程獲取實時數據,幾乎不可能了!!!

總之,沒有有效的網路實時數據支持,這是開源股軟的最致命的地方!!!

2. 如何使用EXCEL讀取通達信股票日線數據

定量分析的第一步,是獲取數據。 獲取股票歷史行情數據最方便的途徑,就是直接讀取股票行情軟體留在你電腦中的日線數據文件。 但如果不是程序員,電腦里一般不會有VB、VC之類的編程語言。 其實,大家的電腦中一般都有OFFICE。OFFICE中的EXCEL自帶了一個VBA語言的編程環境。功能也很強大。 我用EXCEL里的VBA編寫了一段代碼,讀取通達信股票行情軟體的日線文件。已經測試通過。 代碼如下。與愛好定量分析的朋友分享。 TypeMyType a1AsLong'標示碼 a2AsLong'日期 a3AsSingle'開盤價 a4AsSingle'最高價 a5AsSingle'最低價 a6AsSingle'收盤價 a7AsSingle'成交金額 a8AsLong'成交量 EndType Sub按鈕1_Click() DimFile2AsInteger DimbAsMyType File1=FreeFile Opensh600000.dayForBinaryAccessReadAs#File1i=1DoWhileNotEOF(File1) Get#File1,,b Cells(i,1)=b.a1 Cells(i,2)=b.a2 Cells(i,3)=b.a3 Cells(i,4)=b.a4 Cells(i,5)=b.a5 Cells(i,6)=b.a6

3. 作股票分析軟體要用到什麼編程語言用哪種最好

一般C+和VB結合了 VB比較用的多點 簡單 http://tech.163.com/special/00091588/develop.html 學習的好地方 可以進去交流和學習吧

4. VB 修改一個股票行情監測腳本 到了預定的股價就啟動程序a.exe

Dim file1, file2 As String
Private Sub Command1_Click()

If Val(Text1.Text) > Val(Text2.Text) Then Shell (file1)
'text2.text為大於這個值時 執行
If Val(Text1.Text) < Val(Text3.Text) Then Shell (file2)
'text3.text為小於這個值時 執行
End Sub

Private Sub Command2_Click()
WebBrowser1.Navigate "http://.hexun.com/stock/q.php?code=" & Text4.Text
End Sub

Private Sub Command3_Click()
CommonDialog1.DialogTitle = "選擇路徑"
CommonDialog1.ShowOpen
file1 = CommonDialog1.FileName
End Sub
Private Sub Command4_Click()
CommonDialog1.DialogTitle = "選擇路徑"
CommonDialog1.ShowOpen
file2 = CommonDialog1.FileName
End Sub

Private Sub Form_Load()
Timer1.Interval = 6000
End Sub

Private Sub Timer1_Timer()
WebBrowser1.Refresh
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If Not (pDisp Is WebBrowser1.object) Then Exit Sub
Dim wenben As String
Dim a() As String
wenben = Me.WebBrowser1.Document.Body.innerText
a = Split(wenben, vbCrLf)
Text1.Text = wenben
For i = 0 To UBound(a)
If InStr(a(i), "代碼:") > 0 And InStr(a(i), ".s") > 0 Then
Text1.Text = Right(a(i), (Len(a(i)) - InStr(a(i), ".s")) - 2)
Text5.Text = Mid(a(i), InStr(a(i), ".s") + 1, 2)
Exit For
End If
Next i
End Sub

5. 股票指標源代碼中的「VB」是指什麼

你這是因為代碼不全,把下面的代碼,粘貼到你公式前面,
V1:=(C*2+H+L)/4*10;
V2:=EMA(V1,13)-EMA(V1,34);
V3:=EMA(V2,5); V4:=2*(V2-V3)*5.5;
主力撤: IF(V4<=0,V4,0),colorblue;
主力進: IF(V4>=0,V4,0),colorff00ff;
V5:=(HHV(INDEXH,8)-INDEXC)/(HHV(INDEXH,8)-LLV(INDEXL,8))*8;
V6:=EMA(3*V5-2*SMA(V5,18,1),5);
V7:=(INDEXC-LLV(INDEXL,8))/(HHV(INDEXH,8)-LLV(INDEXL,8))*10;
V8:=(INDEXC*2+INDEXH+INDEXL)/4;
V9:=EMA(V8,13)-EMA(V8,34);
VA:=EMA(V9,3);
VB:=(V9-VA)/2;
再試一下,可以關注我,有問題再聯系我。

6. vb轉換股票數據的問題

大智慧股票數據
每個記錄40 byte
格式
long Date 0'相對開頭偏移量 byte
long Open=4
long High=8
long Low=12
long Close=16
long Volume=20

不是二進制方式,使用隨機方式 Random 讀取, 讀取以後 價格 /1000 就行了

定義類型
Private Type ddzh
Date As Long
Open As Long
High As Long
Low As Long
Close As Long
Volume As Long
End1 As Long
End2 As Long
End3 As Long
End4 As Long
End Type

Private Type dzh
Date As Long
Open As Single
High As Single
Low As Single
Close As Single
Volume As Long
End Type

用 Get 讀取記錄到 就可以了

ReDim ddzh(1 To 1) As ddzh
ReDim dzh(1 To 1) As dzh
Open "000001.day" For Random As #1 Len= Len(ddzh(1))
ReDim ddzh(1 To Lof(1)/Len(ddzh(1))) As ddzh
For i = 1 To ReadToTal
Get #1, i, ddzh(i)
Next i
Close #1

讀取以後轉換到
dzh里就可以了

大福星數據比較好用,分中圖都可以讀取

7. EXCEL如何用VBA自動獲取每個股票近幾天的漲幅

excel大量獲取數據是比較慢的 你這種得用vb寫dll多線程刷新數據才行 私聊

8. 在VB.NET中如何使用新浪股票數據介面

基本沒有,你得和人家有合作關系

9. 用VB如何直接獲取股票實時數據

可以通過調用ChinaStockWebService的服務來實現獲取股票的實時數據,代碼如下:

publicstring[]getStockInfo(stringstockcode)
{

//stringurl="http://hq.sinajs.cn/list="+stockcode;
//stockcode某隻股票的代碼
stringurl="http://hq.sinajs.cn/list=sh600683";
WebClientclient=newWebClient();
client.Headers.Add("Content-Type","text/html;charset=gb2312");
Streamdata=client.OpenRead(url);
StreamReaderreader=newStreamReader(data,Encoding.GetEncoding("gb2312"));
strings=reader.ReadToEnd();
reader.Close();
data.Close();
returns.Split(',');
}
閱讀全文

與vb獲取股票軟體數據格式相關的資料

熱點內容
2021科技股票龍頭一覽 瀏覽:156
玩股票有賺錢的嘛 瀏覽:831
中科曙光股票歷史數據 瀏覽:887
股票總資產風險如何設置 瀏覽:635
股票投資浮虧是否要做減值准備 瀏覽:34
小鵬股票行情走勢分析 瀏覽:985
中國人保股票今日收市價 瀏覽:972
格爾軟體股票分紅了嗎 瀏覽:644
股票k線山行圖 瀏覽:147
生益科技5月28日股票 瀏覽:47
每天股票買入時間點 瀏覽:794
燃氣股票退市的有 瀏覽:965
哪家銀行股票開戶 瀏覽:720
利歐股份股票最新走勢 瀏覽:767
股票廢單資金什麼時候能用 瀏覽:201
股票入門基礎知識的app 瀏覽:241
中國軟體股票主業是什麼 瀏覽:872
振德醫療股票分紅2020 瀏覽:579
網什麼科技的股票 瀏覽:709
中國企業股票排行榜2015 瀏覽:997