[AHK]语音播报当前股价

针对文件名中的股票代码语音播报当前股价

例如，本脚本命名为 “语音播报当前股价_000012.ahk”  ，运行之则播报000012 南玻A的当前股价

;作者：sunwind1576157
;功能：针对文件名中的股票代码语音播报当前股价
;日期：2021年5月4日
;更新网址：https://blog.csdn.net/liuyukuan/article/details/116407065

RegExMatch(A_ScriptFullPath,"O)(\d+)",o)
code:=o[1] 

stockName:=StrSplit(获取行情信息(code)[1],"=")[2]
spovice:=ComObjCreate("sapi.spvoice")
spovice.Speak(stockName . "当前报价" . 获取行情信息(code)[4])
return

获取行情信息(_str:="600050") {

if(StrLen(_str)>=6)
{
	;形如 600050  或 SR2001
	StringRight,stockCode,_str,6
	StringLeft,flag,stockCode,2
	if (flag=60){
		pre:="sh"
	}else if (flag=00 or flag=30){
		pre:="sz"
	}else{
		pre:=""