導航:首頁 > 數據行情 > 如何用vb讀取股票數據格式

如何用vb讀取股票數據格式

發布時間:2023-01-19 09:36:00

『壹』 俺想用vb讀取網頁"http://data.eastmoney.com/zjlx/detail.html"表格里的數據,並保存為文本文件,謝謝!

http中文:/中文/nufm.dfcfw.com/EM_Finance2014NumericApplication/JS.aspx/JS.aspx?type=ct&st=(BalFlowMain)&sr=-1&p=3&ps=50&js=var%20iQRthzrg={pages:(pc),date:"2014-10-22",data:[(x)]}&token=&cmd=C._AB&sty=DCFFITA&rt=47426289

幫你抓包了看看,請求數據提這個地址,你要把網址中「中文」二字去掉,然後在瀏覽器中打開就可以看到數據了,可以看到返回的是json字元串,我們注意到網址中有「&p=3」,此時就是第三頁的數據,可以遍歷這個這個網址就能取得所有頁數據,&p=4,&p=5,&p=6... ...


你可能很想知道我是如何知道是這個網址,

就是利用IE瀏覽器一個抓包插件,httpWatch

網路搜下其,安裝好再看看其相關教程,很容易學會的

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

可以在http://stock.business.sohu.com/p/pl.php
用VB的 WebBrowser1_DownloadComplete 做。
引用Internet Controls

『叄』 一半股票軟體那種打出來600xxx然後下面就可以顯示一個股票名稱和代碼的功能能不能在VB控制項實習

這個很簡單的,你首先要建立相應的資料庫,資料庫存有有 中國石化 中國電信 等等信息。然後當你在文本框(假設是TEXT1)中輸入字元的時候取信息:
先引用 DAO ,或者ADO 數據引擎。我這里以DAO為例。
Private Sub Text1_Change()
Dim mMDB As Database
Dim mREC As Recordset
Set mMDB = Workspaces(0).OpenDatabase("資料庫路徑")
Set mREC = mMDB.OpenRecordset("select * from 數據表 where 欄位名稱 like '%" & Text1.Text & "%'")
If mREC.EOF = True Or mREC.BOF = True Then
'如果沒有找到就不處理
Else
'如果找到就顯示吧,至於怎麼顯示,顯示多少,就依程序需要而定了
text2.Text = mREC.Fields("欄位名稱")
'.....其他代碼
End If
End Sub

如果不想使用資料庫,就通過讀取TXT文件或者其他格式文件也可以了。
如果取的信息量小,你甚至可以直接寫在程序里,總之,方法很多

『肆』 VB.net 如果讀取txt數據(或十進制dat數據)

vb.net雖也有input語句,但一次只能讀取到一個變數中,可以用TextFieldParser類代替,但似乎沒以前的方便。不過比以前的更靈活。寫入文件Write還是可以用,在Microsoft.VisualBasic.FileIO中。

PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
DimfileNameAsString="E:電子閱讀股票 able2.csv"
UsingRecrodsAsNewMicrosoft.VisualBasic.FileIO.TextFieldParser(fileName)'建立TextFieldParser對象
'MyReader.TextFieldType=FieldType.Delimited
Recrods.SetDelimiters(",")'把欄位分隔符設置為","
DimcurRow()AsString
DoUntilRecrods.EndOfData
curRow=Recrods.ReadFields()'讀取記錄行,返回字元串數組,所以不同欄位類型需要自己轉換。
Debug.Print(Join(curRow,vbTab))
Loop
EndUsing
EndSub

『伍』 EXCEL如何用VBA自動獲取每個股票近幾天的漲幅

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

『陸』 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里就可以了

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

『柒』 用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 讀取通達信實時股票數據(現價,漲幅)

關鍵是介面

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

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

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

『玖』 vb中我如何做到保存數據和讀取數據呢求大神幫忙 下面詳細介紹必好評,在線等

首先你要從資料庫提取出你要放在TREEVIEW里的欄位,當然是分類提取,然後根據提取到的欄位分別綁定,中間還存在自我判斷等,所需要的過程相對比較復雜,需進行多次運算,飛人建議分開來寫,沒必要一次就全部綁定到treeview否則會加長運算時間,使用感覺會差一些,至於保存成指定格式,那就看你自己的了,因為保存成什麼樣的後綴文件可以自己規定,導出時你所使用的是什麼控制項根據控制項不同,導出的方式也略有不同
提取treeview所需數據時需要分各個節點來提取,這樣可以加快提取精準度,同事會讓使用者感覺速度快

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

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

閱讀全文

與如何用vb讀取股票數據格式相關的資料

熱點內容
股票期權應具備條件 瀏覽:385
公司賬戶可不可以買股票 瀏覽:38
電子製造行業排名第一的股票 瀏覽:195
英語流利說中國股票 瀏覽:228
2018現金分紅高的股票 瀏覽:162
投資股票時的購買力風險 瀏覽:715
股票怎麼看資金流進流出 瀏覽:555
持有科技獨角獸股票 瀏覽:190
大屏股票軟體 瀏覽:73
民生銀行股票宏觀分析 瀏覽:832
智盈軟體股票 瀏覽:594
股票20日均資產怎麼算 瀏覽:799
我買的美國股票退市了怎麼辦 瀏覽:356
廣發銀行股票開戶怎麼樣 瀏覽:663
證券投資對股票進行投資 瀏覽:869
寶信軟體股票行情分析 瀏覽:325
中國神華股票2019年度業績 瀏覽:283
股票1萬元100個漲停是多少錢 瀏覽:825
股票資金卡丟了怎麼辦 瀏覽:732
一個億的股票賬戶怎麼抄作 瀏覽:415