On 2007-03-06, at 00:55, 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
>
>
Just an another try ...
dim f as folderitem DocumentsFolder.child("My tmp file")
dim LinesStr as string
if f <> nil and f.exists then
Dim tis as TextInputStram = f.OpenAsTextFile
if tis = nil then return
While not tis.EOF
LinesStr = LinesStr + tis.readLine + ","
Wend
tis = nil
LineStr = left(LineStr, len(LineStr -1) + "."
EditField1.Text = LineStr
end if ' nil and exists
Sven E
-----------------------
REALbasic 2007R1 OS X 10.4.8 Intel and 10.4.6 PPC
SEEdit Maxi THE XHTML EDITOR FOR MACINTOSH
http://www.seedit.info
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives:
<http://support.realsoftware.com/listarchives/lists.html>
