How about dim s as string s = tis.ReadAll EditField10.Text = ReplaceAll(s, EndOfLine, ", ")
Tim > -----Original Message----- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] Behalf Of > Norman Palardy > Sent: Monday, March 05, 2007 4:11 PM > To: REALbasic NUG > Subject: Re: Help please: reading a temp files with varying > number of lines > > > > On Mar 05, 2007, at 4:55 PM, Lennox Jacob wrote: > > > Hello, > > > > I have this code which works well except that when there are less > > than 8 lines of text (sometimes the number of lines vary in the > > creation of the file) I would like to prevent the extra commas from > > coming up and I would like to have the full stop at the end. > > > > Kindly assist. > > Thanks. > > Lennox. > > > > Dim f as folderitem = DocumentsFolder.child("My Temp1 File") > > > > Dim tis as TextInputStream = f.OpenAsTextFile > > If tis is nil then > > //check f.LastErrorCode > > Return > > End if > > > > EditField10.text = tis.ReadLine + ", " + tis.ReadLine + ", " + > > tis.ReadLine + ", " + tis.ReadLine + ", " + tis.ReadLine + ", " + > > tis.ReadLine + ", " + tis.ReadLine + ", " + tis.ReadLine + ". " > > > > tis = nil //the file is closed when the object is destroyed > > The way you're doing it with all the readlines when you assign the > text does not give you much opportunity to do anything different > > You need to read in the lines and then join them together in 2 steps > instead of one like you currently have > Something like > > Dim f as folderitem = DocumentsFolder.child("My Temp1 File") > > Dim tis as TextInputStream = f.OpenAsTextFile > dim i as integer > dim line as string > dim lines(-1) as string > > If tis is nil then > //check f.LastErrorCode > Return > End if > > for i = 1 to 8 > line = tis.readline > if line <> "" then > lines.append line > end if > next > > EditField10.text = join(lines, ", ") > > _______________________________________________ > Unsubscribe or switch delivery mode: > <http://www.realsoftware.com/support/listmanager/> > > Search the archives: > <http://support.realsoftware.com/listarchives/lists.html> > > -- > No virus found in this incoming message. > Checked by AVG Free Edition. > Version: 7.5.446 / Virus Database: 268.18.7/711 - Release Date: > 3/5/2007 9:41 AM > -- No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.446 / Virus Database: 268.18.7/711 - Release Date: 3/5/2007 9:41 AM _______________________________________________ Unsubscribe or switch delivery mode: <http://www.realsoftware.com/support/listmanager/> Search the archives: <http://support.realsoftware.com/listarchives/lists.html>
