string Name = "Data\\tradeList.csv";  // name of the CSV file

string readTrade(string csv,
	string*	tAsset,
	string*	tType,
	float*	tLots,
	float* tStop
	)
{
	string nextline = strstr(csv,"\n");
	if(nextline) nextline++;
	
	string separator = strstr(csv,",");
	if(separator) separator = ",";
	else separator = ";"; 
		
	*tAsset = strtok(csv,separator); //symbol
	if(!*tAsset) return nextline;
	strtok(0,separator); // expiry
	*tType = strtok(0,separator); // action: buy or sell
	sscanf(strtok(0,separator),"%f", &tLots); //quantity in standard lots
	strtok(0,separator); // order type
	sscanf(strtok(0,separator),"%f", &tStop); //aux price
	
	return nextline;
}
	
function run()
{
	set(LOGFILE);
//	StartDate = STARTDATE;
	LookBack = 0;
	if(is(LOOKBACK) || is(TRADING))
		return;
		
	if(!file_date(Name))
		quit("File not found!");
	string content = file_content(Name);
	string tAsset = "",tType = "";
	float tLots;
	float tStop;
		
	while(content) {
		content = readTrade(content,&tAsset,&tType,&tLots,&tStop);
		printf("\n%s %s %f %f", tAsset, tType, tLots, tStop);
		}

}

string Name = "Data\\systematic.csv";  // name of the CSV file
string readTrade(string csv,
	string*	tAsset,
	string*	tType,
	float*	tLots,
	float* tEntry,
	float* tStop
	)
{
	string nextline = strstr(csv,"\n");
	if(nextline) nextline++;
//	else return nextline;
	
	string separator = strstr(csv,",");
	if(separator) separator = ",";
	else separator = ";"; 
		
	string s = strtok(csv,separator); //symbol
//		printf("\n%s", s);

	*tAsset = s; 
	*tType = strtok(NULL, " ");
//	printf("\n%s", *tType);
	sscanf(strtok(NULL," "), "%f", tLots);
//	printf("\n%f", *tLots);
	strtok(NULL, " "); //"Lots"
	strtok(NULL, " "); //"at"
	
	sscanf(strtok(NULL," "), "%f", tEntry); //Entry
	
	strtok(NULL,"separator"); //End of second column
	
	strtok(NULL,"separator"); //Third column
	
	strtok(NULL," "); //"Sell/Buy"
	strtok(NULL, " "); //"lots to close"
	strtok(NULL, " "); //"Lots"
	strtok(0, " "); //"at"
	
	sscanf(strtok(NULL," "), "%f", tStop); //Stop

	return nextline;
}
	
function run()
{
	set(LOGFILE);
	Verbose = 30;
	LookBack = 0;
	Hedge = 2;
//	if(is(LOOKBACK) || is(TRADING))
//		return;
		
	if(!file_date(Name))
		quit("File not found!");
	string content = file_content(Name);
	string tAsset = "", tType = "";
	float tLots;
	float tEntry;
	float tStop;
			
	while(content) { 
		content = readTrade(content,&tAsset,&tType,&tLots,&tEntry,&tStop);
printf("\n%s, %f, %f", tAsset, (var)tEntry, (var)tStop);
		}
		

}