void OHMdataImport()
{
	StringArray strFiletypes, strFilePaths;
	strFiletypes.SetSize(1);
	strFiletypes[0]="[Name of Data File Type Goes Here]*.dat";
	string strDlgName="Selecting OHM Data Files";
	int NumFiles = GetMultiOpenBox(strFilePaths,strFiletypes,NULL,NULL,strDlgName,false);
	if(NumFiles==0)
	{
		out_str("No Data Files Found ...");
		return;
	}
	for(int i=0;i<NumFiles;i++)
	{
		string PathToFile=strFilePaths[i];
		if(PathToFile.IsFile()==false)
		{
			out_str("Cannot Find Data File:"+PathToFile);
			continue;
		}
		ASCIMP  ai;
		if(AscImpReadFileStruct(PathToFile, &ai)!=0 )
		{
			out_str("Error in Parsing File "+PathToFile);
			continue;
		}
		WorksheetPage Wpg;
		if(Wpg.Create("origin.otw",CREATE_HIDDEN)==false)
		{
			out_str("Origin Workbook Creation Error ...");
			return;
		}
 		Worksheet Wks(Wpg.Layers(0));
 		if(Wks.IsValid()==false)
 		{
 			out_str("Origin Worksheet Adressing Error ...");
			return;			
 		}
    	if(Wks.ImportASCII(PathToFile, ai)!=0)
    	{
        	out_str("Error in Importing File "+PathToFile);
        	return;
    	}
    	int j=Wks.AddCol();
    	if(j<0)
    	{
         	out_str("Worksheet Column Creation Error ...");
        	return;  		
    	}
    	int k=Wks.AddCol();
    	if(k<0)
    	{
         	out_str("Worksheet Column Creation Error ...");
        	return;  		
    	}   	
    	Dataset dsA,dsB,dsC,dsD;
    	if(dsA.Attach(Wks,0)==false || dsB.Attach(Wks,1)==false || dsC.Attach(Wks,j)==false || dsD.Attach(Wks,k)==false)
    	{
          	out_str("Worksheet Column Adressing Error ...");
        	return;    		
    	}
    	dsC=dsB/dsA;
		string strFileName=GetFileName(PathToFile);
		StringArray strTokens;
		if(strFileName.GetTokens(strTokens,'=')!=3)
		{
			out_str("Cannot Extract Data from Filename "+PathToFile);	
		}
		string strChars(GetDecimalChar());
		strChars+="-0123456789";
		string strTokenR=strTokens[1];
		string strValueR=strTokenR.SpanIncluding(strChars);
		double R=atof(strValueR);
		string strTokenI=strTokens[2];
		string strValueI=strTokenI.SpanIncluding(strChars);
		double I=atof(strValueI);		
		dsD = (I*I*R)/dsC;
		out_str("File "+strFileName+" Imported");
	}
}

quote:

---

Originally posted by rlewis

The Code listed below is an OriginC approach. As coded it will open a dialog for selecting the data files, and then import and process the data datafiles into separate workbooks
......

---

quote:

---

Originally posted by 5*10

Hi GausianFit,

as usual there are plenty ways to do things.
If you have the filename stored in the longname of the workbook you can then extract the needed information out of the string as follows:

string strFileName$=page.longname$=;;
string strResistance$=strFileName.Between("R=","Ohm")$;
string strCurrent$=strFileName.Between("I=","uA.dat")$;
double dResistance=%(strResistance$);
double dCurrent=%(strCurrent$);
dCurrent=;
dResistance=;

This is a labtalk code. You can copy it to the script window and easily try. This is just a small part of the solution you need, but perhaps it can be helpful

5*10

---

