导航:首页 > 数据行情 > 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获取股票软件数据格式相关的资料

热点内容
木行业股票 浏览:335
炒中国银行股票 浏览:268
股票新闻看什么app 浏览:812
一只股票有押字好吗 浏览:73
陈亮最新股票预测 浏览:318
常熟银行和无锡银行股票对比 浏览:979
300652股票最新情况 浏览:82
请问股票黄金板块的龙头股是哪一只股 浏览:432
关于禁止银行资金违规流入股票市场的通知 浏览:320
排队买股票时间是什么时候开始 浏览:387
今日a股票行情大盘走势 浏览:31
乔治白股票走势图 浏览:634
怎样复制移动股票软件指标 浏览:807
主力流出为什么股票大跌几天 浏览:198
现代投资股票多少 浏览:107
商品选择策略etf股票趋势分析 浏览:963
美国报税股票算资产吗 浏览:406
中国股票什么股最多钱 浏览:43
股票app重置密码 浏览:774
怎么继承父亲股票账户 浏览:4