提取通达股票信行情数据VB

① 如何下载或者导出股票行情软件的技术指标数值如KDJ，MACD等

以通达信为例，将需要的指标显示在K线图上，不管是主图还是副图，点击34，导出数据，文件格式为EXCEL、TXT都可以。
大部分股民朋友都了解炒股就是炒预期，炒股看中的上市公司的业绩，但炒股除了要综合考虑公司的基本面外，同时也要对技术面进行了解。只要说到技术面，多数人都对MACD指标很熟，对KDJ的用法却很生疏，针对想要做短期的朋友来讲，KDJ的重要性不用说也知道。今天在这里，咱们就对KDJ指标到底是什么来进行分析，以及我们该如何利用这个技术指标来提升自己做短线操作的容错率。开始之前，不妨先领一波福利--机构精选的牛股榜单新鲜出炉，走过路过可别错过：【绝密】机构推荐的牛股名单泄露，限时速领！！！
一、KDJ是什么？
KDJ指标又被称作随机指标，是由三条曲线即K线、D线和J线组成的，通过图片得出的结论是，K、D、J它们三个的颜色都是不一样的，其中K线为快速确认线，所谓的D线指的就是慢速主干线，而J线表示的则是方向明暗线。K值和D值在0~100之间浮动，而J指在小于0或大于100波动的范围波动，能够在更大范围内波动。KDJ的用处体现字判断中短期行情走势上。

总而言之，KDJ指标的作用不过是判断行情，想要准确地搞清楚个股走势，大盘走势、所处的板块及时事政策等多方面因素也是判断的标准。实在没有充足的时间去研究某只个股的朋友，不妨点击下面这个链接，输入自己想要了解的股票代码，进行深度分析【免费】测一测你的股票当前估值位置？
三、KDJ指标的优劣势
KDJ指标的优点是能灵敏的判断股价变化，可以参考它来进行短线操作。但由于该指标反应速度太快，发出买入或者卖出信号有时会过早，导致投资者在操作上容易出错。那如何才能找到完美买卖时机？纯人力技术分析还有用吗？试试点击下方链接，AI智能判断买卖时机，进场再也不犹豫：【AI辅助决策】买卖时机捕捉神器

应答时间：2021-09-25，最新业务变化以文中链接内展示的数据为准，请点击查看

② 用VB 读取通达信实时股票数据(现价，涨幅)

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

③ 如何获取“实时”股票行情并写库

发现一款直接借助“通达信”行情软件获取行情数据接口的软件，可于http://www.vbgood.com/thread-102830-1-1.html处下载演示。

④ 用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(',');
}

⑤ 怎样用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

⑥ 如何使用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

⑦ 通达信怎么把板块所有的股票导出

1.双击打开通达信平台，找到最上方的工具并鼠标左键点击。
2.点击“工具”在下拉框中找到“用户板块设置”。
3.打开设置后，在上方选择要导出的自定义板块。
4.在右下方选择导出板块并自定义文件名。
5.可以添加其他板块如定制品种，也可以从文本导入至制定板块。
（浏览器 电脑端：macbookpro mos14打开google版本 92.0.4515.131

）
拓展资料
一、查询方法：不管什么证卷，查股票都是一样的，如果不知道该股的沪漂代码，可以输入该股名称每个字的第一个字母就可以出现该股的股票代码。股票代码用数字表示股票的不同含义。股票代码除了区分各种股票，也有其潜在的意义，比如600***是上交所上市的股票代码，6006**是最早上市的股票，一个公司的股票代码跟车牌号差不多，能够显示出这个公司的实力以及知名度，比如000088盐田港，000888峨眉山。
二、大智慧：“信息地雷”提示陷阱 大智慧最独到之处是提供“信息地雷”的功能，并将地雷标志“*”显示在大盘或者个股的分时走势图顶端。只要在盘中出现重要市场评论及预测，买卖参考等内容，都会在相应的分时走势突然出现的异常上涨或下跌，往往与当前的消息面有直接关系，对于投资者来说信息地雷的提示，可以使他们在一定程序上避免掉入了解不及时的陷阱。
2、 行情传输： “时间就是金钱”，这句话运用在股市中是最贴切不过的了。有些主力控盘的个股，在短短一两分钟之内可以使得股价振幅接近10％或者更多，这时候如果是您手中的股票暖意从天上摔到地下，该有多心疼啊！虽然我们并不是在推崇炒庄股，但是股市分析软件的传输速度也确实是投资者在选择时需要考虑的重要因素之一。
三、手机版通达信，点击行情，向下滑动点击查看更多，这时就看见全部股票了。
用键盘输入06回车就到自选股界面，下面的菜单栏用左键就可以选择板块了。
1.如果你是使用一般的券商提供的交易软件，是按小键盘“67”，然后回车，可以显示所有A股的股票。2.如果你只记得公司的名字，而不记得代码，可以输入名字的拼音简写，例如，五粮液，就输入WLY，然后回车，就可以查找到了。3.如果你连公司的名字都不太记得，或者记错了，那你可以通过按“67”并且回车以后，在屏幕的最下方，点击“板块”，通过查找该公司所属的行业，或者地区，来查找该股票。