void OHMdataImport()
{
	StringArray strFiletypes, strFilePaths;
	strFiletypes.SetSize(1);
	strFiletypes[0]="[Name of Data File Type Goes Here]*.dat";
	string strDlgName="Selecting OHM Data Files";
	int NumFiles = GetMultiOpenBox(strFilePaths,strFiletypes,NULL,NULL,strDlgName,false);
	if(NumFiles==0)
	{
		out_str("No Data Files Found ...");
		return;
	}
	for(int i=0;i<NumFiles;i++)
	{
		string PathToFile=strFilePaths[i];
		if(PathToFile.IsFile()==false)
		{
			out_str("Cannot Find Data File:"+PathToFile);
			continue;
		}
		ASCIMP  ai;
		if(AscImpReadFileStruct(PathToFile, &ai)!=0 )
		{
			out_str("Error in Parsing File "+PathToFile);
			continue;
		}
		WorksheetPage Wpg;
		if(Wpg.Create("origin.otw",CREATE_HIDDEN)==false)
		{
			out_str("Origin Workbook Creation Error ...");
			return;
		}
 		Worksheet Wks(Wpg.Layers(0));
 		if(Wks.IsValid()==false)
 		{
 			out_str("Origin Worksheet Adressing Error ...");
			return;			
 		}
    	if(Wks.ImportASCII(PathToFile, ai)!=0)
    	{
        	out_str("Error in Importing File "+PathToFile);
        	return;
    	}
    	int j=Wks.AddCol();
    	if(j<0)
    	{
         	out_str("Worksheet Column Creation Error ...");
        	return;  		
    	}
    	int k=Wks.AddCol();
    	if(k<0)
    	{
         	out_str("Worksheet Column Creation Error ...");
        	return;  		
    	}   	
 		
    	Column colA, colB, colC, colD;
    	if(colA.Attach(Wks,0)==false || colB.Attach(Wks,1)==false || colC.Attach(Wks,j)==false || colD.Attach(Wks,k)==false)
    	{
          	out_str("Worksheet Column Adressing Error ...");
        	return;    		
    	}
    	
    	string strColA=colA.GetName();
    	string strColB=colB.GetName();
    	string strColC=colC.GetName();
    	string strColD=colD.GetName();
    	string strFormula="col("+strColB+")/col("+strColA+")";
    	
    	colC.SetFormula(strFormula,AU_AUTO);
    	colC.ExecuteFormula();
		string strFileName=GetFileName(PathToFile);
		StringArray strTokens;
		if(strFileName.GetTokens(strTokens,'=')!=3)
		{
			out_str("Cannot Extract Data from Filename "+PathToFile);	
		}
		string strChars(GetDecimalChar());
		strChars+="-0123456789";
		string strTokenR=strTokens[1];
		string strValueR=strTokenR.SpanIncluding(strChars);
		double R=atof(strValueR);
		string strTokenI=strTokens[2];
		string strValueI=strTokenI.SpanIncluding(strChars);
		double I=atof(strValueI);
		
		string strExpression = "Current*Current*Resistance/x";
		string strBeforeScript = "double Current="+strValueI+"; double Resistance="+strValueR+"; \r\n" + "range x=col("+strColC+");";
    	strFormula = strExpression + STR_COL_FORMULAR_SEPARATOR + strBeforeScript;
    	colD.SetFormula(strFormula, AU_AUTO);
    	colD.ExecuteFormula();
    	
    	// Setting the LongName, units and comments for the column attached to column object colA 
    	colA.SetLongName("Column A Long Name");
    	colA.SetComments("Column A Comments");
    	colA.SetUnits("Column A Units");   	
    	
    	
		out_str("File "+strFileName+" Imported");
	}
}

quote:

---

Originally posted by GaussianFit

quote:

---

Originally posted by 5*10

Hi GausianFit,

as usual there are plenty ways to do things.
If you have the filename stored in the longname of the workbook you can then extract the needed information out of the string as follows:

string strFileName$=page.longname$=;;
string strResistance$=strFileName.Between("R=","Ohm")$;
string strCurrent$=strFileName.Between("I=","uA.dat")$;
double dResistance=%(strResistance$);
double dCurrent=%(strCurrent$);
dCurrent=;
dResistance=;

This is a labtalk code. You can copy it to the script window and easily try. This is just a small part of the solution you need, but perhaps it can be helpful

5*10

---

Hi 5*10,

Thank you very much for the LabTalk method, as I said this is totally new to me. Could you show me how to use these variables, dCurrent and dResistance, to set the column values when using import wizard? I have pasted the script you wrote at the last page by checking the option "Save filter" and "Specify advanced filter options". Although it says "the following LabTalk code will be executed after a successful import", I have no clue how to get the column calculations done automatically.

---

quote:

---

Originally posted by Drbobshepherd

Allow me to answer for 5*10.

Delete the last 2 lines of the script; they are only intended to display your values when the script is executed in a command window. Instead, add the following lines:

wks.ncols=4; // Create 2 more columns.
col(C)=col(B)/col(A); // Equation 1.
col(D)=(dCurrent*1e-6)^2*dResistance/col(C); // Equation 2.

Then try adding labels, for example:

col(D)[L]$=Power; // Create Long Name label for col(D).
col(D)[U]$=watts; // Create Units label for col(D).

Grow your script. For example, you can have the script generate a plot using the plotxy command (look it up). The point is, you can automate as many processing steps as you like. If you have a lot of data to process, you may want to take the time to browse the help files and find the command(s) to process your data automatically.

Then, once you get the import filter working the way you want, you can import similar files in batches using the drag-and-drop method-- open your datafile directory in MSWindows, select all the datafiles you want to import and drag them over to the Origin workspace window. This is very efficient if you have many datafiles to process.

DrBobShepherd

---

quote:

---

Originally posted by rlewis

The following should do the job with appropriate modifications for setting meaninfull values for column long names comments units, etc...

---

quote:

---

Originally posted by rlewis

Very simple actually just add the following line

Wpg.SetLongName(strFileName);

before the line

out_str("File "+strFileName+" Imported");

---