You might not find such a book. I'd suggest starting with the problem
you posed. It's pretty basic, and you should study it carefully.
Charles Yeomans
On Mar 5, 2007, at 7:55 PM, Lennox Jacob wrote:
> Thanks all,
> I do appreciate all the inputs, and I will go through them all.
>
> Could someone recommend a book for BASIC (the language, not
> RealBasic), I already have RealBasic The Definitive Guide but I
> need something more simple than that.
>
> Thanks.
>
> Lennox
>
> Jim Wagner <[EMAIL PROTECTED]> wrote: The dim lines(-1) as string
> defines an empty array with NO elements.
>
> Jim
>
> On Mar 5, 2007, at 4:40 PM, Lennox Jacob wrote:
>
>> Thankks Norman,
>> Works great.
>>
>> I used
>> Dim S as string
>> S = join(lines, ", ")
>> EditField10.text = s + "."
>> and I got the full stop at the end
>>
>> One part of the code I didn't understand though ...
>>
>> dim lines(-1) as string
>> I see it comes in here
>> lines.append line
>> But how does that work?
>>
>> Thanks again Norman.
>> Lennox.
>>
>>
>>
>> Norman Palardy wrote:
>> 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:
>>
>>
>> Search the archives:
>>
>>
>>
>>
>> ---------------------------------
>> Bored stiff? Loosen up...
>> Download and play hundreds of games for free on Yahoo! Games.
>> _______________________________________________
>> Unsubscribe or switch delivery mode:
>>
>>
>> Search the archives:
>>
>>
>
> _______________________________________________
> Unsubscribe or switch delivery mode:
>
>
> Search the archives:
>
>
>
>
> ---------------------------------
> Everyone is raving about the all-new Yahoo! Mail beta.
> _______________________________________________
> 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>
