data loader for MINISOFT '.el1' files
#pragma rtGlobals=1 // Use modern global access method. #pragma version=1.2 //////////////////////// // Remarks: // Data loader for .el1 files, which were saved with the program 'MINISOFT V7.8' (http://www.greisinger.de/). // The binary file structure of the .el1 files has been worked out empirically (because the // company didn't want to reveal any details of their binary format), so the structure // may change in fututre versions of the program. Additionally be aware of bugs. // The data loader reads out the data, the time scaling, and some parameters which are put in the wave note. //////////////////////// Menu "Load Waves" "Load MiniSoft File...", LoadMiniSoftFile() end function LoadMiniSoftFile() variable refnum open/z=2/m="Looking for a MiniSoft file"/r/t=".el1" refnum if(V_flag==-1) return 0 endif fstatus refnum string S_filenameLocal=ReplaceString(".el1",S_filename,"") variable V_numDataPnts,V_timeDelta,V_timeStart,V_startComment,V_commentLen variable V_startWindowTitle,V_windowTitleLen,V_tmp,V_measureMin,V_measureMax variable V_version,V_alarmMin,V_alarmMax,V_alarmDelay string S_comment,S_windowTitle,S_identification fsetpos refnum,99; fbinread/b=3/f=3 refnum,V_startComment V_startComment-=1 // in Igor, first byte is byte #0!!! fsetpos refnum,1007; fbinread/b=3/f=5 refnum,V_version fsetpos refnum,1111; fbinread/b=3/f=5 refnum,V_measureMin fsetpos refnum,1119; fbinread/b=3/f=5 refnum,V_measureMax fsetpos refnum,1503; fbinread/b=3/f=5 refnum,V_alarmMin fsetpos refnum,1511; fbinread/b=3/f=5 refnum,V_alarmMax fsetpos refnum,1519; fbinread/b=3/f=3 refnum,V_alarmDelay fsetpos refnum,2003; fbinread/b=3/f=3 refnum,V_numDataPnts fsetpos refnum,2011; fbinread/b=3/f=3 refnum,V_timeDelta fsetpos refnum,3999; fbinread/b=3/f=5 refnum,V_timeStart V_timeStart=V_timeStart*24*60*60-126313200 // Conversion into s, offset subtraction make/o/n=(V_numDataPnts) $S_filenameLocal wave w=$S_filenameLocal fbinread/b=3/f=5 refnum,w // data start @ 4007 setscale/p x V_timeStart,V_timeDelta,"dat" w S_identification=padstring("",39,0x20) fsetpos refnum,2103; fbinread refnum,S_identification S_identification=replacestring(num2char(32),S_identification,"") fsetpos refnum,V_startComment do fbinread/f=1 refnum,V_tmp while(V_tmp!=4) fstatus refnum; V_commentLen=V_filePos-V_startComment-1 do fbinread/f=1 refnum,V_tmp while(V_tmp!=0) fstatus refnum; V_startWindowTitle=V_filePos do fbinread/f=1 refnum,V_tmp while(V_tmp!=4) fstatus refnum; V_windowTitleLen=V_filePos-V_startWindowTitle-1 S_comment=padstring("",V_commentLen,0x20) fsetpos refnum,V_startComment; fbinread refnum,S_comment S_windowTitle=padstring("",V_windowTitleLen,0x20) fsetpos refnum,V_startWindowTitle; fbinread refnum,S_windowTitle S_comment=replacestring(";",S_comment,"") S_windowTitle=replacestring(";",S_windowTitle,"") S_comment=replacestring(num2char(10),S_comment,"") note/nocr w,"identification:"+S_identification+";" note/nocr w,"window title:"+S_windowTitle+";" note/nocr w,"comment:"+S_comment+";" note/nocr w,"version:"+num2str(V_version)+";" note/nocr w,"measure minimum:"+num2str(V_measureMin)+";" note/nocr w,"measure maximum:"+num2str(V_measureMax)+";" note/nocr w,"alarm minimum:"+num2str(V_alarmMin)+";" note/nocr w,"alarm maximum:"+num2str(V_alarmMax)+";" note/nocr w,"alarm delay/min:"+num2str(V_alarmDelay)+";" if(V_version!=74&&V_version!=73) DoAlert 0,"MiniLog version of file "+S_filenameLocal+".el1 is not 7.3 or 7.4 (with which this file loader has been tested).\rPlease check the data carefully for reliability!" endif close refnum end
Forum
Support
Gallery
Igor Pro 10
Learn More
Igor XOP Toolkit
Learn More
Igor NIDAQ Tools MX
Learn More
--
J. J. Weimer
Chemistry / Chemical & Materials Engineering, UAH
July 8, 2008 at 12:21 pm - Permalink