ابو محمد(أسامة) -- كيف انزل سطر اكسل csv ؟؟

[سلمان_العتيبي]

بسم الله الرحمن الرحيم
ارجو المساعدة في حل المشكلة اسفل لاهنت
يطبع التكات ملف اكسل باللملي سكند للزوج اللي طبقنا على تشارته,
وكل مرة لازم استخدم for loop ويثقل كلما زاد عدد التكات
هل يوجد حل بحيث مع كل تكة ينزل فقط سطر ويطبع بيانات التكة الجديدة؟ دون الحاجة لاعادة طباعة كل ماسبق مرة ثانية!

struct prices 
{ 
    string      time;
    string      bid;
    string      ask;
};

prices arr[];
int    count=-1;

void OnTick() 
{ 
    count++;
    ArrayResize(arr,count+1);
    arr[count].time=TimeToString(GetTickCount()/1000,TIME_MINUTES|TIME_SECONDS)+"."+formatMilliSecond(MathMod(GetTickCount(),1000));
    arr[count].bid=DoubleToString(SymbolInfoDouble(Symbol(),SYMBOL_BID),SymbolInfoInteger(Symbol(),SYMBOL_DIGITS)); 
    arr[count].ask=DoubleToString(SymbolInfoDouble(Symbol(),SYMBOL_ASK),SymbolInfoInteger(Symbol(),SYMBOL_DIGITS)); 
    int filehandle=FileOpen("myTicks.csv",FILE_WRITE|FILE_CSV,";"); 
    Print(count+"-----"+GetTickCount()+"   "+filehandle);
    if(filehandle!=INVALID_HANDLE) 
    {
        for(int i=count-1;i>=0;i--)
        FileWrite(filehandle,i,arr[i].time,Symbol(), EnumToString(ENUM_TIMEFRAMES(_Period)),arr[i].bid,arr[i].ask); 
        FileClose(filehandle);
    } 
}
string formatMilliSecond(int t)
{
    string str=t;
    if(t<10) str="00"+t;
    else if(t<100) str="0"+t;
    return str;
}

ودمتم
- ملحوظة: ممكن متابعة التغير وملف الاكسل مفتوح من خلال محرر الميتا مثل الصورة الاخيرة

[elassari]

جرب هذا الكود

 [LEFT]void OnTick() 
{ 
    count++;
    ArrayResize(arr,count+1);
    arr[count].time=TimeToString(GetTickCount()/1000,TIME_MINUTES|TIME_SECONDS)+"."+formatMilliSecond(MathMod(GetTickCount(),1000));
    arr[count].bid=DoubleToString(SymbolInfoDouble(Symbol(),SYMBOL_BID),SymbolInfoInteger(Symbol(),SYMBOL_DIGITS)); 
    arr[count].ask=DoubleToString(SymbolInfoDouble(Symbol(),SYMBOL_ASK),SymbolInfoInteger(Symbol(),SYMBOL_DIGITS)); 
    int filehandle=FileOpen("myTicks.csv",FILE_WRITE|FILE_CSV,";"); 
    Print(count+"-----"+GetTickCount()+"   "+filehandle);
    if(filehandle!=INVALID_HANDLE) 
    {
   FileSeek(filehandle,0,SEEK_END);
        FileWrite(filehandle,0,arr[0].time,Symbol(), EnumToString(ENUM_TIMEFRAMES(_Period)),arr[0].bid,arr[0].ask); 
        FileClose(filehandle);
    } 
}
[/LEFT] 
  

قمت باضافةFileSeek(filehandle,0,SEEK_END); مكان "for loop"

[elassari]

الكود اللذي سبق لا يعمل
انا اسف على هذا الغلط
هذا هو الكود الصحيح

 struct prices 
{ 
    string      time;
    string      bid;
    string      ask;
};
 
prices arr[];
int    count=-1;
void OnTick()
  {
//---
     int fileHandle      ;
    count++;
    ArrayResize(arr,count+1);
    arr[count].time=TimeToString(GetTickCount()/1000,TIME_MINUTES|TIME_SECONDS)+"."+formatMilliSecond(MathMod(GetTickCount(),1000));
    arr[count].bid=DoubleToString(SymbolInfoDouble(Symbol(),SYMBOL_BID),SymbolInfoInteger(Symbol(),SYMBOL_DIGITS)); 
    arr[count].ask=DoubleToString(SymbolInfoDouble(Symbol(),SYMBOL_ASK),SymbolInfoInteger(Symbol(),SYMBOL_DIGITS)); 
 
     string terminal_data_path=TerminalInfoString(TERMINAL_DATA_PATH);
     string filename     = "myTicks.csv";
 
     if(FileIsExist(filename,0))
       {
          fileHandle     =    FileOpen(filename , FILE_CSV|FILE_WRITE|FILE_READ, " , ");
          FileSeek(fileHandle,0,SEEK_END); 
          FileWrite(fileHandle,0,arr[0].time,Symbol(), EnumToString(ENUM_TIMEFRAMES(_Period)),arr[0].bid,arr[0].ask); 
          FileClose(fileHandle); 
          Print(count+"-----"+GetTickCount()+"   "+fileHandle);
 
       }else
          {
               fileHandle     =    FileOpen(filename , FILE_CSV|FILE_WRITE|FILE_READ, " , ");
               FileWrite(fileHandle,0,arr[0].time,Symbol(), EnumToString(ENUM_TIMEFRAMES(_Period)),arr[0].bid,arr[0].ask); 
               FileClose(fileHandle); 
          }
          
  }
