All Forums  Origin Forum  Origin Forum  How to delete data when use "win -c" command?

Note: You must be registered in order to post a reply.
To register, click here. Registration is FREE!

Screensize: 640 x 480 800 x 600 1024 x 768 1280 x 1024 UserName: Password: Anti-Spam Code: Format Mode: Basic  Help  Prompt  Format: Font Andale Mono Arial Arial Black Book Antiqua Century Gothic Comic Sans MS Courier New Georgia Impact Lucida Console Script MT Bold Stencil Tahoma Times New Roman Trebuchet MS Verdana   Size 1 2 3 4 5 6   Color Black Red Yellow Pink Green Orange Purple Blue Beige Brown Teal Navy Maroon LimeGreen Message: * HTML is OFF * Forum Code is ON Smilies [quote][i]Originally posted by tantiger[/i] [br]I have a big problem here. I used a script to import many ascii files at one time, it works fine. However, when I check the OPJ file size, I reallized that all the closed windows are still saved as the file is quite large. I can use "list s" to see all of them and after I delete them, the OPJ file size decreased dramatically. Is there any way of delete those temporary worksheets during importing? the scripts as follows: %L="F:\Data\DSC"; win -t wks Origin; %W=%H; %W!wks.joinmode=0; // Set %W worksheet to append mode delete %(%W,2); delete %(%W,1); FDLOG.DlgName$="Import DSC/DTA Files (TA Format)"; // Title Bar text FDLog.CheckName$="DTA Files (Please Uncheck for DSC files!)"; //FDLog.Message$="DTA"; // Comment text FDLog.CheckStatus=0; FDLog.ShowComment=0; FDLog.path$= %L; FDLog.numtypes=3; FDLog.type1$=[TXT files]*.TXT; FDLog.type2$=[DAT files]*.DAT; FDLog.type3$=[All files]*.*; FDLog.defType=1; FDLog.multiOpen.sort=1; // Sort only Groups selected! If(FDLog.MultiOpen()!=0/0) { Loop(mmm,1,FDLog.MultiOpen.Count) { newcol=%W!wks.ncols; FDLog.Get(A, mmm); win -t wks origin wks$(mmm); open -w %A; %T=%H; #!type "File #$(mmm) - %A"; %W!wks.join(%T); delete %(%W,$(newcol+1)); win -c %T; fnpos=0; pathlength=%[%A]; For(ijk=pathlength; ijk>0; ijk--) { If ("%[%A,ijk:ijk]"=="\") { fnpos=ijk; //position of "\" ijk=-10; //end condition }; }; %B=%[%A,fnpos+1:pathlength-4]; %A=%[%Z,@7];%A=%[%A,"m"];%A=%[%A,>"e"]; #!Type "Name = %B Size = %A"; //win -a %W; %W!wks.col$(newcol+1).type=4; %W!wks.col$(newcol+1).label$="Temp,K"; %(%W,newcol+1)+=273.15; //col($(newcol+1))+=273.15; %W!wks.col$(newcol+2).label$="%B"; //col($(newcol+2))/=%A; %(%W,newcol+2)/=%A; } } %W!wks.labels(); #!type "All file imported sucessfully."; del -v mmm; work -s 0 0 0 0; if(!FDLog.checkstatus) { work -p 200 DSC; return; } else work -p 200 DTA; Return; [/quote]   Check here to include your profile signature. Check here to subscribe to this topic.