波浪理论分析软件Advanced GET

kincash · 发表于 2008-6-7 11:45:26

谢谢好东西哦

cjgx923 · 发表于 2008-6-8 17:20:05

ddddddddddd

紫罗袍 · 发表于 2008-6-15 17:01:34

这个问题，那位仁兄会啊。

http://bbs.88158.cn/thread-53345-1-1.html

mowtu · 发表于 2008-8-24 00:54:40

數據轉換完整版,可以在D盤自動生成文件夾DATA,自動生成ㄖ線\分時線

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

If ReportFolderStatus("D:\Data") = 0 Then CreatFolder()
SelectCreatAsciiDataType(Datatypes)

Function SelectCreatAsciiDataType(Types)
      Select Case Types
            Case 0

            Case 1

            Case 2
                     Call CreateAsciiDataMin("05min","W")
            Case 3
                     Call CreateAsciiDataMin("15min","SW")
            Case 4
                     Call CreateAsciiDataMin("30min","SS")
            Case 5
                     Call CreateAsciiDataMin("60min","M")
            Case 6
                     Call CreateAsciiDataDayes()
            Case 7

            Case 8

            Case 9

            Case 10

            Case 11

            Case Else

            End Select
End Function

Function CreateAsciiDataMin(FolderName,DataName)
      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:\Data\" & FolderName & "\" & DataName  & 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 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 = AforeMonth &"/" & AforeDay &"/" & AforeYear& ", " & 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:\Data\Dayes\" & "A" & 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),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 = Months(i) &"/" & Days(i) & "/" & Years(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 = Months(i) & "/" & Days(i) &"/" & Years(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:\Data")
      Set Folder = Fso.CreateFolder("D:\Data\Dayes")
      Set Folder = Fso.CreateFolder("D:\Data\60min")
      Set Folder = Fso.CreateFolder("D:\Data\30min")
      Set Folder = Fso.CreateFolder("D:\Data\15min")
      Set Folder = Fso.CreateFolder("D:\Data\05min")

End Function
%>
0;

mowtu · 发表于 2008-8-24 00:56:54

公式從網上取得

fang05114 · 发表于 2008-10-25 23:47:34

谢谢了,

阳光普照啊!!

wyw787 · 发表于 2008-10-28 21:07:47

谢谢提供

整理 · 发表于 2008-11-6 00:19:27

省事多了,谢谢

fqd · 发表于 2008-11-25 22:27:08

谢谢！

no1zhou · 发表于 2008-12-6 00:44:39

看图学习，试试看。。。。

naoqizhang · 发表于 2008-12-8 00:34:54

GET數據轉換完整版,可以在D盤自動生成文件夾DATA,自動生成ㄖ線\分時線

數據轉換完整版,可以在D盤自動生成文件夾DATA,自動生成ㄖ線\分時線
菜鸟级地请把步骤写明

naoqizhang · 发表于 2008-12-8 01:02:15

我也没看见Ｋ线怎么上去谢谢能说明一下吗

1236688 · 发表于 2009-2-3 20:01:28

请问如何利用这个软件选股,如那些处于1,3,5浪.谢谢

zhmi0662 · 发表于 2009-2-9 19:17:50

我在GET点那个棒型图后想再把它转换成K线图不知怎么操作，请楼主给指导一下，谢谢。

mgt2008 · 发表于 2009-3-23 19:16:40

非常好，谢谢！

hmb820904 · 发表于 2009-4-2 15:48:24

各个功能来个设置说明吧！楼主！

高雄鸡 · 发表于 2009-4-26 21:32:11

顶~~~~~~~~~~~~~~~~~~~~~~~~~~~~

平安2 · 发表于 2009-5-18 07:17:45

学习是进步的原动力

平安2 · 发表于 2009-5-18 07:21:22

学习是进步的原动力谢谢了

jqbudd · 发表于 2009-7-7 23:11:13

谢谢

.gif" smilieid="201" border="0" alt="" />

向往远方 · 发表于 2009-10-10 20:52:06

辛苦了

skywater · 发表于 2009-10-20 17:32:55

H06327 · 发表于 2009-10-23 10:17:19

谢谢,试试好用不

dmxx · 发表于 2009-11-4 10:57:16

有时间再研究，

快乐我2009 · 发表于 2009-11-19 16:25:16

谢谢

[ 本帖最后由快乐我2009 于 2009-11-19 16:26 编辑 ]

9527 · 发表于 2010-2-11 18:41:49

大盘指数是什么代码呀

李二水 · 发表于 2010-2-23 18:48:13

谢谢！！！！！！！！！！！！！！

雨彩虹 · 发表于 2010-3-27 18:56:10

谢谢提供！！！

swmm13 · 发表于 2010-5-19 17:09:45

导入后打开软件看不到走势图，咋回事呀

zghncjp · 发表于 2010-6-14 23:46:04

谢谢了，您

		自动登录	找回密码
密码			手机注册

波浪理论分析软件Advanced GET

dddddddddd

GET數據轉換完整版,可以在D盤自動生成文件夾DATA,自動生成ㄖ線\分時線

回复 #214 mowtu 的帖子

回复 #1 sunfox 的帖子

如何让GET中的棒型图转换成K线图

郁闷，导入后打开软件看不到走势图啊