On 12/03/15 12:19, Benoît Minisini wrote:
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
On Thu, 12 Mar 2015, Tobias Boege wrote:
[...] attached script [...]
This time!
--
There's an old saying: Don't change anything... ever! -- Mr. Monk
#!/usr/bin/gbs3
Public Sub Main()
Dim sPath As String = Temp$(with spaces)
Dim hFile As Stream
Dim sLine As String
File.Save(sPath,
I have coding of:
sPlainPath = User.Home / plain out
Print PlainPath= sPlainPath
If Exist(sPlainPath) Then
Print sPlainPath exists
Else
Print sPlainPath does not exist
Endif
hPlain = Open sPlainPath For Input
While Not Eof(hPlain)
Line Input #hPlain, sLine
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
On Thu, 12 Mar 2015, John Rose wrote:
I have coding of:
sPlainPath = User.Home / plain out
Print PlainPath= sPlainPath
If Exist(sPlainPath) Then
Print sPlainPath exists
Else
Print sPlainPath does not exist
Endif
hPlain = Open sPlainPath For Input
While Not
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
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
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