All messages should be posted in plain text. HTML will be converted to attachments. The meditech-l web site is MTUsers.com ======================================
Hi Leslie, That is a great point. I have not run into any files yet with lines over 255 characters, so I do not have an answer for you in regards to that. If you do encounter that situation, I would love to hear the results. I think you can use the NPR Macro @Memory.read.line in place of @Memory.read.text. It requires two arguments: the Memory Buffer Handle, and the Maximum Length of characters to read. In this case, you would run it like this: @Memory.read.line(MEM,255)^TEXT @Memory.read.text removes the control characters, such as carraige returns and line feeds, but I don't think @Memory.read.line does that, so you would need to use the TEXT:0X syntax when assigning this variable to the /TEXT array. Thanks, Brian Schmit Sr. Programmer, Picis Direct: 781 557 3315 Fax: 781 557 3140 100 Quannapowitt Parkway Suite 405 Wakefield, MA 01880 [EMAIL PROTECTED] www.picis.com Please visit www.picis.com/meditech for additional information about our NPR Report Writing Trainings. The information in this email is confidential and may be legally privileged. It is intended solely for the addressee. Access or use by any other person to this internet email is not authorized and may be unlawful. If you are not the intended recipient, please delete or destroy this email. If you do not wish to receive future emails from the sender, please reply directly to this email requesting you be removed from any mailing list. -----Original Message----- From: Leslie Mann [mailto:[EMAIL PROTECTED] Sent: Wednesday, April 05, 2006 9:50 AM To: Brian Schmit Cc: [EMAIL PROTECTED]; [email protected]; [EMAIL PROTECTED] Subject: RE: [MEDITECH-L] RE: Can an NPR report read the contents of anASCIItext file from disk? (Client Server 5.5) Brian: What happens if you have a line of text greater than 255 chars? Haven't tested but I suspect that you would crash your session. I use a similar routine but I ensure that the input files always have line lengths less than 255. Les ________________________________________________ Leslie Mann Clinical Application Specialist Timmins and District Hospital Voice: 705-267-2131 x2147 Fax: 705-267-6321 [EMAIL PROTECTED] _________________________________________________ > > Hi Mitch, > > How about the following: > > @DELETE.TEXT.ARRAY, > [EMAIL PROTECTED]("C:\","*","")^FILE_.=.; > @Memory.allocate(1)^MEM, > @Memory.clear(MEM), > @Memory.beginning(MEM), > @Memory.load.file(MEM,FILE), > [EMAIL PROTECTED](MEM) @Memory.read.text(MEM)^TEXT, > IF{TEXT;" "}^/TEXT[-/TEXT[""]+1]}, > @Memory.free(MEM)}, > @CLEAN.UP > > DELETE.TEXT.ARRAY > ""^X, > DO{>/TEXT[X]^X ""^/TEXT[X]} > > CLEAN.UP > ""^FILE^MEM^TEXT > > The only modifications are in the DO loop. I have added the use of the NPR > Macro called @Memory.more. It should return a non-nil value if there is > anything more to read in the Memory buffer (even blank lines). I have also > added an IF statement so that a blank space is assigned to the /TEXT array if > there is no value in the local variable called TEXT. > > I have not had a chance to try this out, but I think it should work for you. > Please let me know if it doesn't. > > Thanks, > > Brian Schmit _______________________________________________ meditech-l mailing list [email protected] http://mtusers.com/mailman/listinfo/meditech-l
