飞狐数据转get数据原代码（日线 分钟线等）

归鹫

真好!~!~!,对楼主的无私奉献,我代表上海全体人民表示衷心的感谢!~!~!~

jspangwj

Originally posted by haihai812 at 2004-11-12 16:05
谢谢！！！
能否修改数据名称及后辍，类似ctext，很方便地双手配合在GET里键入各股各周期数据。如sh600001，s、h两键跨度太大，除日周期外的其他周期还要打后辍，键入一股票60min数据要“s、h、600001、.、60”，要按11次，不方便。建议将名称前辍及周期后辍统一，集中在A、S、D、F、G等部位键，分别安排为日、60min、30min、15min、5min。比如日线为A600001.txt，60min线为S600001，30min线为D600001，15min线为F600001，5min线为G600001。我相信这样改了，会是转GET最好用的公式，每个股票平均输入7次，效率提高40％。
好像针对GET，不用生成Years、Moons、Weeks。
望月魂之魄 再出手改改。谢谢！
我相信月魂之魄的转GET公式将广泛地、长时间地留在飞狐使用者的电脑里。

学一点编程，
就能用这个公式源码，改成各式各样你自己所要求的应用公式。

代码名称前辍是市场名，SH\SZ\SQ\QH\WH\ 是可以去掉或改但较复杂。

就这公式而言，可以改的地方有：

输出文件的后辍名 .dat 可改。

目录名 D:\Ascii Data 可改

以及输出数据、输出数据格式 也可改

总之，这个公式是很有用处，炒家必备工具之一。

就看你有多大能耐玩转它。

呵呵

:D:D:D:D:*19*::*19*::*19*:

jspangwj

目前这代码的缺点是

转出数据大多,从头到结束.

要做到输出任意天数数据也能做到,太烦,但用处很大.

有兴趣的朋友慢慢玩吧

OK

我爱阿雯我的爱

这个公式怎么用？会用的教教我，万分感激了！！！

归鹫

把下面语句中的.dat改成.TXT
   FileName = "D:\Ascii Data\" & FolderName & "\" & Marketlabels & StkNames & "." & DataName & ".dat"

FileName = "D:\Ascii Data\Dayes\" & Marketlabels & StkNames & ".dat"

归鹫

LineData = AforeYear & AforeMonth & AforeDay & " " & Opens(i) & " " & Highs(i) & " " & Lows(i) & " " & Closes(i) & " " & Vols(i) & " " & Amounts(i)
LineData = Years(i) & Months(i) & Days(i) & " " & Opens(i) & " " & Highs(i) & " " & Lows(i) & " " & Closes(i) & " " & Vols(i) & " " & Amounts(i)

改成:
LineData = AforeYear & "-" & AforeMonth & "-"  AforeDay & " " & Opens(i) & " " & Highs(i) & " " & Lows(i) & " " & Closes(i) & " " & Vols(i) & " " & Amounts(i)
LineData = Years(i) & "-"  Months(i) & "-" Days(i) & " " & Opens(i) & " " & Highs(i) & " " & Lows(i) & " " & Closes(i) & " " & Vols(i) & " " & Amounts(i)


OK,好用了!~!~!就这么简单,虽然我不懂编程...哈哈...

其他要改的,我也不会了~!!~!~!:*30*::*29*:

KOJE

Originally posted by 归鹫 at 2005-1-13 12:47
LineData = AforeYear & AforeMonth & AforeDay & " " & Opens(i) & " " & Highs(i) & " " & Lows(i) & " " & Closes(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)

上面的3是保留3位小数,想改的话可自己动手.

KOJE

再补充一点,如何把前缀去处如SH,SZ.
找出: FileName = "D:\Ascii Data\" & FolderName & "\" & Marketlabels & StkNames & "." & DataName & ".dat"

改为: FileName = "D:\Ascii Data\" & FolderName & "\" & StkNames & "." & DataName & ".txt"

找出:FileName = "D:\Ascii Data\Dayes\" & Marketlabels & StkNames & ".dat"
改为:FileName = "D:\Ascii Data\Dayes\" & StkNames & ".txt"

可以把输出代码  SH600601  变为600601了其他分时一样改了.
并且.dat改为.txt了.

输出路径可以根据需要自己改了,这个比较简单不说了,用替换会方便一些.

呵呵,我也不懂的,随便改的,哈哈~~~

我爱阿雯我的爱

在GET里怎么设置啊？我打开是空的呀！请帮忙呀！！！

我爱阿雯我的爱

在GET里怎么设置啊？我打开是空的呀！请帮忙呀！！！

我爱阿雯我的爱

不会用啊，哪位好心人帮帮忙啊？万分感激！！！

刘诗悦

飞狐数据转get数据原代码

ljh1101

飞狐数据转get数据原代码

cqlwll

Originally posted by ljh1101 at 2005-1-26 01:22
飞狐数据转get数据原代码在转分时线时不正确。5分钟线中应出现48条同一年月日的记录。还有一问题：分钟线怎样用VBS得到？怎样转成60分钟线？可以不可以提供你的电话！

renzma

非常感谢月魂之魄

刘诗悦

（日线 分钟线等）

fashionxm

说一下用法吧

renzma

1.建*.ALG
2.GET 似必需在一个目录"*:\GET\TEXT"中运行,原码应作一些修改

wjf_1974

麻烦那位老大给讲一下公式的用法好么?先谢了!!

夕阳武士㊣

好东西。。。。。。。。。。。。。。。。。

[ Last edited by 夕阳武士㊣ on 2005-4-20 at 00:26 ]