波浪软件GET数据快速转换 - 第4页 - 『软件数据专区』 - 【阳光飞狐__与财富同行】

黄金旗 发表于 2006-5-19 21:43:47

动态的怎么办？？？？？？？

孤风般若 发表于 2006-5-20 21:09:19

4.9的不行啊 ,ZHTEXT 提示执行VBS错误...如何处理?

心明发表于 2006-5-29 02:03:33

原帖由孤风般若于 2006-5-20 21:09 发表
4.9的不行啊 ,ZHTEXT 提示执行VBS错误...如何处理?

我这里可以啊，没发现你说的错误呢？

19802008 发表于 2006-12-19 17:30:37

非常感谢啊

垂钓沧波间 发表于 2007-1-26 17:20:56

请教,GET软件有使用限制么?如使用的次数\时间等.
谢!

心明发表于 2007-2-14 22:16:42

没有使用时间和次数的限制.

动态的目前还没发现哪里有.

happyweekends 发表于 2007-3-4 10:11:12

我用了也是说错啊

说执行VBS出错

九和发表于 2008-11-28 21:45:46

原帖由 happyweekends 于 2007-3-4 10:11 发表 http://bbs.88158.cn/images/common/back.gif
说执行VBS出错
我的也是，请问有何办法？谢谢！

九和发表于 2008-11-28 22:09:02

重启飞狐后可以了。但是5分钟周期不能用，为什么？

九和发表于 2008-11-28 22:13:54

请问在GET中5分钟周期怎么转15、30、60分钟周期？谢谢！

如意1012 发表于 2009-1-17 22:35:27

回复 1# 心明的帖子

2，启动GET，打开股票对话框，点“数据路径”，
那有数据路径啊！！！我怎么没看到

zhou138 发表于 2009-1-18 14:39:04

谢谢您的支持～～agree

心明发表于 2009-1-23 21:22:43

原帖由如意1012 于 2009-1-17 22:35 发表 http://bbs.88158.cn/images/common/back.gif
2，启动GET，打开股票对话框，点“数据路径”，
那有数据路径啊！！！我怎么没看到
看第一图

心明发表于 2009-1-23 21:26:15

原帖由九和于 2008-11-28 22:13 发表 http://bbs.88158.cn/images/common/back.gif
请问在GET中5分钟周期怎么转15、30、60分钟周期？谢谢！
8.0的只支持日线。

MACDSY 发表于 2009-3-1 21:54:53

谢谢您的支持～～

CASDAQ 发表于 2009-3-9 18:46:12

谢谢斑竹。脚本错误的同学可以从飞狐里面直接把数据导出为TXT格式即可。

hmb820904 发表于 2009-4-2 15:39:01

楼主可不可以同步数据啊！飞狐里面的数据是不是导到DAY文件里面呢！导出也只有日线啊！其它周期怎么搞！

CQ2698 发表于 2009-11-22 20:34:48

这个最新的GET改公式用在期货5分钟上卡死机器是低配置能改下吗

_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)

   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 AforeMonth = "0" & 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) & "" & Months(i) & "" & 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;

9527 发表于 2010-2-15 17:53:36

我用了也是说错啊
说执行VBS出错

雨彩虹 发表于 2010-3-27 18:57:03

谢谢提供！！！

天心箭 发表于 2010-5-12 11:15:45

envy envy envy

swmm13 发表于 2010-5-19 19:10:23

user下面没“day”文件夹

user下面没“day”文件夹，咋回事啊
社区01表情图标

yongqitang 发表于 2010-7-12 19:10:02

snicker snicker snicker

Ka.Na.Pan 发表于 2020-2-23 22:50:15

谢谢提供！！！

页: 1 2 3 [4]

【阳光飞狐__与财富同行】's Archiver

我用了也是说错啊

回复 1# 心明 的帖子

这个最新的GET改公式用在期货5分钟上卡死机器是低配置能改下吗

user下面没“day”文件夹

回复 1# 心明的帖子