Metastock için tüm sembollere ait belli sayıda barın bilgilerini text dosyaya aktarmak istiyoruz.
Daha önce yapmadım , yapalım, siz deneyin, oluyor mu bakalım.
Bir defaya mahsus yapacaklarımız;
a-Dosya Formatının Belirlenmesi
b-Sorgu ekranından tetiklenecek olan, seçtiğimiz periyot ve hisse senetleri(tümü,100,30 vb.) için belli bir "gün" deki verileri dosyaya yazan bir Sistem Yazılması.
Bunları sağlarsak eğer metastock import dosyasını oluşturmak için sadece sorgumuzu açıp "Hesapla" butonuna basmak yeterli olacaktır.
a-MetaStock Import File Formatını bulalım önce;
Metastock forumlarında aşağıdaki gibi bir format buldum.
<NAME>,<PER>,<DATE>,<TIME>,<OPEN>,<HIGH>,<LOW>,<CL OSE>,<VOL>,<OPENINT>
INTC,15,20040518,14:30:00,27.30000,27.31000,27.240 00,27.28000,1900111,0
Bizim dışarıya ASCII Text csv dosyası çıkartmamız gerekiyor.
Bu örnek satırı üretmeye çalışalım biz öyleyse.
Farklı formatlarda gördüm versiyona göre değişiyormu bilmiyorum ama değişiyorsa bile uygulayacağımız yöntemi dilediğiniz hale getirip sonuç alabilirsiniz.
b-Dosyaya çıkartmak için bir sistem yazalım. Bu sistemi "SORGU" ekranı için yazalım.
Adıda "Sorgu_MetaStockImport7" olsun.
Neden 7?
Çünkü Sorgu ekranında periyot seçimi var yani dinamik olacak,
Sembol gruplarıda var (tümü,100,30 vb.) dinamik olacak,
fakat bar adedi seçimi yok. Bu 7 bar olmasın ama her periyot için 7 Gün olsun. Periyot sorgu penceresinde Gün seçildi ise 7 Bar 60 seçildi ise 7*8 bar vb. olsun.
Bilelimki her tıklamada 1 haftaya ait veriyi çıkartıyor.
Bu nedenle yazacağımız sistemde statik olarak belli bir bar adedini export edeceğiz dosyaya.
İhtiyacınıza göre siz değiştirirsiniz bu 7 yi.
Sorguya dair gördüğüm önemli bir bilgi, ne kadar döngü kurarsanız kurun, Sorgu penceresinde her hisse için sadece tek satır çıktı verebilirsiniz!
Sistem.SorguEkle() komutunu döngü içerisine alarak bu durumu değiştiremssiniz.
Bu nedenle bizim amacımız ekranda import verilerini görmek değildir.Ekranda sadece hangi hisselerin verilerinin import edildiğini göreceğiz.
Bu yüzden Sorgu kolonlarıda şunlardan ibaret olsun; No, Sembol ve Açıklama default geliyor zaten. Biz açıklamaya "Aktarımı Yapılmıştır" yazalım oldu bitti.
Sistemimiz aşağıdaki gibidir;
Küçük periyotlu dosyaların oluşması uzun sürebilir, sorgu pencresinde sağ üstte devam eden hisseyi görürsünüz.
Önemli Not: Her Hesapla denildiğinde dosya içeriğine ekleme olur.
İdeal sorgu yapısından dolayı bunu tam yönetemedik.
Prensib olarak aynı günde yapacağınız her hesapla işlemi öncesi çıktı dosyanızı silin. dosya isminde günün tarihi var çünkü.
Mükerrer olmamasına dikkat edin. yaparsanızda metastock sembol ve datetime a göre overwrite yapacağından sorun olmayacaktır bu durum.
Sorun olursa linki:
http://csharppad.com/gist/7c8bc1a8d8...0f83d10ee6a764
PHP Code:
//Ayarlar -------------------------------------------
bool BaslikSatiriOlsumu= true;
string Ayrac=";";
int KacGun = 7;
string DosyaAdi = @"d:\Metastock_"
+ DateTime.Now.ToString("dd.MM.yyyy")
+".csv";
//Desenler -------------------------------------------
string Headers = "NAME"+Ayrac+
"PER"+Ayrac+
"DATE"+Ayrac+
"TIME"+Ayrac+
"OPEN"+Ayrac+
"HIGH"+Ayrac+
"LOW"+Ayrac+
"CLOSE"+Ayrac+
"VOL"+Ayrac+
"OPENINT";
string Values = "{0}"+Ayrac+"{1}"+Ayrac+"{2}"+Ayrac+"{3}"+Ayrac+"{4}"+Ayrac+"{5}"+Ayrac+"{6}"+Ayrac+"{7}"+Ayrac+"{8}"+Ayrac+"{9}";
//Dosya Yoksa ilk oluştuğunda Header yaz ---------------------------------------
if (!File.Exists(DosyaAdi))
{
if(BaslikSatiriOlsumu) {
using (FileStream fs = new FileStream(DosyaAdi ,FileMode.Append, FileAccess.Write))
using (StreamWriter sw = new StreamWriter(fs))
{
sw.WriteLine(Headers );
}
}
}
//Hisseye ait Toplam Barı Bul (Burasını iyi kontrol etmedim, bar sayıları sorunlu olabilir, her periyot olmayabilir, ayarlayın işte:)
int ToplamBar= 0;
if(Sistem.Periyot=="G") ToplamBar = KacGun;
else if(Sistem.Periyot=="240") ToplamBar = KacGun * 2;
else if(Sistem.Periyot=="120") ToplamBar = KacGun * 4;
else if(Sistem.Periyot=="60") ToplamBar = KacGun * 8;
else if(Sistem.Periyot=="30") ToplamBar = KacGun * 8 * 2;
else if(Sistem.Periyot=="15") ToplamBar = KacGun * 8 * 2 * 2;
else if(Sistem.Periyot=="5") ToplamBar = KacGun * 8 * 2 * 2 * 3;
else if(Sistem.Periyot=="1") ToplamBar = KacGun * 8 * 2 * 2 * 3 * 5;
//Sembol için Bar Döngüsüne gir------------------------------------------------
for (int i = Sistem.BarSayisi - ToplamBar ; i < Sistem.BarSayisi; i++)
{
// Bar'a ait Satırı Oluştur------------------------------------------------------
string barline= string.Format(
Values
,Sistem.Sembol.Replace("IMKBH","").Replace("'","")
,Sistem.Periyot.ToString()
,Sistem.GrafikVerileri[i].Date.ToString("yyyyMMdd")
,Sistem.GrafikVerileri[i].Date.ToString("HH:mm")
,Sistem.GrafikVerileri[i].Open.ToString().Replace(",",".")
,Sistem.GrafikVerileri[i].High.ToString().Replace(",",".")
,Sistem.GrafikVerileri[i].Low.ToString().Replace(",",".")
,Sistem.GrafikVerileri[i].Close.ToString().Replace(",",".")
,Sistem.GrafikVerileri[i].Vol.ToString().Replace(",",".")
//,Sistem.LotGun(Sistem.Sembol).ToString().Replace(",",".") //Hacim lot olacaksa bunu açıp üsttekini kapatın
,Sistem.GrafikVerileri[i-1].Close.ToString().Replace(",",".")
);
// Bar'a ait Satırı Dosyay Yaz---------------------------------------
using (FileStream fs = new FileStream(DosyaAdi ,FileMode.Append, FileAccess.Write))
using (StreamWriter sw = new StreamWriter(fs))
{
sw.WriteLine(barline);
}
} // For'a ait
//Sorgu Ekranına Ekleme -----------------------------------------------
Sistem.SorguAciklama = "Aktarımı Yapılmıştır";
Sistem.SorguEkle();
//----------------------------------------------------------------------------
Originally Posted by Caglar
Yeni Üye
?
Gönderi Kuralları
Alıntı yaparak yanıtla
Yer İmleri