-- 作者:cq2698
-- 发布时间:2010/10/8 10:12:37
-- [原创][原创]请高手改成金字塔的行不谢谢
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 = outputf & StkNames & FolderName & ".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),3,,,TristateFalse) Highs(i) = FormatNumber(Highs(i),3,,,TristateFalse) Lows(i) = FormatNumber(Lows(i),3,,,TristateFalse) Closes(i) = FormatNumber(Closes(i),3,,,TristateFalse) Vols(i) = FormatNumber(Vols(i),3,,,TristateFalse) Amounts(i) = FormatNumber(Amounts(i),3,,,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 = outputf & StkNames & "-Day-" & ".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),3,,,TristateFalse) Highs(i) = FormatNumber(Highs(i),3,,,TristateFalse) Lows(i) = FormatNumber(Lows(i),3,,,TristateFalse) Closes(i) = FormatNumber(Closes(i),3,,,TristateFalse) Vols(i) = FormatNumber(Vols(i),3,,,TristateFalse) Amounts(i) = FormatNumber(Amounts(i),3,,,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),3,,,TristateFalse) Highs(i) = FormatNumber(Highs(i),3,,,TristateFalse) Lows(i) = FormatNumber(Lows(i),3,,,TristateFalse) Closes(i) = FormatNumber(Closes(i),3,,,TristateFalse) Vols(i) = FormatNumber(Vols(i),3,,,TristateFalse) Amounts(i) = FormatNumber(Amounts(i),3,,,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
%> 0;
|
-- 作者:cq2698
-- 发布时间:2010/10/8 10:26:20
--
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 = outputf & StkNames & FolderName & ".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),3,,,TristateFalse) Highs(i) = FormatNumber(Highs(i),3,,,TristateFalse) Lows(i) = FormatNumber(Lows(i),3,,,TristateFalse) Closes(i) = FormatNumber(Closes(i),3,,,TristateFalse) Vols(i) = FormatNumber(Vols(i),3,,,TristateFalse) Amounts(i) = FormatNumber(Amounts(i),3,,,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 = outputf & StkNames & "-Day-" & ".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),3,,,TristateFalse) Highs(i) = FormatNumber(Highs(i),3,,,TristateFalse) Lows(i) = FormatNumber(Lows(i),3,,,TristateFalse) Closes(i) = FormatNumber(Closes(i),3,,,TristateFalse) Vols(i) = FormatNumber(Vols(i),3,,,TristateFalse) Amounts(i) = FormatNumber(Amounts(i),3,,,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),3,,,TristateFalse) Highs(i) = FormatNumber(Highs(i),3,,,TristateFalse) Lows(i) = FormatNumber(Lows(i),3,,,TristateFalse) Closes(i) = FormatNumber(Closes(i),3,,,TristateFalse) Vols(i) = FormatNumber(Vols(i),3,,,TristateFalse) Amounts(i) = FormatNumber(Amounts(i),3,,,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
%> 0;
|