{0801-月营收}
input:PH_TO(1,1,10);
股票代号:=STKLABELN(STKNAME);
第一天?子:=BARSSINCE(CLOSE)=0;
年_I:=VOL;
月_I:=VOL;
月营收_I:=VOL;
日期_年:=YEAR;
日期_月:=MONTH;
<%
'开档宣告设定----------------------------------------------->
Dim fso '开档宣告
Dim SN_TXT '档案路径档名
Dim PATH_TO '读?磁碟
PATH_TO = Chr(66 + FFL.VarData("PH_TO")) '读?磁碟
'开档设定
Set fso = CreateObject("Scripting.FileSystemObject")
'设定资料档表路径
'SN_TXT="c:\0000.txt"
SN_TXT = PATH_TO + ":\鸟汤股市资料库\月营收\" + FFL.VarData("股票代号") + ".txt"
'开档宣告设定-----------------------------------------------^
'变数宣告设定----------------------------------------------->
Dim LOAD_FOX_INC_I '月营收_回圈
Dim LOAD_FOX_DATE_I '月营收日期_回圈
Dim LOAD_FOX_NO1 '替代第一天?子
Dim LOAD_FOX_INC0 '年
Dim LOAD_FOX_INC1 '月
Dim LOAD_FOX_INC2 '月营收
Dim LOAD_FOX_DATE_STR() '日期_年月
'清空资料
ReDim LOAD_FOX_DATE_STR(0)
Dim LOAD_FOX_INC_YEAR '月营收_年
Dim LOAD_FOX_INC_MONTH '月营收_月
Dim LOAD_FOX_DATE_YEAR '日期_年
Dim LOAD_FOX_DATE_MONTH '日期_月
Dim LOAD_FOX_Index '日期?子阵列寻找
Dim LOAD_FOX_Split '日期寻找码分割
Dim W_1READ
Dim W_Split
LOAD_FOX_NO1 = Array(0) '必须要?设定一值?阵列?子0,这样才不会有错误讯,应该是确认资料型态吧
LOAD_FOX_NO1 = FFL.VarData("第一天?子") '转入第一天?子
LOAD_FOX_INC0 = FFL.VarData("年_I") '转入年
LOAD_FOX_INC1 = FFL.VarData("月_I") '转入月
LOAD_FOX_INC2 = FFL.VarData("月营收_I") '转入月营收
LOAD_FOX_DATE_YEAR = FFL.VarData("日期_年") '转入日期_年
LOAD_FOX_DATE_MONTH = FFL.VarData("日期_月") '转入日期_月
W_1READ = ""
'清除资料----------------------->
For LOAD_FOX_INC_I = 0 To UBound(LOAD_FOX_INC2)
LOAD_FOX_INC0(LOAD_FOX_INC_I) = 0 '清除年
LOAD_FOX_INC1(LOAD_FOX_INC_I) = 0 '清除月
LOAD_FOX_INC2(LOAD_FOX_INC_I) = 0 '清除月营收
Next 'LOAD_FOX_INC_I
'清除资料-----------------------^
'转入月营收日期资料------------------->
For LOAD_FOX_INC_I = 0 To UBound(LOAD_FOX_DATE_YEAR)
'日期_年月_?子 + "@" + 日期_年 + "/" + 日期_月 + "@"
ReDim Preserve LOAD_FOX_DATE_STR(LOAD_FOX_INC_I)
'日缺0值时补0值---->
If LOAD_FOX_DATE_MONTH(LOAD_FOX_INC_I) <= 9 Then 'LOAD_FOX_DATE_MONTH(LOAD_FOX_INC_I)<=9
LOAD_FOX_DATE_STR(LOAD_FOX_INC_I) = Trim(LOAD_FOX_INC_I) + "@" + Trim(LOAD_FOX_DATE_YEAR(LOAD_FOX_INC_I)) + "/" + "0" + Trim(LOAD_FOX_DATE_MONTH(LOAD_FOX_INC_I)) + "@"
Else 'LOAD_FOX_DATE_MONTH(LOAD_FOX_INC_I)<=9
LOAD_FOX_DATE_STR(LOAD_FOX_INC_I) = Trim(LOAD_FOX_INC_I) + "@" + Trim(LOAD_FOX_DATE_YEAR(LOAD_FOX_INC_I)) + "/" + Trim(LOAD_FOX_DATE_MONTH(LOAD_FOX_INC_I)) + "@"
End If 'LOAD_FOX_DATE_MONTH(LOAD_FOX_INC_I)<=9
'日缺0值时补0值----^
Next 'LOAD_FOX_INC_I
'转入月营收日期资料-------------------^
'将清空月营收变数?行转出,以免VBS出错时变成原V值
FFL.VarData("月营收_I") = LOAD_FOX_INC2
'变数宣告设定-----------------------------------------------^
'第一根K线即才载入------->
If LOAD_FOX_NO1(0) = 1 Then
'判断资料档是否存在
If fso.FileExists(SN_TXT) <> 0 Then 'fso.FileExists(SN_TXT)<>0
'开档
Set MyFile = fso.opentextfile(SN_TXT, 1)
'判断资料档是否读完---------->
While MyFile.atendofstream <> -1
'读?资料
W_1READ = Trim(MyFile.readline)
'不是空字串资料才载入------->
If W_1READ <> "" Then 'W_1READ<>""
W_Split = Split(W_1READ, ",") '分割读入资料
'要有2项资料才载入---------->
If UBound(W_Split) >= 1 Then 'UBound(W_Split)>=1
'?日期年值
LOAD_FOX_INC_YEAR = Trim(Year(Trim(W_Split(0)) + "/01"))
'?日期月值
LOAD_FOX_INC_MONTH = Trim(Month(Trim(W_Split(0)) + "/01"))
'日缺0值时补0值---->
If Month(Trim(W_Split(0)) + "/01") <= 9 Then 'Month(TRIM(W_Split(0))+"/01")<=9
LOAD_FOX_INC_MONTH = "0" + LOAD_FOX_INC_MONTH
End If 'Month(TRIM(W_Split(0))+"/01")<=9
'日缺0值时补0值----^
LOAD_FOX_Index = Filter(LOAD_FOX_DATE_STR, "@" + LOAD_FOX_INC_YEAR + "/" + LOAD_FOX_INC_MONTH + "@")
If UBound(LOAD_FOX_Index) <> -1 Then 'UBound(LOAD_FOX_Index) <> -1
For LOAD_FOX_INC_I = 0 To UBound(LOAD_FOX_Index)
LOAD_FOX_Split = Split(LOAD_FOX_Index(LOAD_FOX_INC_I), "@")
If UBound(LOAD_FOX_Split) >= 0 Then
'存入转出月营收值?飞狐中
LOAD_FOX_INC0(CLng(LOAD_FOX_Split(0))) = CSng(LOAD_FOX_INC_YEAR) '年
LOAD_FOX_INC1(CLng(LOAD_FOX_Split(0))) = CSng(LOAD_FOX_INC_MONTH) '月
LOAD_FOX_INC2(CLng(LOAD_FOX_Split(0))) = CSng(Trim(W_Split(1))) '月营收
End If
Next 'LOAD_FOX_INC_I
End If 'UBound(LOAD_FOX_Index) <> -1
End If 'UBound(W_Split)>=1
'要有2项资料才载入----------^
End If 'W_1READ<>""
'不是空字串资料才载入-------^
Wend 'myfile.atendofstream<>-1
'判断资料档是否读完----------^
'关档
MyFile.Close
End If 'fso.FileExists(SN_TXT)<>0
End If 'LOAD_FOX_NO1(0) = 1
'第一根K线即才载入-------^
'将资料从VBS转出?飞狐
FFL.VarData("年_I") = LOAD_FOX_INC0
FFL.VarData("月_I") = LOAD_FOX_INC1
FFL.VarData("月营收_I") = LOAD_FOX_INC2
%>
年:REF(年_I,BARSLAST(年_I)),LINETHICK0,color808080;
月:REF(月_I,BARSLAST(月_I)),LINETHICK0,color808080;
STICKLINE(DATATYPE=6 AND MOD(MONTH,2)=0 AND REF(DAY,1)<DAY,0,月营收_I,10,0),colorFFFF;
STICKLINE(DATATYPE=6 AND MOD(MONTH,2)=1 AND REF(DAY,1)<DAY,0,月营收_I,10,0),colorFF;
STICKLINE(DATATYPE=7 AND MOD(MONTH,2)=0 AND REF(DAY,1)<DAY,0,月营收_I,10,0),colorFFFF;
STICKLINE(DATATYPE=7 AND MOD(MONTH,2)=1 AND REF(DAY,1)<DAY,0,月营收_I,10,0),colorFF;
STICKLINE(DATATYPE=8 AND MOD(MONTH,2)=0,0,月营收_I,8,0),colorFFFF;
STICKLINE(DATATYPE=8 AND MOD(MONTH,2)=1,0,月营收_I,8,0),colorFF;
前1月_月:=REF(月营收_I,0+BARSLAST(月营收_I));
前2月_月:=REF(月营收_I,1+BARSLAST(月营收_I));
前3月_月:=REF(月营收_I,2+BARSLAST(月营收_I));
前4月_月:=REF(月营收_I,3+BARSLAST(月营收_I));
前5月_月:=REF(月营收_I,4+BARSLAST(月营收_I));
前6月_月:=REF(月营收_I,5+BARSLAST(月营收_I));
前7月_月:=REF(月营收_I,6+BARSLAST(月营收_I));
前8月_月:=REF(月营收_I,7+BARSLAST(月营收_I));
前9月_月:=REF(月营收_I,8+BARSLAST(月营收_I));
前10月_月:=REF(月营收_I,9+BARSLAST(月营收_I));
前11月_月:=REF(月营收_I,10+BARSLAST(月营收_I));
前12月_月:=REF(月营收_I,11+BARSLAST(月营收_I));
前13月_月:=REF(月营收_I,12+BARSLAST(月营收_I));
前14月_月:=REF(月营收_I,13+BARSLAST(月营收_I));
前15月_月:=REF(月营收_I,14+BARSLAST(月营收_I));
前16月_月:=REF(月营收_I,15+BARSLAST(月营收_I));
前17月_月:=REF(月营收_I,16+BARSLAST(月营收_I));
前18月_月:=REF(月营收_I,17+BARSLAST(月营收_I));
前19月_月:=REF(月营收_I,18+BARSLAST(月营收_I));
前20月_月:=REF(月营收_I,19+BARSLAST(月营收_I));
前21月_月:=REF(月营收_I,20+BARSLAST(月营收_I));
前22月_月:=REF(月营收_I,21+BARSLAST(月营收_I));
前23月_月:=REF(月营收_I,22+BARSLAST(月营收_I));
前24月_月:=REF(月营收_I,23+BARSLAST(月营收_I));
前25月_月:=REF(月营收_I,24+BARSLAST(月营收_I));
前26月_月:=REF(月营收_I,25+BARSLAST(月营收_I));
前27月_月:=REF(月营收_I,26+BARSLAST(月营收_I));
前28月_月:=REF(月营收_I,27+BARSLAST(月营收_I));
前29月_月:=REF(月营收_I,28+BARSLAST(月营收_I));
前30月_月:=REF(月营收_I,29+BARSLAST(月营收_I));
前31月_月:=REF(月营收_I,30+BARSLAST(月营收_I));
前32月_月:=REF(月营收_I,31+BARSLAST(月营收_I));
前33月_月:=REF(月营收_I,32+BARSLAST(月营收_I));
前34月_月:=REF(月营收_I,33+BARSLAST(月营收_I));
前35月_月:=REF(月营收_I,34+BARSLAST(月营收_I));
前36月_月:=REF(月营收_I,35+BARSLAST(月营收_I));
前37月_月:=REF(月营收_I,36+BARSLAST(月营收_I));
前38月_月:=REF(月营收_I,37+BARSLAST(月营收_I));
前39月_月:=REF(月营收_I,38+BARSLAST(月营收_I));
前40月_月:=REF(月营收_I,39+BARSLAST(月营收_I));
前41月_月:=REF(月营收_I,40+BARSLAST(月营收_I));
前42月_月:=REF(月营收_I,41+BARSLAST(月营收_I));
副加值:=IF(月营收_I=0,1,0);
加:=IF(REF(月营收_I,TROUGHBARS(REF(DAY,1)<DAY,1,1)+副加值)=0,1,0);
前1月_1:=REF(月营收_I,TROUGHBARS(REF(DAY,1)<DAY,1,1)+副加值);
前2月_1:=REF(月营收_I,TROUGHBARS(REF(DAY,1)<DAY,1,2)+副加值);
前3月_1:=REF(月营收_I,TROUGHBARS(REF(DAY,1)<DAY,1,3)+副加值);
前4月_1:=REF(月营收_I,TROUGHBARS(REF(DAY,1)<DAY,1,4)+副加值);
前5月_1:=REF(月营收_I,TROUGHBARS(REF(DAY,1)<DAY,1,5)+副加值);
前6月_1:=REF(月营收_I,TROUGHBARS(REF(DAY,1)<DAY,1,6)+副加值);
前7月_1:=REF(月营收_I,TROUGHBARS(REF(DAY,1)<DAY,1,7)+副加值);
前8月_1:=REF(月营收_I,TROUGHBARS(REF(DAY,1)<DAY,1,8)+副加值);
前9月_1:=REF(月营收_I,TROUGHBARS(REF(DAY,1)<DAY,1,9)+副加值);
前10月_1:=REF(月营收_I,TROUGHBARS(REF(DAY,1)<DAY,1,10)+副加值);
前11月_1:=REF(月营收_I,TROUGHBARS(REF(DAY,1)<DAY,1,11)+副加值);
前12月_1:=REF(月营收_I,TROUGHBARS(REF(DAY,1)<DAY,1,12)+副加值);
前13月_1:=REF(月营收_I,TROUGHBARS(REF(DAY,1)<DAY,1,13)+副加值);
前14月_1:=REF(月营收_I,TROUGHBARS(REF(DAY,1)<DAY,1,14)+副加值);
前15月_1:=REF(月营收_I,TROUGHBARS(REF(DAY,1)<DAY,1,15)+副加值);
前16月_1:=REF(月营收_I,TROUGHBARS(REF(DAY,1)<DAY,1,16)+副加值);
前17月_1:=REF(月营收_I,TROUGHBARS(REF(DAY,1)<DAY,1,17)+副加值);
前18月_1:=REF(月营收_I,TROUGHBARS(REF(DAY,1)<DAY,1,18)+副加值);
前19月_1:=REF(月营收_I,TROUGHBARS(REF(DAY,1)<DAY,1,19)+副加值);
前20月_1:=REF(月营收_I,TROUGHBARS(REF(DAY,1)<DAY,1,20)+副加值);
前21月_1:=REF(月营收_I,TROUGHBARS(REF(DAY,1)<DAY,1,21)+副加值);
前22月_1:=REF(月营收_I,TROUGHBARS(REF(DAY,1)<DAY,1,22)+副加值);
前23月_1:=REF(月营收_I,TROUGHBARS(REF(DAY,1)<DAY,1,23)+副加值);
前24月_1:=REF(月营收_I,TROUGHBARS(REF(DAY,1)<DAY,1,24)+副加值);
前25月_1:=REF(月营收_I,TROUGHBARS(REF(DAY,1)<DAY,1,25)+副加值);
前26月_1:=REF(月营收_I,TROUGHBARS(REF(DAY,1)<DAY,1,26)+副加值);
前27月_1:=REF(月营收_I,TROUGHBARS(REF(DAY,1)<DAY,1,27)+副加值);
前28月_1:=REF(月营收_I,TROUGHBARS(REF(DAY,1)<DAY,1,28)+副加值);
前29月_1:=REF(月营收_I,TROUGHBARS(REF(DAY,1)<DAY,1,29)+副加值);
前30月_1:=REF(月营收_I,TROUGHBARS(REF(DAY,1)<DAY,1,30)+副加值);
前31月_1:=REF(月营收_I,TROUGHBARS(REF(DAY,1)<DAY,1,31)+副加值);
前32月_1:=REF(月营收_I,TROUGHBARS(REF(DAY,1)<DAY,1,32)+副加值);
前33月_1:=REF(月营收_I,TROUGHBARS(REF(DAY,1)<DAY,1,33)+副加值);
前34月_1:=REF(月营收_I,TROUGHBARS(REF(DAY,1)<DAY,1,34)+副加值);
前35月_1:=REF(月营收_I,TROUGHBARS(REF(DAY,1)<DAY,1,35)+副加值);
前36月_1:=REF(月营收_I,TROUGHBARS(REF(DAY,1)<DAY,1,36)+副加值);
前37月_1:=REF(月营收_I,TROUGHBARS(REF(DAY,1)<DAY,1,37)+副加值);
前38月_1:=REF(月营收_I,TROUGHBARS(REF(DAY,1)<DAY,1,38)+副加值);
前39月_1:=REF(月营收_I,TROUGHBARS(REF(DAY,1)<DAY,1,39)+副加值);
前40月_1:=REF(月营收_I,TROUGHBARS(REF(DAY,1)<DAY,1,40)+副加值);
前41月_1:=REF(月营收_I,TROUGHBARS(REF(DAY,1)<DAY,1,41)+副加值);
前42月_1:=REF(月营收_I,TROUGHBARS(REF(DAY,1)<DAY,1,42)+副加值);
前43月_1:=REF(月营收_I,TROUGHBARS(REF(DAY,1)<DAY,1,43)+副加值);
前1月_日:=IF(加=0,前1月_1,前2月_1);
前2月_日:=IF(加=0,前2月_1,前3月_1);
前3月_日:=IF(加=0,前3月_1,前4月_1);
前4月_日:=IF(加=0,前4月_1,前5月_1);
前5月_日:=IF(加=0,前5月_1,前6月_1);
前6月_日:=IF(加=0,前6月_1,前7月_1);
前7月_日:=IF(加=0,前7月_1,前8月_1);
前8月_日:=IF(加=0,前8月_1,前9月_1);
前9月_日:=IF(加=0,前9月_1,前10月_1);
前10月_日:=IF(加=0,前10月_1,前11月_1);
前11月_日:=IF(加=0,前11月_1,前12月_1);
前12月_日:=IF(加=0,前12月_1,前13月_1);
前13月_日:=IF(加=0,前13月_1,前14月_1);
前14月_日:=IF(加=0,前14月_1,前15月_1);
前15月_日:=IF(加=0,前15月_1,前16月_1);
前16月_日:=IF(加=0,前16月_1,前17月_1);
前17月_日:=IF(加=0,前17月_1,前18月_1);
前18月_日:=IF(加=0,前18月_1,前19月_1);
前19月_日:=IF(加=0,前19月_1,前20月_1);
前20月_日:=IF(加=0,前20月_1,前21月_1);
前21月_日:=IF(加=0,前21月_1,前22月_1);
前22月_日:=IF(加=0,前22月_1,前23月_1);
前23月_日:=IF(加=0,前23月_1,前24月_1);
前24月_日:=IF(加=0,前24月_1,前25月_1);
前25月_日:=IF(加=0,前25月_1,前26月_1);
前26月_日:=IF(加=0,前26月_1,前27月_1);
前27月_日:=IF(加=0,前27月_1,前28月_1);
前28月_日:=IF(加=0,前28月_1,前29月_1);
前29月_日:=IF(加=0,前29月_1,前30月_1);
前30月_日:=IF(加=0,前30月_1,前31月_1);
前31月_日:=IF(加=0,前31月_1,前32月_1);
前32月_日:=IF(加=0,前32月_1,前33月_1);
前33月_日:=IF(加=0,前33月_1,前34月_1);
前34月_日:=IF(加=0,前34月_1,前35月_1);
前35月_日:=IF(加=0,前35月_1,前36月_1);
前36月_日:=IF(加=0,前36月_1,前37月_1);
前37月_日:=IF(加=0,前37月_1,前38月_1);
前38月_日:=IF(加=0,前38月_1,前39月_1);
前39月_日:=IF(加=0,前39月_1,前40月_1);
前40月_日:=IF(加=0,前40月_1,前41月_1);
前41月_日:=IF(加=0,前41月_1,前42月_1);
前42月_日:=IF(加=0,前42月_1,前43月_1);
判断显示周期:=DATATYPE=6 OR DATATYPE=7 OR DATATYPE=8;
前1月:IF(判断显示周期=1,IF(DATATYPE=8,前1月_月,前1月_日),0),LINETHICK0;
前2月:IF(判断显示周期=1,IF(DATATYPE=8,前2月_月,前2月_日),0),LINETHICK0;
前3月:IF(判断显示周期=1,IF(DATATYPE=8,前3月_月,前3月_日),0),LINETHICK0;
前4月:IF(判断显示周期=1,IF(DATATYPE=8,前4月_月,前4月_日),0),LINETHICK0;
前5月:IF(判断显示周期=1,IF(DATATYPE=8,前5月_月,前5月_日),0),LINETHICK0;
前6月:IF(判断显示周期=1,IF(DATATYPE=8,前6月_月,前6月_日),0),LINETHICK0;
前7月:IF(判断显示周期=1,IF(DATATYPE=8,前7月_月,前7月_日),0),LINETHICK0;
前8月:IF(判断显示周期=1,IF(DATATYPE=8,前8月_月,前8月_日),0),LINETHICK0;
前9月:IF(判断显示周期=1,IF(DATATYPE=8,前9月_月,前9月_日),0),LINETHICK0;
前10月:IF(判断显示周期=1,IF(DATATYPE=8,前10月_月,前10月_日),0),LINETHICK0;
前11月:IF(判断显示周期=1,IF(DATATYPE=8,前11月_月,前11月_日),0),LINETHICK0;
前12月:IF(判断显示周期=1,IF(DATATYPE=8,前12月_月,前12月_日),0),LINETHICK0;
前13月:IF(判断显示周期=1,IF(DATATYPE=8,前13月_月,前13月_日),0),LINETHICK0;
前14月:IF(判断显示周期=1,IF(DATATYPE=8,前14月_月,前14月_日),0),LINETHICK0;
前15月:IF(判断显示周期=1,IF(DATATYPE=8,前15月_月,前15月_日),0),LINETHICK0;
前16月:IF(判断显示周期=1,IF(DATATYPE=8,前16月_月,前16月_日),0),LINETHICK0;
前17月:IF(判断显示周期=1,IF(DATATYPE=8,前17月_月,前17月_日),0),LINETHICK0;
前18月:IF(判断显示周期=1,IF(DATATYPE=8,前18月_月,前18月_日),0),LINETHICK0;
前19月:IF(判断显示周期=1,IF(DATATYPE=8,前19月_月,前19月_日),0),LINETHICK0;
前20月:IF(判断显示周期=1,IF(DATATYPE=8,前20月_月,前20月_日),0),LINETHICK0;
前21月:IF(判断显示周期=1,IF(DATATYPE=8,前21月_月,前21月_日),0),LINETHICK0;
前22月:IF(判断显示周期=1,IF(DATATYPE=8,前22月_月,前22月_日),0),LINETHICK0;
前23月:IF(判断显示周期=1,IF(DATATYPE=8,前23月_月,前23月_日),0),LINETHICK0;
前24月:IF(判断显示周期=1,IF(DATATYPE=8,前24月_月,前24月_日),0),LINETHICK0;
前25月:IF(判断显示周期=1,IF(DATATYPE=8,前25月_月,前25月_日),0),LINETHICK0;
前26月:IF(判断显示周期=1,IF(DATATYPE=8,前26月_月,前26月_日),0),LINETHICK0;
前27月:IF(判断显示周期=1,IF(DATATYPE=8,前27月_月,前27月_日),0),LINETHICK0;
前28月:IF(判断显示周期=1,IF(DATATYPE=8,前28月_月,前28月_日),0),LINETHICK0;
前29月:IF(判断显示周期=1,IF(DATATYPE=8,前29月_月,前29月_日),0),LINETHICK0;
前30月:IF(判断显示周期=1,IF(DATATYPE=8,前30月_月,前30月_日),0),LINETHICK0;
前41月:IF(判断显示周期=1,IF(DATATYPE=8,前41月_月,前41月_日),0),LINETHICK0;
前42月:IF(判断显示周期=1,IF(DATATYPE=8,前42月_月,前42月_日),0),LINETHICK0;
{点击看本软件截图：58股票 公式网 http://www. 58gu. com 整理} |
