/**
1. In OriginPro7.5, open "Code Builder"
2. File->New a C file, copy and paste codes (in below) into it, then File->Add to Workspace
3. Tools->Compile
4. In OriginPro7.5 workspace, Open "Script Window"
5. Type "import <number of header lines> <delimiters>", and then press "Enter"
	Example:
	import 32 ":>,"

	Note: the first delimiter appeared in your ASCII file shall appear 
	in the first place of delimiter string. In your case, the first delimiter
	must be ":".
	
6. In the "Open ASCII" dialog, select multiple files to import...
*/

void import(int nHeaderLines, string strDelimiters)

{
	// Open file dialog box
	int iNumSelFiles;
	StringArray saFiletypes, saFilePaths;
	saFiletypes.SetSize(3);
	saFiletypes[0]="[ASCII Text (*.TXT)] *.TXT";
	saFiletypes[1]="[ASCII Text (*.DAT)] *.DAT";
	saFiletypes[2]="[All Files (*.*)] *.*";

	iNumSelFiles = GetMultiOpenBox(saFilePaths, saFiletypes, "", "", "Import ASCII");
	
	// Hanle ASCII files one by one
	for (int i = 0; i < saFilePaths.GetSize(); i++)
	{

		Worksheet wks;		
		ASCIMP ascimp;
		
		if(!AscImpReadFileStruct(saFilePaths[i], &ascimp)==0)
		{
			printf("Failed to scan and analyse the given file!\n");
			return;
		}
			
		ascimp.iDelimited = 1;
		ascimp.iDelimiter = ASCIMP_DELIM_OTHER;
		ascimp.cChar = strDelimiters.GetAt(0);
		ascimp.iHeaderLines = nHeaderLines;
		ascimp.iTestLines = 4;
		ascimp.iMaxTestLines = 50;
		
		// Read to worksheets
		wks.Create("Origin");
		wks.ImportASCII(saFilePaths[i], ascimp);

		// Handle the delimiters left.
		for (int j = 1; j < strDelimiters.GetLength(); j++)
		{
			char cDelimiter = strDelimiters.GetAt(j);
			for (int k = 0; k < wks.GetNumCols(); k++)
			{
				string strCell;
				wks.GetCell(0, k, strCell);
				int nTokens = strCell.GetNumTokens(cDelimiter);
				if (nTokens == 1)
					continue;
				// Add new columns
				for (int l = 0; l < nTokens - 1; l++)
				{
					string ColName = "";
					string ColNameCreated;
					wks.InsertCol(k+1, ColName, ColNameCreated);
				}
				// Row by row
				for (int m = 0; m < wks.GetNumRows(); m++)
				{
					wks.GetCell(m, k, strCell);
					// Assume that nTokens will be the same througout the column...
					StringArray strTokens;
					strTokens.SetSize(nTokens);
					strCell.GetTokens(strTokens, cDelimiter);
					for (int n = 0, s = 0; n < nTokens; n++, s++)
					{
						wks.SetCell(m, k + s, strTokens[n]);
					}
				}
			}
		}
	}
}