// Downloaded From https://www.WiseStockTrader.com
/*VALLKKOTTAI MURUGAN THUNAI*\
Telegram @easysimpletrade
Website https://easysimpletrade.blogspot.com
Youtube https://www.youtube.com/channel/UCaAH8Um7QCIPsOXH47zHAfQ
*/

OPDIR = ParamStr("Output Drive", "C");
OPFOL = ParamStr("Output Folder Name", "OneMinuteData");

FFormat = ParamList("File Format", ".txt|.csv",0);

FDATE = ParamDate("From Date","01/01/22");
TDATE = ParamDate("To Date","31/12/22");

EODINT = ParamList("TimeFrame", "IEOD|EOD",0);

FNAMES = ParamList("Segment", "Equity|Futures|Options",0);

FUNAMEP = Param("Future - No. of Charcters after Name",2,0,50,1);
FUNAMESUF = ParamStr("Futuer Suffix", "-I");

OPNAMEP = Param("Options - No. of Charcters after Name",18,0,50,1);
OPSTKS = Param("No. of Charcters between Name and Strike",1,0,50,1);
OPSTKL = Param("Length of Strike Price",5);
OPCPS = Param("No. of Charcters between Name and CE/PE",6,0,50,1);


FUNAME = StrLeft(Name(), StrLen(Name()) - FUNAMEP)+FUNAMESUF;

OPSPOT = StrLeft(Name(), StrLen(Name()) - OPNAMEP);
OPSTRK = StrMid(Name(), StrLen(OPSPOT)+OPSTKS,OPSTKL);
OPCEPE = StrMid(Name(), StrLen(OPSPOT)+OPCPS,2);

OPNAME = OPSPOT+OPSTRK+OPCEPE;

FNAME = WriteIf(FNAMES == "Futures", FUNAME, WriteIf(FNAMES == "Options", OPNAME, Name()));

DNUM = DateNum();

if(Status( "action" ) == actionScan)

{
fmkdir( OPDIR+":\\"+ OPFOL);
fh = fopen( OPDIR+"://"+OPFOL+"//"+FNAME+FFormat, "w");

if( fh )
{
fputs( "Ticker,Date,Time,Open,High,Low,Close,Volume,OI\n", fh );
//fputs( "Ticker,Date,Time,Open,High,Low,Close,Volume,OI,Aux1,Aux2\n", fh );
YYY = Year();
MMM = Month();
DDD = Day();
HHH = Hour();
NNN = Minute();
SSS = Second();
for( i = 0; i < BarCount; i++ )
{
if(DNUM[i] > (FDATE-1) AND DNUM[i] <= TDATE)
{
fputs( FNAME + "," , fh );

ds = StrFormat("%02.0f-%02.0f-%02.0f,",YYY[ i ], MMM[ i ], DDD[ i ] );
fputs( ds, fh );
if(EODINT == "IEOD")
{
ts = StrFormat("%02.0f:%02.0f:%02.0f,",HHH[ i ],NNN[ i ],SSS[ i ] );
fputs( ts, fh );
}
qs = StrFormat("%.4f,%.4f,%.4f,%.4f,%.0f,%.0f\n",O[ i ],H[ i ],L[ i ],C[ i ],V[ i ],OI[ i ] );
//qs = StrFormat("%.4f,%.4f,%.4f,%.4f,%.0f,%.0f,%.0f,%0.f\n",O[ i ],H[ i ],L[ i ],C[ i ],V[ i ],OI[ i ],Aux1[i],Aux2[i] );
fputs( qs, fh );
}
}
fclose( fh );
}
}


Filter = 1;
AddColumn(FDATE,"From",1);
AddColumn(TDATE,"To",1);
AddTextColumn(FNAME,"Output Symbol Name");
AddTextColumn(OPDIR+"://"+OPFOL+"//"+FNAME+FFormat,"Output File",1);