// suppose the report sheet with the results of Gaussian fit is active
void report_to_file()
{
	Worksheet wks = Project.ActiveLayer();  // be sure the report sheet
	if(!wks)
		return;
	
	uint uid;
	Tree tr;
	if(!(wks.GetReportTree(tr, &uid, 0, GRT_TYPE_RESULTS, true)))  // get the report sheet as tree
		return;
	
	// out_tree(tr);  // can output the tree to see the results
	
	// after Gauss fit, put the parameters to vector
	// can set a break point to see the hierarchy of the result tree
	vector v;
	v.Add(tr.Summary.R1.y0_Value.dVal);
	v.Add(tr.Summary.R1.xc_Value.dVal);
	v.Add(tr.Summary.R1.w_Value.dVal);
	v.Add(tr.Summary.R1.A_Value.dVal);

	vector<string> vs;
	// convert the double vector to string vector
	int iRet = convert_double_vector_to_string_vector(v, vs, v.GetSize());
	if(iRet==-1)
	{
		out_str("convert error");
		return;
	}

	// create a file, readable and writable
	stdioFile ff("d:\\parameter.txt",file::modeCreate | file::modeReadWrite);
	// write the values to the file
	for(int iValue=0; iValue<v.GetSize(); iValue++)
	{
    	ff.WriteString(vs[iValue]);
	}
}

void read_and_convert()
{
	stdioFile ff;
	// open a file
	bool bRet = ff.Open("d:\\parameter.txt", file::modeRead);
	if(!bRet)
	{
		out_str("file not found");
		return;
	}
	
	string strTemp;
	vector<string> vs;
	// read the file
	while(ff.ReadString(strTemp))
	{
		vs.Add(strTemp);
		//out_str(strTemp);
	}
	ff.Close();
	StringArray sa;
	// separate the string by tab
	int n = okutil_get_tokens(vs[1], &sa, '\t', NULL);
	
	// convert string to double
	double y0 = atof(sa[0]);
	double y0Error = atof(sa[1]);
	
	printf("y0=%f, y0Error=%f\n", y0, y0Error);
}

// suppose the report sheet with the result of Gaussian fit is active
void FitParameter2File()
{
	Worksheet wks = Project.ActiveLayer();  // be sure the report sheet
	if(!wks)
		return;
	
	uint uid;
	Tree tr;
	if(!(wks.GetReportTree(tr, &uid, 0, GRT_TYPE_RESULTS, true)))  // get the report sheet as tree
		return;
	
	// after Gauss fit, put the parameters to vector
	// can set a break point to see the hierarchy of the result tree
	vector<string> v;

	// add string to vector, use tab to separate each column
	v.Add("y0\tdy0");
	v.Add(ftoa(tr.Summary.R1.y0_Value.dVal, "*6") + "\t" + ftoa(tr.Summary.R1.y0_Error.dVal, "*6"));

	string strFileName = "parameter.txt";
	string strNewName;
	strNewName = strFileName;
	
	// the specified file exists or not. if exists, replace or create a new one
	bool bRet = replace_new_file(strFileName, "d:\\", strNewName);
	if(bRet == true)
	{
		// if select replace the existing file, can delete the old one
		DeleteFile("d:\\"+strNewName);
	}
	// create a new file
	stdioFile ff("d:\\"+strNewName,file::modeCreate | file::modeReadWrite);
	// write the values to the file
	for(int iValue=0; iValue<v.GetSize(); iValue++)
	{
    	ff.WriteString(v[iValue]);
	}
}

// return: true to replace, false to create a new one
bool replace_new_file(LPCTSTR strFileName, LPSTR strPath, string& strNewFileName)
{
	bool bRet;
	strNewFileName = strFileName;
	// check whether the file exists
	if(FindFile(strFileName, strPath, NULL, FALSE))
	{
		// message box to prompt
		int iRet = MessageBox(GetWindow(), "File exsits. \"Yes\" to replace the existing file, \"No\" to crate a new file.", "File Existing", MB_YESNO);
		if(iRet == IDYES)
		{
			bRet = true;
		}
		else if(iRet == IDNO)
		{	
			// specify a new file name to create
			while(FindFile(strNewFileName, strPath, NULL, FALSE))
			{
				GETN_BOX(trTemp)
				GETN_STR(newName, "File exists. Give a new file name.", strNewFileName)
				if(GetNBox(trTemp))
				{
					strNewFileName = trTemp.newName.strVal;
					bRet = false;
				}
				else
				{
					MessageBox(GetWindow(), "No new file name specified, will replace the existing file.", "No New File Name", MB_OK);
					bRet = true;
					break;
				}
			}
		}
	}
	
	return bRet;
}

v.Add(tr.Parameters.R1.C1.dVal);
v.Add(tr.Parameters.R1.C2.dVal);

if(!wp)
	return user0;