Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- dayhours = ParamToggle("Day hours only", "No|Yes");
- fmkdir("e:\\AmiBackupD\\");
- SetBarsRequired(100000,100000);
- lname = Name(); // gets the name of the symbol
- // note: if you have names with invalid characters like / you must rename the file before you try to create a Name
- // add an IF line for each symbol you need to rename
- if (lname == "ER2U8-GLOBEX-FUT") lname = "ER2U8";
- fh = fopen( "e:\\AmiBackupD\\" + lname + ".csv", "w");
- if( fh )
- {
- if(Interval() == inDaily OR Interval() == inMonthly OR Interval() ==
- inWeekly)
- {
- fputs( "Ticker,Date,Open,High,Low,Close,Volume \n", fh );
- for( i = 0; i < BarCount; i++ )
- {
- y = Year();
- m = Month();
- d = Day();
- fputs( Name() + "," , fh );
- ds = StrFormat("%02.0f-%02.0f-%02.0f,", m[ i ], d[ i ], y[ i ] );
- fputs( ds, fh );
- qs = StrFormat("%.4f,%.4f,%.4f,%.4f,%.0f\n", O[ i ],H[ i ],L[ i ],C[ i
- ],V[ i ] );
- fputs( qs, fh );
- if(i == 65500 OR i == 130000 OR i == 196500 OR i == 262000)
- {
- fclose( fh );
- if(i == 65500 ) fh = fopen( "e:\\AmiBackupD\\" + lname + " A.csv", "w");
- if(i == 130000 ) fh = fopen( "e:\\AmiBackupD\\" + lname + " B.csv", "w");
- if(i == 196500 ) fh = fopen( "e:\\AmiBackupD\\" + lname + " C.csv", "w");
- if(i == 262000 ) fh = fopen( "e:\\AmiBackupD\\" + lname + " D.csv", "w");
- }
- }
- }
- else // intraday so add time field
- {
- fputs( "Ticker,Date,Time,Open,High,Low,Close,Volume \n", fh );
- y = Year();
- m = Month();
- d = Day();
- r = Hour();
- e = Minute();
- n = Second();
- for( i = 1; i < BarCount; i++ )
- {
- if (dayhours AND LastValue(TimeNum()) >= 92900 AND LastValue(TimeNum()) <=
- 161500)
- {
- fputs( Name() + "," , fh );
- ds = StrFormat("%02.0f-%02.0f-%02.0f,", m[ i ], d[ i ], y[ i ] );
- fputs( ds, fh );
- ts = StrFormat("%02.0f:%02.0f:%02.0f,", r[ i ],e[ i ],n[ i ] );
- fputs( ts, fh );
- qs = StrFormat("%.4f,%.4f,%.4f,%.4f,%.0f\n", O[ i ],H[ i ],L[ i ],C[ i
- ],V[ i ] );
- fputs( qs, fh );
- }
- else
- {
- fputs( Name() + "," , fh );
- ds = StrFormat("%02.0f-%02.0f-%02.0f,", m[ i ], d[ i ], y[ i ] );
- fputs( ds, fh );
- ts = StrFormat("%02.0f:%02.0f:%02.0f,", r[ i ],e[ i ],n[ i ] );
- fputs( ts, fh );
- qs = StrFormat("%.4f,%.4f,%.4f,%.4f,%.0f\n", O[ i ],H[ i ],L[ i ],C[ i
- ],V[ i ] );
- fputs( qs, fh );
- }
- if(i == 65500 OR i == 130000 OR i == 196500 OR i == 262000)
- {
- fclose( fh );
- if(i == 65500 ) fh = fopen( "e:\\AmiBackupD\\" + lname + " A.csv", "w");
- if(i == 130000 ) fh = fopen( "e:\\AmiBackupD\\" + lname + " B.csv", "w");
- if(i == 196500 ) fh = fopen( "e:\\AmiBackupD\\" + lname + " C.csv", "w");
- if(i == 262000 ) fh = fopen( "e:\\AmiBackupD\\" + lname + " D.csv", "w");
- }
- }
- }
- fclose( fh );
- }
- Buy = 1;
- _SECTION_BEGIN("Price");
- SetChartOptions(0,chartShowArrows|chartShowDates);
- _N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
- Plot( C, "Close", ParamColor("Color", colorDefault ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
- _SECTION_END();
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement