That would also work. But, as Lennox usually asked on the Getting Started list, I think he wanted a step-by-step solution (I may be wrong, though).
It's a shame the getting started list has disappeared: no one knows if the questions should be answered for someone new to RB (or programming). Le 6 mars 07 à 01:24 Matin, Tim Hare a écrit: > 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> _______________________________________________ Unsubscribe or switch delivery mode: <http://www.realsoftware.com/support/listmanager/> Search the archives: <http://support.realsoftware.com/listarchives/lists.html>
