Le 6 mars 07 à 01:10 Matin, Norman Palardy a écrit:
> 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, ", ")
If you may have more than 8 lines, you may adapt the code:
do
line = tis.readline
if line = "" then 'No more lines
Exit
end if
lines.append line
loop
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives:
<http://support.realsoftware.com/listarchives/lists.html>
