Le 12/03/2015 13:11, John Rose a écrit :
> On 12/03/15 11:38, Tobias Boege wrote:
>> On Thu, 12 Mar 2015, John Rose wrote:
>>> On 12/03/15 10:37, Tobias Boege wrote:
>>>> Public Sub Main()
>>>> Dim sPath As String = Temp$("with spaces")
>>>> Dim hFile As Stream
>>>> Dim sLine As String
>>>>
>>>> File.Save(sPath, "some string")
>>>>
>>>> Debug "Path =";; sPath
>>>> Debug "Exist =";; Exist(sPath)
>>>> Debug "Content ="
>>>> hFile = Open sPath For Input
>>>> For Each sLine In hFile.Lines
>>>> Debug " "; sLine
>>>> Next
>>>> Close #hFile
>>>> End
>>> I've tried that program and it didn't display anything in the Console
>>> window. I was not able to compile the attached Test app with Debug as
>>> when I tried to add the gb.debug component (by clicking its checkbox
>>> which did put an x in it) using Project Properties, it did not enable
>>> the OK button. When I closed the Project Properties window & reopened
>>> it, the checkbox was not marked with an x. So I put in Print statements
>>> and it did not even show their results on the Console window when I ran
>>> the Test app.
>>>
>> The attached file was a Gambas script. You could (and should) have run it
>> as-is. Your project is a GUI one where you blindly put the code in a Form's
>> class file. But my code had a Main() procedure which is already implemented
>> in the Form class. You have incorrectly overridden that implementation by
>> inserting my Main() procedure (which was made for a script or console
>> application).
>>
>>> BTW I think that the 'File or Directory does not exist'
>>> window appears because I have a 'Catch' followed by
>>> 'Message.Warning(ERROR.Text)' in the coding of the relevant Sub. Is it
>>> possible to show the line number when the Catch 'catches'? I've also
>>> tried putting Breakpoints in my app but that didn't help.
>> To clarify: what shows the error? A message box or a popup? Because you said
>> it was a popup (which I picture as a Balloon or tooltip-like window) and now
>> you conjecture your Message.Warning() call may be it. But if it was a popup,
>> as I picture it, it cannot be caused by a Message.Warning().
>>
>> You get the error line with Error.Where. You could also leave the Catch out
>> and let the IDE display the error by itself. The IDE is good enough at that.
>>
>> Regards,
>> Tobi
>>
> A better name for what I called a popup is a dialog window with just an
> Ok button. It is caused by the Message command, because when I comment
> out the Catch & Message lines in my app it does not appear. However,
> the IDE (by itself) does not display any error then. Using my previously
> quoted code, the 'plain out' file does not exist (though it is present
> in my home directory).
>
> Using the code below in the attached Test app when using the IDE, when I
> click the Run button, a popup appears stating 'File or Directory does
> not exist at line 34' which is 'hFile = Open sPath For Input'.
> Public Sub RunButton_Click()
> Dim sPath As String = User.Home &/ "plain out"
> Dim hFile As Stream
> Dim sLine As String
> Print "sPath='" & sPath & "'"
> Print "*******"
> Debug "Path =";; sPath
> Debug "Exist =";; Exist(sPath)
> Debug "Content ="
> hFile = Open sPath For Input
> For Each sLine In hFile.Lines
> Print sLine
> Debug " "; sLine
> Next
> Close #hFile
> End
>
>
> Therefore, I think that there is either a problem with using Debug->Run
> or commands such as 'Opening a filename containing spaces' when using
> the IDE. BTW I'm using Gambas 3.6.2 'supplied' by the Gambas Stable
> Launchpad Ubuntu ppa.
>
There is no problem with file names with spaces inside, or any other
character except '\x00'.
I would guess that the file on your disk is not really named
"plain[space]out"
Regards,
--
Benoît Minisini
------------------------------------------------------------------------------
Dive into the World of Parallel Programming The Go Parallel Website, sponsored
by Intel and developed in partnership with Slashdot Media, is your hub for all
things parallel software development, from weekly thought leadership blogs to
news, videos, case studies, tutorials and more. Take a look and join the
conversation now. http://goparallel.sourceforge.net/
_______________________________________________
Gambas-user mailing list
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user
