2012年台期所期貨最後交易日檔

有用的人補一下吧, 2012(中華民國101年)台期所期貨最後交易日檔

2012-01-13

2012台期所期貨最後交易日檔

資訊來源 - 期貨交易所 - 交易制度 - 台灣行事曆


20120118
20120215
20120321
20120418
20120516
20120620
20120718
20120815
20120919
20121017
20121121
20121219
20130119


--

AutoHotkey_L 已知的問題

版本 AutoHotkey_L 1.1.05.05 及 1.1.05.06, 檔案要存成UTF-8格式 。

問題:在INI檔中, 用中文Section及Key會抓不到資料, 現ERROR。

用舊版及AutoHotkey 1.0.48.05是正常的, 檔案要存成ANSI格式。

• ini檔內容
  [期貨商品]
  交易所 = TW
  商品數 = 3
  
  商品1 = txf

• 程式碼

  iniFile = ./jcmp.ini
  IfNotExist, %iniFile%
  {
   MsgBox, IniFile %iniFile% not Exist.
   ExitApp
  }
  
  IniRead, exchange, %iniFile%, 期貨商品, 交易所
  IniRead, pNumber,  %iniFile%, 期貨商品, 商品數
  IniRead, fExt,     %iniFile%, 期貨商品, 副檔名
  
  
  msgbox ahk version:%A_AhkVersion%`n`n商品數=%pNumber% \
  `n副檔名=%fExt%`n交易所=%exchange%
  

• 結果出現ERROR
  
  

註:這是舊程式, 以前跑起來是正常的。

順勢,停損/停利

順勢,停損/停利 - 勝率、買賣點很重要嗎？

順勢:口袋不夠深時,(資金不足,會被斷頭), 操作方向。
停損:降低風險, 確保資金。
停利:保證利潤。

順勢是方向, 停損/停利是出場時機, 還有進場時間, 三者為穫利基本關鍵, 策略暨為三者的組合。

-

2011年台期所期貨最後交易日檔

2010-12-21

每年都要補的內容,最後交易日也就是結算日, 期交所每年定訂,在程式交易中會用到, 是得到當月期貨及換倉重要參考。

2011(中華民國100年)台期所期貨最後交易日檔

資訊來源 - 期貨交易所 - 交易制度 - 台灣行事曆


20101117
20101215
20110119
20110216
20110316
20110420
20110518
20110615
20110720
20110817
20110921
20111019
20111116
20111221





-
--
-

AutoHotKey補一個月的轉檔程式

這支程式是用AutoHotKey寫的,用來補前幾天(前30天)沒有做轉檔, 要配合
台指期轉檔程式 - part4(懶人包), 自動取得交易檔, 轉Tick及1分K線。

程式中用到他人的 SimpleArray.ahk 要放在同個資料夾(目錄)下。下載SimpleArray.zip, 下載後要解zip檔。

getTick.ahk程式碼

;
; AutoHotkey Version: 1.0.0
; Platform: Win XP
; Author: R.J
; Date : 2010/6/11
; Script Function:
; Get Tick
;
#Include SimpleArray.ahk

; 1 2 3 4 5 6 7 8 9 10 11 12
Month = 31|28|31|30|31|30|31|31|30|31|30|31

PerlExe = c:\perl\bin\perl.exe
plGetTick = c:\tick\prg_perl3w\gettick3w.pl
plProc3wTick = c:\tick\prg_perl3w\proc3w_tick.pl

ToDay = %A_YYYY%-%A_MM%-%A_DD%

if (%A_MM% == 1 ){
sStartMonth := 12 ; 前月
} else {
sStartMonth := A_MM + 99
sStartMonth := SubStr(sStartMonth, 2, 2) ; 前月
}

sStartDay = %A_YYYY%-%sStartMonth%-%A_DD%
sStopDay = %A_YYYY%-%A_MM%-%A_DD%


Gui, Font, S12,
Gui, Add, Text, x10 y25 w70 h20 , Start Date :
Gui, Add, Text, x10 y85 w70 h20 , Stop Date :
Gui, Add, Edit, x90 y23 w90 h20 r1 vStartEdit, %sStartDay%
Gui, Add, Edit, x90 y83 w90 h20 r1 vStopEdit, %sStopDay%
Gui, Add, Button, x220 y18 w46 h29 , Start
Gui, Show, x300 y150 h250 w320, Get Future Daily-Trade from TAIFEX
Return

