The Origin Forum

File Exchange

Try Origin for Free

The Origin Forum

All Forums

Origin Forum for Programming

LabTalk Forum

Insert string and new line at begin of file

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

Screensize:

UserName:

Password:

Anti-Spam Code:

Format Mode:

Format:

Message:

* HTML is OFF
* Forum Code is ON

Smilies

Check here to include your profile signature.
Check here to subscribe to this topic.

T O P I C R E V I E W
peter.cook	Posted - 11/12/2003 : 08:53:34 AM HI, I'd like to insert a string as a new line to a text file but can't find a way to do this using the fum eg Name1 Name2 1 25 2 26 saved as a text file. I would like to add a string as a new line to end up with eg Name_of_test Name1 Name2 1 25 2 26 I believe file utilities can't insert a new line at the beginning. I have tried something along the lines of : nn=file.open(c:\temp\pete.dat,2); file.setpos(0,nn); file.lread(Z); // reads first row file.setpos(0,nn); file.lwrite("Name_of_test"); file.setpos(12,nn); file.twrite(Z); file.close(); but not getting anywhere... Any help would be appreciated. The original problem was to save a worksheet with column labels as headers and then to insert the string (nameoftest) at the top of the file ie single column on first line. Cheers, pete
4 L A T E S T R E P L I E S (Newest First)
peter.cook	Posted - 11/20/2003 : 07:56:32 AM Hi Ruthven, Thanks for this...I'll work on it. Cheers, pete
rlewis	Posted - 11/14/2003 : 3:52:42 PM Though not particularly effecient the following OriginC function should do what you want in Origin 7.0SR4 and later. To use it simply compile and link call it from LabTalk using something like %P=Line Text to insert;//Any LT string variable other than %Z will do InsPosn=0;// set to insert at any line you like (zero offset) InsertLineInFile(%P,insPosn); // You can then navigate to and select the file to be modified and the function will create a modified version of "Filename" called "Copy#_Filename" in the same directory.. It may take a while if the file is very long ... bool InsertLineInFile(string LineToInsert, int LineNumber) { if (FDLOG_LT_init()) { LabTalk.FDLOG.numTypes=1; LabTalk.FDLOG.type1$="[All Files]."; LabTalk.FDLOG.Dlgname$="Select File to be Modified"; LT_set_str("%Z",""); LabTalk.FDLOG.Open("Z"); char szBuffer[MAXFULLPATH]; LT_get_str("%Z",szBuffer,MAXFULLPATH); string PathToFile=LabTalk.FDLOG.Path$+szBuffer; if(PathToFile.IsFile()) { int i=0; string strTemp, PathToNewFile=""; do { i++; strTemp.Format("%d",i); PathToNewFile=LabTalk.FDLOG.Path$+"Copy"+strTemp+"_"+szBuffer; } while(PathToNewFile.IsFile()); stdioFile InStream, OutStream; i=0; string LineFromFile; bool LineInsertFlag=false; if(InStream.Open(PathToFile, file::modeRead) && OutStream.Open(PathToNewFile,file::modeCreate \| file::modeWrite)) { while(InStream.ReadString(LineFromFile)) { if(i==LineNumber) { OutStream.WriteString(LineToInsert); LineInsertFlag=true; } OutStream.WriteString(LineFromFile); i++; } if(!LineInsertFlag) { OutStream.WriteString(LineFromFile); } InStream.Close(); OutStream.Close(); SetDataDisplayText("Mission Accomplished"); return (true); } } } SetDataDisplayText("Error Return"); return (false); }
peter.cook	Posted - 11/13/2003 : 05:13:16 AM Hi Mike, Thanks for reply. Nice to know ~ limits for %Z. The code crashes out at the step file.twrite(Z) - any ideas? Yep, maybe Origin C later but my C skills don't allow so I'll need to get some assist. Cheers, Pete
Mike Buess	Posted - 11/12/2003 : 7:52:30 PM Hi Pete, I think you're right that FUM cannot insert a line in a file. If your file is less than 8KB (the approximate # of characters that %Z will hold) you could try something like this... file.open(c:\temp\pete.dat,2) nn=file.size(); file.cread(Z,nn); // read entire file into %Z file.setpos(0); file.lwrite("Name_of_test"); // put Name_of_test at the top file.twrite(Z); // append %Z file.close(); If your file is too large you'll probably need to start a new file with Name_of_test, copy pete.dat a line at a time to the new file and finally replace pete.dat with the new file. The line-by-line copying is apt to take some time and you'd probably be better off seeking an Origin C solution. But first you might try this simple DOS method... file -c "c:\temp\pete.dat" "c:\temp\temp.tmp"; // make copy of file run -e cmd.exe /C echo Name_of_test > "c:\temp\pete.dat"; // overwrite original with the line Name_of_test sec -p 0.1; // wait for DOS command to complete run -e cmd.exe /C type "c:\temp\temp.tmp" >> "c:\temp\pete.dat"; // append original contents I've assumed that you have an NT OS (NT4, Win2k, WinXP). If your OS is Win9x use command.com instead of cmd.exe in the run commands. Mike Buess Origin WebRing Member Edited by - Mike Buess on 11/12/2003 7:53:24 PM Edited by - Mike Buess on 11/12/2003 7:54:21 PM

The Origin Forum

Snitz Forums 2000