I am going to read up on line input as you suggested.

Here's what I got so far

One question how do I tell if a file error occurs and then do something
and what would the common thing to do be?

Brian

LOCAL FN FileOpenProject
/*long if (files$(_FSSpecOpen,, "FSSpecOpen", fileSpec ) )
open "I",1, @fileSpec
while (eof(1) == 0)
line input #1, s
print s
wend
close
end if*/
dim filename$
dim s as str255
dim fileSpec as FSSpec
filename$ = FILES$(_FSSpecOpen,"bsgSTgm","Open Project file...",  
fileSpec)
open "I",1,@fileSpec
while (eof(1) == 0)
line input #1, s
print s
wend
close

END FN

On Oct 22, 2009, at 5:56 PM, Robert Covington wrote:

>
> dim s as str255
>
> or
>
> dim s$
>
> s is a string variable.
>
> Read up on Line Input
>
> rc
>
> On Oct 22, 2009, at 5:50 PM, Brian Heibert wrote:
>
>> Hi,
>>
>> I got the following errors...
>>
>> Error: Unknown statement in line 30 of Project.incl: 's'
>> 30: line input #1, s
>>
>> Error:  'while/wend' loop not completed in line 30 of Project.incl
>> 30: line input #1, s
>>
>> I think I didn't dim s or something like that
>> and I don't know what s is
>>
>> Here's the code...       what am I missing?
>>
>> Brian
>>
>>
>> LOCAL FN FileOpenProject
>> /*long if (files$(_FSSpecOpen,, "FSSpecOpen", fileSpec ) )
>> open "I",1, @fileSpec
>> while (eof(1) == 0)
>> line input #1, s
>> print s
>> wend
>> close
>> end if*/
>> dim filename$
>> dim fileSpec as FSSpec
>> filename$ = FILES$(_FSSpecOpen,"bsgSTgm","Open Project file...",  
>> fileSpec)
>> open "I",1,@fileSpec
>> while (eof(1) == 0)
>> line input #1, s
>> print s
>> wend
>> close
>>
>> END FN
>>
>> --
>> To unsubscribe, send ANY message to: futurebasic-unsubscribe@...
>>
>
> --
> To unsubscribe, send ANY message to: futurebasic-unsubscribe@...
>