-- 作者:ricky
-- 发布时间:2012/11/9 11:06:25
-- [求助]请求斑竹帮忙如何改成金字塔能用的,提示出错
因知识有限,不懂怎改,请斑竹帮忙看看如何修改,谢谢了!!
_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;
<% 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..StrVarData("_Marketlabel") Stknames = ffl..StrVarData("_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")
If ReportFolderStatus("D:\\AGET RT Data") = 0 Then CreatFolder() 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("H4") Case 11
Case Else
End Select End Function
Function CreateAsciiDataMin(FolderName) Const ForReading = 1, ForWriting = 2, ForAppending = 8 Const TristateTrue = -1,TristateFalse = 0,TristateUseDefault = -2 Dim Fso,FileName,TextStream,LineData,ArrayLast,LastDate,AforeDate,AforeYear,AforeMonth,AforeDay Set Fso = CreateObject("Scripting.FileSystemObject") FileName = "D:\\AGET RT Data\\" & FolderName & "\\" & "M" & StkNames & ".txt" Set TextStream = Fso.OpenTextFile(FileName, ForWriting, True) ArrayLast = Ubound(Barposes) LastDate = Years(ArrayLast) & "-" & Months(ArrayLast) & "-" & Days(ArrayLast) For i = 0 To ArrayLast AforeDate = DateAdd("d",(i-ArrayLast),LastDate) AforeYear = Year(AforeDate) AforeMonth = Month(AforeDate) If Len(AforeMonth) = 1 Then AforeM & AforeMonth AforeDay = Day(AforeDate) If Len(AforeDay) = 1 Then AforeDay = "0" & AforeDay Opens(i) = FormatNumber(Opens(i),2,,,TristateFalse) Highs(i) = FormatNumber(Highs(i),2,,,TristateFalse) Lows(i) = FormatNumber(Lows(i),2,,,TristateFalse) Closes(i) = FormatNumber(Closes(i),2,,,TristateFalse) Vols(i) = FormatNumber(Vols(i),2,,,TristateFalse) Amounts(i) = FormatNumber(Amounts(i),2,,,TristateFalse) LineData = AforeYear & "0" & AforeMonth & "0" & AforeDay & " " & Opens(i) & " " & Highs(i) & " " & Lows(i) & " " & Closes(i) & " " & Vols(i) & " " & Amounts(i) TextStream.WriteLine LineData Next TextStream.Close End Function
Function CreateAsciiDataDayes() Const ForReading = 1, ForWriting = 2, ForAppending = 8 Const TristateTrue = -1,TristateFalse = 0,TristateUseDefault = -2 Dim i,Fso,FileName,TextStream,LineData,AforeLast,ArrayLast Set Fso = CreateObject("Scripting.FileSystemObject") FileName = "D:\\AGET RT Data\\Dayes\\" & Stknames & ".txt" IF ReportFileStatus(FileName) = 0 Then Set TextStream = Fso.OpenTextFile(FileName,ForWriting,True) ArrayLast = Ubound(Barposes) For i = 0 To ArrayLast If Len(Months(i)) = 1 Then Months(i) = "0" & Months(i) If Len(Days(i)) = 1 Then Days(i) = "0" & Days(i) Opens(i) = FormatNumber(Opens(i),2,,,TristateFalse) Highs(i) = FormatNumber(Highs(i),2,,,TristateFalse) Lows(i) = FormatNumber(Lows(i),2,,,TristateFalse) Closes(i) = FormatNumber(Closes(i),2,,,TristateFalse) Vols(i) = FormatNumber(Vols(i),2,,,TristateFalse) Amounts(i) = FormatNumber(Amounts(i),2,,,TristateFalse) LineData = Years(i) & "0" & Months(i) & "0" & Days(i) & " " & Opens(i) & " " & Highs(i) & " " & Lows(i) & " " & Closes(i) & " " & Vols(i) & " " & Amounts(i) TextStream.WriteLine LineData Next TextStream.Close ElseIf ReportFileStatus(FileName) = 1 Then AforeLast = 0 Set TextStream = Fso.OpenTextFile(FileName, ForReading, False) Do Until TextStream.AtEndOfStream = True TextStream.ReadLine AforeLast = AforeLast+1 Loop TextStream.Close Set TextStream = Fso.OpenTextFile(FileName,ForAppending,False) ArrayLast = Ubound(Barposes) For i = AforeLast To ArrayLast If Len(Months(i)) = 1 Then Months(i) = "0" & Months(i) If Len(Days(i)) = 1 Then Days(i) = "0" & Days(i) Opens(i) = FormatNumber(Opens(i),2,,,TristateFalse) Highs(i) = FormatNumber(Highs(i),2,,,TristateFalse) Lows(i) = FormatNumber(Lows(i),2,,,TristateFalse) Closes(i) = FormatNumber(Closes(i),2,,,TristateFalse) Vols(i) = FormatNumber(Vols(i),2,,,TristateFalse) Amounts(i) = FormatNumber(Amounts(i),2,,,TristateFalse) LineData = Years(i) & "0" & Months(i) & "0" & Days(i) & " " & Opens(i) & " " & Highs(i) & " " & Lows(i) & " " & Closes(i) & " " & Vols(i) & " " & Amounts(i) TextStream.WriteLine LineData Next TextStream.Close End If End Function
Function ReportFileStatus(Filespec) Dim Fso, Status Set Fso = CreateObject("Scripting.FileSystemObject") If (Fso.FileExists(Filespec)) Then Status = 1 Else Status = 0 End If ReportFileStatus = Status End Function
Function ReportFolderStatus(FolderDir) Dim Fso, Status Set Fso = CreateObject("Scripting.FileSystemObject") If (Fso.FolderExists(FolderDir)) Then Status = 1 Else Status = 0 End If ReportFolderStatus = Status End Function
Function CreatFolder() Dim Fso Set Fso = CreateObject("Scripting.FileSystemObject") Dim Folder Set Folder = Fso.CreateFolder("D:\\AGET RT Data") Set Folder = Fso.CreateFolder("D:\\AGET RT Data\\Year") Set Folder = Fso.CreateFolder("D:\\AGET RT Data\\Month") Set Folder = Fso.CreateFolder("D:\\AGET RT Data\\Week") Set Folder = Fso.CreateFolder("D:\\AGET RT Data\\Dayes") Set Folder = Fso.CreateFolder("D:\\AGET RT Data\\60min") Set Folder = Fso.CreateFolder("D:\\AGET RT Data\\30min") Set Folder = Fso.CreateFolder("D:\\AGET RT Data\\15min") Set Folder = Fso.CreateFolder("D:\\AGET RT Data\\5min") Set Folder = Fso.CreateFolder("D:\\AGET RT Data\\H4") End Function %> 0;drawtextex(1,0,5,5, Stkname);
此主题相关图片如下:金.jpg
|