GuiClose:
ExitApp


ButtonStart:
Gui, Submit
stopDate := StopEdit

stYYYY := SubStr(StartEdit, 1, 4)
stMM := SubStr(StartEdit, 6, 2)
stDD := SubStr(StartEdit, 9, 2)

WorkDate = %stYYYY%-%stMM%-%stDD%

; While (stopDate >= WorkDate) {
While (WorkDate <= stopDate) {
if (stDD > SA_Get(Month, stMM)) {
; 換月
stDD -= SA_Get(Month, stMM)
if (stDD < 10) {
stDD += 100
stDD := SubStr(stDD, 2, 2)
}
stMM += 1
if (stMM > 12) {
stMM := 01
stYYYY += 1
} else if (stMM < 10) {
stMM += 100
stMM := SubStr(stMM, 2, 2)
}
}
WorkDate = %stYYYY%-%stMM%-%stDD%

RunWait, %comspec% /c date %WorkDate%, , min
sleep, 1000

if (A_WDay >= 2 and A_WDay <= 6) {
RunWait, %PerlExe% %plGetTick%
RunWait, %PerlExe% %plProc3wTick%
}

stDD += 1
if (stDD < 10) {
stDD += 100
stDD := SubStr(stDD, 2, 2)
}
WorkDate = %stYYYY%-%stMM%-%stDD%
}

RunWait, %comspec% /c date %ToDay%, , min ;; Reset Today DateTime
Return



-

2010年台期所期貨最後交易日檔

2010-06-18

2010台期所期貨最後交易日檔


20100120
20100217
20100317
20100421
20100519
20100616
20100721
20100818
20100915
20101020
20101117
20101215


參考 - 台灣期貨交易所 - 行事曆

-
--
-

perl程式 - 取出今天K線

目的:為了即時補上斷線後的資料, 再匯入策略軟體(TS), 將看盤軟體匯出的一分K線, 只取出今天的K線, 且去除不完整的最後一筆(時間沒到)。

輸入 - C:\tmp\1.csv
輸出 - C:\tickhist\txf.csv

再配合 autoit 或 AutoHotKey , 就可以按一下自動補上今日K線資料

today1k.pl 程式

#!C:\Perl\bin\perl.exe

# 取出今天的K線, 去除最後一筆

# 輸入一分K線檔 - C:\tmp\1.csv
# 輸出一分K線檔 - C:\tickhist\txf.csv

use POSIX qw(strftime);
use integer;

$src_k1m = 'C:\\tmp\\1.csv'; # 1mk source file
$tmpfile = 'C:\\tickhist\\tmp001.csv'; # tmp file
$tar_k1m = 'C:\\tickhist\\txf.csv'; # 1mk target file

$today = strftime "%Y/%m/%d", localtime;

print "Process $today Today 1 Minute K To : $tar_k1m.\n";


open(infile, $src_k1m) || die("Cannot open $src_k1m.\n");
open(tempfile, ">$tmpfile");

$rec_no=0;
;

while(my $k1m_record = )
{
chomp $k1m_record;
# $k1m_record =~ s/ //g;
# ($kDate, $kTime, $kOpen, $kHigh, $kLow, $kClose, $kVol)=split(/, / , $k1m_record);
($kDateTime, $kOpen, $kHigh, $kLow, $kClose, $kVol)=split(/,/ , $k1m_record);
($kDate, $kTime)=split(/ / , $kDateTime);

if ($kDate eq $today ){
print tempfile "$kDate,$kTime,$kOpen,$kHigh,$kLow,$kClose,$kVol\n";
$rec_no = $rec_no + 1;
}
}

close(tempfile);
close(infile);

open(tmp_file, $tmpfile) || die("Cannot open $tmpfile.\n");
open(outfile, ">$tar_k1m");

print outfile "Date,Time,Open,High,Low,Close,Vol\n";

for ( $i=1; $i<$rec_no; $i++ ) {
my $tmp_record = ;
print outfile $tmp_record;

# print "$i\n";
}

close(tmp_file);
close(outfile);

# 刪除暫存檔
unlink $tmpfile;



註:
1.其時用附屬工具 grep 來做會更精簡。
2.看盤軟體"康和全都賺"匯出一分K, 會有將近三個月的K線資料。

---