⑧ 如何编程从免费股票软件中提取实时数据

自己写程序的话，一种方法是从已提供的信息源，例如webservice获取数据。还有种办法就是去连接提供即时信息的网页硬解析。

代码举例如下：

Created on Thu Jul 23 09:17:27 2015
@author: jet
"""
DAY_PRICE_COLS = ['date', 'open', 'high', 'close', 'low', 'volume',
'chg', '%chg', 'ma5', 'ma10', 'ma20',
'vma5', 'vma10', 'vma20', 'turnover']
DAY_PRICE_URL = '%sapi.finance.%s/%s/?code=%s&type=last'
INDEX_KEY = ['SH', 'SZ', 'HS300', 'SZ50', 'GEB', 'SMEB']
INDEX_LIST = {'SH': 'sh000001', 'SZ': 'sz399001', 'HS300': 'sz399300',
'SZ50': 'sh000016', 'GEB': 'sz399006', 'SMEB': 'sz399005'}
INDEX_DAY_PRICE_COLS= ['date', 'open', 'high', 'close', 'low', 'volume',
'chg', '%chg', 'ma5', 'ma10', 'ma20',
'vma5', 'vma10', 'vma20']
K_TYPE_KEY = ['D', 'W', 'M']
K_TYPE_MIN_KEY = ['5', '15', '30', '60']
K_TYPE = {'D': 'akdaily', 'W': 'akweekly', 'M': 'akmonthly'}
MIN_PRICE_URL = '%sapi.finance.%s/akmin?scode=%s&type=%s'
PAGE_TYPE = {'http': 'http://', 'ftp': 'ftp://'}
PAGE_DOMAIN = {'sina': 'sina.com.cn', 'ifeng': 'ifeng.com'}
URL_ERROR_MSG = '获取失败，请检查网络状态，或者API端口URL已经不匹配！'

get_hist_data.py
# -*- coding: utf-8 -*-
"""
Created on Thu Jul 23 09:15:40 2015
@author: jet
"""
import const as ct
import pandas as pd
import json
from urllib2 import urlopen,Request

def get_hist_data(code = None, start = None, end = None, ktype = 'D'):
"""
功能:
获取个股历史交易数据
--------
输入:
--------
code:string
股票代码 比如:601989
start:string
开始日期 格式:YYYY-MM-DD 为空时取到API所提供的最早日期数据
end:string
结束日期 格式:YYYY-MM-DD 为空时取到最近一个交易日数据
ktype:string(default=D, 函数内部自动统一为大写)
数据类型 D=日K线，W=周K线，M=月K线，5=5分钟，15=15分钟
30=30分钟，60=60分钟
输出:
--------
DataFrame
date 日期
open 开盘价
high 最高价
close 收盘价
low 最低价
chg 涨跌额
p_chg 涨跌幅
ma5 5日均价
ma10 10日均价
ma20 20日均价
vma5 5日均量
vma10 10日均量
vma20 20日均量
turnover换手率(指数无此项)
"""
code = code_to_APIcode(code.upper())
ktype = ktype.upper()

url = ''
url = get_url(ktype, code)
print(url)

js = json.loads(ping_API(url))
cols = []

if len(js['record'][0]) == 14:
cols = ct.INDEX_DAY_PRICE_COLS
else:
cols = ct.DAY_PRICE_COLS
df = pd.DataFrame(js['record'], columns=cols)

if ktype in ct.K_TYPE_KEY:
df = df.applymap(lambda x:x.replace(u',', u''))
for col in cols[1:]:
df[col]=df[col].astype(float)
if start is not None:
df = df [df.date >= start]
if end is not None:
df = df[df.date <= end]
df = df.set_index('date')
return df

def code_to_APIcode(code):
"""
功能：
验证输入的股票代码是否正确，若正确则返回API对应使用的股票代码
"""
print(code)
if code in ct.INDEX_KEY:
return ct.INDEX_LIST[code]
else:
if len(code) != 6:
raise IOError('code input error!')
else:
return 'sh%s'%code if code[:1] in ['5', '6'] else 'sz%s'%code

def get_url(ktype, code):
"""
功能：
验证输入的K线类型是否正确，若正确则返回url
"""
if ktype in ct.K_TYPE_KEY:
url = ct.DAY_PRICE_URL % (ct.PAGE_TYPE['http'], ct.PAGE_DOMAIN['ifeng'],
ct.K_TYPE[ktype], code)
return url
elif ktype in ct.K_TYPE_MIN_KEY:
url = ct.MIN_PRICE_URL % (ct.PAGE_TYPE['http'], ct.PAGE_DOMAIN['ifeng'],
code, ktype)
return url
else:
raise IOError('ktype input error!')

def ping_API(url):
"""
功能：
向API发送数据请求，若链接正常返回数据
"""
text = ''
try:
req = Request(url)
text = urlopen(req,timeout=10).read()
if len(text) < 15:
raise IOError('no data!')
except Exception as e:
print(e)
else:
return text

#测试入口
print(get_hist_data('601989','2015-07-11','2015-07-22'))

⑨ 如何编程从免费股票软件中提取实时数据

自己写程序的话，一种方法是从已提供的信息源，例如webservice获取数据。还有种办法就是去连接提供即时信息的网页硬解析。

代码举例如下：

Created on Thu Jul 23 09:17:27 2015
@author: jet
"""
DAY_PRICE_COLS = ['date', 'open', 'high', 'close', 'low', 'volume',
'chg', '%chg', 'ma5', 'ma10', 'ma20',
'vma5', 'vma10', 'vma20', 'turnover']
DAY_PRICE_URL = '%sapi.finance.%s/%s/?code=%s&type=last'
INDEX_KEY = ['SH', 'SZ', 'HS300', 'SZ50', 'GEB', 'SMEB']
INDEX_LIST = {'SH': 'sh000001', 'SZ': 'sz399001', 'HS300': 'sz399300',
'SZ50': 'sh000016', 'GEB': 'sz399006', 'SMEB': 'sz399005'}
INDEX_DAY_PRICE_COLS= ['date', 'open', 'high', 'close', 'low', 'volume',
'chg', '%chg', 'ma5', 'ma10', 'ma20',
'vma5', 'vma10', 'vma20']
K_TYPE_KEY = ['D', 'W', 'M']
K_TYPE_MIN_KEY = ['5', '15', '30', '60']
K_TYPE = {'D': 'akdaily', 'W': 'akweekly', 'M': 'akmonthly'}
MIN_PRICE_URL = '%sapi.finance.%s/akmin?scode=%s&type=%s'
PAGE_TYPE = {'http': 'http://', 'ftp': 'ftp://'}
PAGE_DOMAIN = {'sina': 'sina.com.cn', 'ifeng': 'ifeng.com'}
URL_ERROR_MSG = '获取失败，请检查网络状态，或者API端口URL已经不匹配！'

