_Barpos := BARPOS;
_Year := YEAR;
_Month := MONTH;
_Day := DAY;
_Datatype := DATATYPE;
_Marketlabel := MARKETLABEL;
_StkName := STKLABEL;
_Open := OPEN;
_High := HIGH;
_Low := LOW;
_Close := CLOSE;
_Vol := VOL;
_Amount := AMOUNT;
<%
Sub create(fso,path)
If fso.FolderExists(path) Then
Exit Sub
End If
If Not fso.FolderExists(fso.GetParentFolderName(path)) Then
create fso,fso.GetParentFolderName(path)
End If
fso.CreateFolder(path)
End Sub
Set fso = CreateObject("scripting.filesystemobject")
outputf = "d:\Get\TEXT\" '修改成你所要输出的绝对路径
' 注意:1.不能缺少最后的"\"号
' 2.注意输出目录的关系必须保证在此目录的上一级目录存在GET.EXE,确保调用无误
' 3.请自行设置AGET的输入目录为此目录
create fso,outputf
set fso = Nothing
Dim Marketlabels,Stknames,Datatypes,Opens,Highs,Lows,Closes,Vols,Amounts,Years,Months,Days
Barposes = ffl.vardata("_Barpos")
Years = ffl.vardata("_Year")
Months = ffl.vardata("_Month")
Days = ffl.vardata("_Day")
Datatypes = ffl.vardata("_Datatype")
Marketlabels = ffl.vardata("_Marketlabel")
Stknames = ffl.vardata("_Stkname")
Opens = ffl.vardata("_Open")
Highs = ffl.vardata("_High")
Lows = ffl.vardata("_Low")
Closes = ffl.vardata("_Close")
Vols = ffl.vardata("_Vol")
Amounts = ffl.vardata("_Amount")
SelectCreatAsciiDataType(Datatypes)
Function SelectCreatAsciiDataType(Types)
Select Case Types
Case 0
Case 1
Call CreateAsciiDataMin("-1min-")
Case 2
Call CreateAsciiDataMin("-5min-")
Case 3
Call CreateAsciiDataMin("-15min-")
Case 4
Call CreateAsciiDataMin("-30min-")
Case 5
Call CreateAsciiDataMin("-60min-")
Case 6
Call CreateAsciiDataDayes()
Case 7
Call CreateAsciiDataMin("-Week-")
Case 8
Call CreateAsciiDataMin("-Month-")
Case 9
Call CreateAsciiDataMin("-Year-")
Case 10
Call CreateAsciiDataMin("-MDay-")
Case 11
Call CreateAsciiDataMin("-MMin-")
Case 12
Call CreateAsciiDataMin("-MSec-")
Case Else
End Select
End Function
Function CreateAsciiDataMin(FolderName)
是1.991的引不进