⑴ 一半股票软件那种打出来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文件或者其他格式文件也可以了。
如果取的信息量小，你甚至可以直接写在程序里，总之，方法很多
⑵ 如何获取实时的股票数据
估计你是盘中炒股需要吧？多数股票软件都有公式系统，例如大智慧、同花顺、通达信，都有公式系统，在公式系统中编写自己的公式，就可以得到自己需要的实时的股票数据了。这些都是免费的。
如果是公司，有专门提供股票行情API接口的，例如微盛的金融实时行情API接口，但这种接口需要程序员才能使用，比较专业。
⑶ 如何编程从免费股票软件中提取实时数据
自己写程序的话，一种方法是从已提供的信息源，例如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.NET中如何使用新浪股票数据接口
基本没有，你得和人家有合作关系
⑸ 股票软件如何开发的用什么语言数据的获得方式
K-JAVA功能可以做移动商务、移动办公、信息点播、股票、外汇、地址簿、日历、文件管理、天气预报等；
股票软件戚枝使用的是JAVA语言，该可以跨平台运行，软件开发商可以很容易的开发应用程序；股票行情软件是基于Java计算机编程语言上的，也就是K-JAVA即J2ME软件平台，专门用于嵌入式设备的JAVA软件。
Java包含了一种计算机编程语言和一个平台，随着K-Java技术的不断完善与发展，发展商们将对具有K-Java功能的手机用户提供更还更全面的绝仔轮服务。如：互动游戏、互动新闻、增强手机连接到无线网络后进行数据交换的安全性、载以Java语言写成的内容、遥控家用电器。
软件开发商以K-Java编程语言为手机开发应用程序，可以提供，游并信戏，个人信息处理，股票，电子地图等服务程序。Java有许多值得称道的优点，如简单、面向对象、分布式、解释性、可靠、安全、结构中立性、可移植性、高性能、多线程、动态性等。
⑹ EXCEL如何用VBA自动获取每个股票近几天的涨幅
excel大量获取数据是比较慢的 你这种得用vb写dll多线程刷新数据才行 私聊
⑺ vb 获取股票行情报价
这是页面内容采集问题,没啥难度
网上代码太多了(你可以搜 VB 抓取网页),以实现基本功能(把页面 http://www....)的内容抓过来
有了内容,你需要做的仅是截取部分有用内容后在使用正则表达式筛选即可
比如你抓过来的内容是截取部分有用内容后放到了字符串 str
那么使用下面的函数即可
' 正则求值
Public Function Value(ByVal str As String, ByVal RegexEx As String, ByVal SN As Integer) As String
Try
Dim regex As New Regex(RegexEx)
Dim m As MatchCollection = regex.Matches(str)
Try
Return m(SN).ToString()
Catch
Return ""
End Try
Catch
Return ""
End Try
End Function
你的text1可能是
需要过滤下
dim a as string = Value(str,"...",0).replace("<a>","")
text1.text = a
dim b as string = Value(str,"...",1).replace("<a>","")
text1.text = b
...
顺便说下,看股票的话免费软件一大把,人家比你这个功能更强了,而且更新速度比这个网站更快
⑻ 怎样用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
⑼ 用VB 读取通达信实时股票数据(现价，涨幅)
关键是接口
我估计现在没有免费的接口了！！！
所以你想自己编程获取实时数据，几乎不可能了！！！
总之，没有有效的网络实时数据支持，这是开源股软的最致命的地方！！！