get_hist_data.py
# -*- coding: utf-8 -*-
"""
Created on Thu Jul 23 09:15:40 2015
@author: jet
"""
import const as ct
import pandas as pd
import json
from urllib2 import urlopen,Request

def get_hist_data(code = None, start = None, end = None, ktype = 'D'):
"""
功能:
获取个股历史交易数据
--------
输入:
--------
code:string
股票代码 比如:601989
start:string
开始日期 格式:YYYY-MM-DD 为空时取到API所提供的最早日期数据
end:string
结束日期 格式:YYYY-MM-DD 为空时取到最近一个交易日数据
ktype:string(default=D, 函数内部自动统一为大写)
数据类型 D=日K线，W=周K线，M=月K线，5=5分钟，15=15分钟
30=30分钟，60=60分钟
输出:
--------
DataFrame
date 日期
open 开盘价
high 最高价
close 收盘价
low 最低价
chg 涨跌额
p_chg 涨跌幅
ma5 5日均价
ma10 10日均价
ma20 20日均价
vma5 5日均量
vma10 10日均量
vma20 20日均量
turnover换手率(指数无此项)
"""
code = code_to_APIcode(code.upper())
ktype = ktype.upper()

url = ''
url = get_url(ktype, code)
print(url)

js = json.loads(ping_API(url))
cols = []

if len(js['record'][0]) == 14:
cols = ct.INDEX_DAY_PRICE_COLS
else:
cols = ct.DAY_PRICE_COLS
df = pd.DataFrame(js['record'], columns=cols)

if ktype in ct.K_TYPE_KEY:
df = df.applymap(lambda x:x.replace(u',', u''))
for col in cols[1:]:
df[col]=df[col].astype(float)
if start is not None:
df = df [df.date >= start]
if end is not None:
df = df[df.date <= end]
df = df.set_index('date')
return df

def code_to_APIcode(code):
"""
功能：
验证输入的股票代码是否正确，若正确则返回API对应使用的股票代码
"""
print(code)
if code in ct.INDEX_KEY:
return ct.INDEX_LIST[code]
else:
if len(code) != 6:
raise IOError('code input error!')
else:
return 'sh%s'%code if code[:1] in ['5', '6'] else 'sz%s'%code

def get_url(ktype, code):
"""
功能：
验证输入的K线类型是否正确，若正确则返回url
"""
if ktype in ct.K_TYPE_KEY:
url = ct.DAY_PRICE_URL % (ct.PAGE_TYPE['http'], ct.PAGE_DOMAIN['ifeng'],
ct.K_TYPE[ktype], code)
return url
elif ktype in ct.K_TYPE_MIN_KEY:
url = ct.MIN_PRICE_URL % (ct.PAGE_TYPE['http'], ct.PAGE_DOMAIN['ifeng'],
code, ktype)
return url
else:
raise IOError('ktype input error!')

def ping_API(url):
"""
功能：
向API发送数据请求，若链接正常返回数据
"""
text = ''
try:
req = Request(url)
text = urlopen(req,timeout=10).read()
if len(text) < 15:
raise IOError('no data!')
except Exception as e:
print(e)
else:
return text

#测试入口
print(get_hist_data('601989','2015-07-11','2015-07-22'))

⑩ VB如何读取股票大盘数据，20秒更新一次，并动态的显示到文本框中，请高手帮忙

这个要连接数据库的。。