Makro Basic - Ausgabe in Datei - DoubleVariable via Typ-Deklarationszeichen # - Makro-Fehler-Abbruch

de-users
#1

Hallo Gerhard,

für den BUG-Report hatte ich jetzt eben noch mit der englischen Variante von LO 7.0.0.3 (x64) getestet, damit ich die Fehlermeldung in Englisch erhalte und auch das Makro aus der LO-Hilfe für "Open" kopiert und entsprechend modifiziert.

In diesem Makro steht Print #iNumber, "This is a line of text" . Ich ersetzte die Zeichenkette "This is a line of text" durch "#", startete das Makro und "rieb mir verwundert die Augen" - KEINE FEHLERMELDUNG !

Das Leerzeichen nach dem "," reichte schon aus !!!

In der Syntax-Beschreibung ist aber kein Leerzeichen nach dem "," vorgeschrieben

Print [#filenum,] expression1[{;|,} [Spc(number As Integer);] [Tab(pos As Integer);] [expression2[...]]

und in anderen Konstellationen ohne weiteres "#" außer bei dem "#iNumber" auch nicht notwendig.

So kann ich den Bug-Report mit dem nachfolgenden Makro noch etwas präziser formulieren:

Sub ExampleWorkWithAFile
Dim iNumber As Integer
Dim aFile As String
aFile = "c:\data.txt"
iNumber = Freefile
Open aFile For Output As #iNumber
Print #iNumber, "#" ' O.K.
'Print #iNumber,"#" ' ERROR
Print #iNumber, "A#B" ' O.K.
'Print #iNumber,"A#B" ' ERROR
Print #iNumber, "AB" ' O.K
Print #iNumber,"AB" ' O.K
Close #iNumber
End Sub

Hier die umfangreichere Variante, falls Du nochmals testen möchtest:

Sub ExampleWorkWithAFile
Dim iNumber As Integer
Dim aFile As String
Dim VarDouble#
Dim VarSingle!
VarDouble# = 0.123123
VarSingle! = 0.123
aFile = "E:\TMP\Output.txt"
iNumber = Freefile
Open aFile For Output As #iNumber
Print #iNumber, VarDouble# ' O.K.
'Print #iNumber,VarDouble# ' ERROR
Print #iNumber, "#" ' O.K.
'Print #iNumber,"#" ' ERROR
Print #iNumber, "A#B" ' O.K.
'Print #iNumber,"A#B" ' ERROR
Print #iNumber,VarSingle! ' O.K.
Close #iNumber
End Sub

Viele Grüße
Hans-Werner :-))