提取通達股票信行情數據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秒更新一次，並動態的顯示到文本框中，請高手幫忙

這個要連接資料庫的。。