阳光飞狐
设为首页收藏本站
开启辅助访问 切换到宽版

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

 找回密码
 手机注册
【阳光飞狐__与财富同行】»社区 › ≡≡≡软件相关专题≡≡≡ › 『软件数据专区』 › 波浪软件GET数据快速转换
1234下一页
返回列表 发新帖
查看: 39570|回复: 113
打印 上一主题 下一主题

波浪软件GET数据快速转换

[复制链接]
心明
跳转到指定楼层
1#
发表于 2004-5-10 18:13:03 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
GET安装最好是用默认路径,Wind2000 Wind-XP尤其是。
1，打开飞狐，找出ZHTEXT公式到指标幅图上。
2，启动GET，打开股票对话框，点“数据路径”，
3，再点“属性”，在“数据路”上点“EXT”在“选择目录”里找到飞狐里的user下面的day。
4，将日期格式选择如图所示，

[ Last edited by 心明 on 2004-12-11 at 17:47 ]

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有帐号？手机注册

x
回复

举报

Ka.Na.Pan
114#
发表于 2020-2-23 22:50:15 | 只看该作者
谢谢提供！！！
回复 支持 反对

举报

yongqitang
113#
发表于 2010-7-12 19:10:02 | 只看该作者
snicker
回复 支持 反对

举报

swmm13
112#
发表于 2010-5-19 19:10:23 | 只看该作者

user下面没“day”文件夹

user下面没“day”文件夹，咋回事啊
回复 支持 反对

举报

天心箭
111#
发表于 2010-5-12 11:15:45 | 只看该作者
envy
回复 支持 反对

举报

雨彩虹
110#
发表于 2010-3-27 18:57:03 | 只看该作者
谢谢提供！！！
回复 支持 反对

举报

9527
109#
发表于 2010-2-15 17:53:36 | 只看该作者
我用了也是说错啊
说执行VBS出错
回复 支持 反对

举报

CQ2698
108#
发表于 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;
回复 支持 反对

举报

hmb820904
107#
发表于 2009-4-2 15:39:01 | 只看该作者
楼主可不可以同步数据啊！飞狐里面的数据是不是导到DAY文件里面呢！导出也只有日线啊！其它周期怎么搞！
回复 支持 反对

举报

CASDAQ
106#
发表于 2009-3-9 18:46:12 | 只看该作者
谢谢斑竹。脚本错误的同学可以从飞狐里面直接把数据导出为TXT格式即可。
回复 支持 反对

举报

MACDSY
105#
发表于 2009-3-1 21:54:53 | 只看该作者
谢谢您的支持～～
回复 支持 反对

举报

心明
104#
 楼主| 发表于 2009-1-23 21:26:15 | 只看该作者
原帖由 九和 于 2008-11-28 22:13 发表
请问在GET中5分钟周期怎么转15、30、60分钟周期？谢谢！

8.0的只支持日线。
回复 支持 反对

举报

心明
103#
 楼主| 发表于 2009-1-23 21:22:43 | 只看该作者
原帖由 如意1012 于 2009-1-17 22:35 发表
2，启动GET，打开股票对话框，点“数据路径”，
那有数据路径啊！！！我怎么没看到

看第一图
回复 支持 反对

举报

zhou138
102#
发表于 2009-1-18 14:39:04 | 只看该作者
谢谢您的支持～～
回复 支持 反对

举报

如意1012
101#
发表于 2009-1-17 22:35:27 | 只看该作者

回复 1# 心明 的帖子

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

举报

九和
100#
发表于 2008-11-28 22:13:54 | 只看该作者
请问在GET中5分钟周期怎么转15、30、60分钟周期？谢谢！
回复 支持 反对

举报

九和
99#
发表于 2008-11-28 22:09:02 | 只看该作者
重启飞狐后可以了。但是5分钟周期不能用，为什么？
回复 支持 反对

举报

九和
98#
发表于 2008-11-28 21:45:46 | 只看该作者
原帖由 happyweekends 于 2007-3-4 10:11 发表
说执行VBS出错

我的也是，请问有何办法？谢谢！
回复 支持 反对

举报

happyweekends
97#
发表于 2007-3-4 10:11:12 | 只看该作者

我用了也是说错啊

说执行VBS出错
回复 支持 反对

举报

心明
96#
 楼主| 发表于 2007-2-14 22:16:42 | 只看该作者
没有使用时间和次数的限制.

动态的目前还没发现哪里有.
回复 支持 反对

举报

垂钓沧波间
95#
发表于 2007-1-26 17:20:56 | 只看该作者
请教,GET软件有使用限制么?如使用的次数\时间等.
谢!
回复 支持 反对

举报

19802008
94#
发表于 2006-12-19 17:30:37 | 只看该作者
非常感谢啊
回复 支持 反对

举报

心明
93#
 楼主| 发表于 2006-5-29 02:03:33 | 只看该作者
原帖由 孤风般若 于 2006-5-20 21:09 发表
4.9的不行啊 ,ZHTEXT 提示 执行VBS错误...如何处理?



我这里可以啊，没发现你说的错误呢？
回复 支持 反对

举报

孤风般若
92#
发表于 2006-5-20 21:09:19 | 只看该作者
4.9的不行啊 ,ZHTEXT 提示 执行VBS错误...如何处理?
回复 支持 反对

举报

黄金旗
91#
发表于 2006-5-19 21:43:47 | 只看该作者
动态的怎么办？？？？？？？
回复 支持 反对

举报

lady999
90#
发表于 2006-4-23 11:04:58 | 只看该作者
互帮互助，感谢s............
回复 支持 反对

举报

beb
89#
发表于 2006-4-22 11:57:15 | 只看该作者
大家共同提高!
回复 支持 反对

举报

心明
88#
 楼主| 发表于 2006-2-24 23:38:37 | 只看该作者

回复 #87 tq8868 的帖子

ZHTEXT公式在第九楼，直接下载即可。
回复 支持 反对

举报

tq8868
87#
发表于 2006-2-16 11:28:57 | 只看该作者

请问哪位前辈能教我 安装get数据？非常感谢

本版说的  “GET安装最好是用默认路径,Wind2000 Wind-XP尤其是。
1，打开飞狐，找出ZHTEXT公式到指标幅图上。”     这一步骤我不懂 ，我已安装get和飞狐交易师v4.0,找不到“ZHTEXT公式”，请告知如何找，大家共同提高，感谢
回复 支持 反对

举报

tq8868
86#
发表于 2006-2-16 10:16:36 | 只看该作者

这一步骤我不懂 ，找不到“ZHTEXT公式”，请告知，大家共同提高，感谢

你说的  “GET安装最好是用默认路径,Wind2000 Wind-XP尤其是。
1，打开飞狐，找出ZHTEXT公式到指标幅图上。”     这一步骤我不懂 ，我已安装飞狐交易师v4.0,找不到“ZHTEXT公式”，请告知如何找，大家共同提高，感谢                                                                        
                                       
                                                                                            可  回复    QQ：139258779   弹指神通
                                                                                                              Email：tq8868@vip.163.com
回复 支持 反对

举报

下一页 »
1234下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 手机注册

本版积分规则

QQ|小黑屋|手机版|Archiver|【阳光飞狐】 ( 网站ICP编号：京ICP备06013475号-7 )

GMT+8, 2024-11-23 10:27 , Processed in 0.405068 second(s), 21 queries .

Powered by Discuz! X3.2 Licensed

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表