on 3/5/07 6:55 PM, Lennox Jacob at [EMAIL PROTECTED] 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
>
This should work, no matter how many lines you have:
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
Dim lines(-1) As String = Split(tis.ReadAll, EOL)
EditField1.Text = Join(lines, ", ") + "."
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives:
<http://support.realsoftware.com/listarchives/lists.html>