//+------------------------------------------------------------------+
string formatMilliSecond(int t)
{
    string str=t;
    if(t<10) str="00"+t;
    else if(t<100) str="0"+t;
    return str;
} 
  

[saleh.najm]

في هذا الموضوع إحتمال تجد فيه ضالتك أخي سلمان

https://forum.arabictrader.com/t170877.html

[سلمان_العتيبي]

جرب هذا الكود

 [LEFT]void OnTick() 
{ 
    count++;
    ArrayResize(arr,count+1);
    arr[count].time=TimeToString(GetTickCount()/1000,TIME_MINUTES|TIME_SECONDS)+"."+formatMilliSecond(MathMod(GetTickCount(),1000));
    arr[count].bid=DoubleToString(SymbolInfoDouble(Symbol(),SYMBOL_BID),SymbolInfoInteger(Symbol(),SYMBOL_DIGITS)); 
    arr[count].ask=DoubleToString(SymbolInfoDouble(Symbol(),SYMBOL_ASK),SymbolInfoInteger(Symbol(),SYMBOL_DIGITS)); 
    int filehandle=FileOpen("myTicks.csv",FILE_WRITE|FILE_CSV,";"); 
    Print(count+"-----"+GetTickCount()+"   "+filehandle);
    if(filehandle!=INVALID_HANDLE) 
    {
   FileSeek(filehandle,0,SEEK_END);
        FileWrite(filehandle,0,arr[0].time,Symbol(), EnumToString(ENUM_TIMEFRAMES(_Period)),arr[0].bid,arr[0].ask); 
        FileClose(filehandle);
    } 
}
[/LEFT] 
  

قمت باضافةFileSeek(filehandle,0,SEEK_END); مكان "for loop"

من الأعماق تسلم يا غالي
سيتم التجربة مع افتتاح السوق(كود الرقم #3)
كثر الله من أمثالك

saleh.najm
اعرف هذا الموضوع اخي, احد افضل الموضيع التي قرأتها
واعتقد فيه رد لاسامة بناء على طلب مني لزيادة فعاليته اكثر

[saleh.najm]

اعرف هذا الموضوع اخي, احد افضل الموضيع التي قرأتها
واعتقد فيه رد لاسامة بناء على طلب مني لزيادة فعاليته اكثر

ما انتبهت أبدا أنه لك مشاركة في الموضوع القديم
الظاهر أنه الشاي اللي جاني اليوم الصباح كان مغشوش

[elassari]

من الأعماق تسلم يا غالي
سيتم التجربة مع افتتاح السوق(كود الرقم #3)
كثر الله من أمثالك

بارك الله فيك
يمكنك التجربة على tester ستجد الملف على امتداد
tester\files

[سلمان_العتيبي]

صالح؟ منين جايبه؟؟ من الصين؟؟ بي كيرفل

elassari : لاحظت انك وضعت 0 كاندكس لكل تكة جديدة--افترض اردت التكة رقم 17 مثلا؟
قبل التجارب حسب ردك السر في دالة FileSeek ؟

بالتأكيد ستتم التجربة الان تستر--هذه فائدة أخرى منك اخي.

[elassari]

اهم دالتين

           FileOpen(filename , FILE_CSV|FILE_WRITE|FILE_READ, ';');
          //فتح و قراءة الملف
          FileSeek(fileHandle,0,SEEK_END);
          // انشاء سطر جديد 
  

[سلمان_العتيبي]

SEEK_END
SEEK_CUR
SEEK_SET
؟؟
انتظر افتتاح السوق لتجربة الثلاث,
ولكن اذا عندك شرح لها--فإننا بحاجته

مثلا لو شلت SEEK_END في الردود أعلاه ووضعت SEEK_SET --- ايش اللي يتغير على فرض انه ممكن-----واذا غير ممكن ليش؟
من قراءة في المانوال اليوم دالة FileSeek تأخذ 3 ثوابت, SEEK_SET-----SEEK_CUR----SEEK_END

[سلمان_العتيبي]

ممتاز اخي-خفيف جدا وفوري
فقط لديك غير الاندكس من 0 الةى count لكي لايعيد كل مرة طباعة قيم اول تكة--اندكس0

FileWrite(fileHandle,count,arr[count].time,Symbol(), EnumToString(ENUM_TIMEFRAMES(_Period)),arr[count].bid,arr[count].ask);

[سلمان_العتيبي]

ممتاز اخي-خفيف جدا وفوري
فقط لديك غير الاندكس من 0 الىى count لكي لايعيد كل مرة طباعة قيم اول تكة--اندكس0

السطر المصحح:

          FileWrite(fileHandle,count,arr[count].time,Symbol(), EnumToString(ENUM_TIMEFRAMES(_Period)),arr[count].bid,arr[count].ask);

[سلمان_العتيبي]

طبقته على عملتين في نفس الوقت--يطبعهم في نفس الفايل مع حفظ ترتيب زمن التكة ورقمها لكل زوج: -الأهم مرتب زمنيا و خفيف جداً--ريشة!

[elassari]

SEEK_END
SEEK_CUR
SEEK_SET
؟؟

SEEK_CUR
SEEK_SET
للاسف لم يسبق لي استعمالهم من قبل