软件名称：[B]0801-月营收[/B]
软件类型：国产软件
运行环境：Win9X/2000/XP/2003/
软件语言：简体中文
授权方式：解密版
软件大小：7.00 KB
官方主页：Home Page
更新时间：2008-11-19 05:20:07
软件简介:
{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));
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));