Hallo Hans-Werner,
ich kann dir bestätigen, dass die Fehlermeldung kommt. Allerdings denke
ich, dass du da etwas falsch verstehst, meiner Meinung nach ist das #
nicht Bestandteil des Variablennamens, sondern nur ein Kürzel bei der
Deklaration. Wenn man den problematischen Befehl ohne # verwendet (Print
#KanalNr,DoubleVar1), wird die Datei ordentlich geschrieben.
Es kommt übrigens eine Warnmeldung, die den Wert der Variablen ausgibt,
die nicht aus deinem Code stammt, der bin ich nicht nachgegangen; da sie
zweimal kommt, also auch bei dem nicht beanstandeten Befehl, sollte das
eine andere Ursache haben.
Herzlichen Gruß
Gerhard
Am 21.08.2020 um 21:01 schrieb OoOHWHOoO:
Sub Print_DoubleVar_To_File
Dim Datei As String
Dim KanalNr As Integer
Dim DoubleVar1#
Dim DoubleVar2 As Double
DoubleVar1# = 0.123456789
DoubleVar2 = DoubleVar1#
Print DoubleVar1# ' OKAY
Print DoubleVar2 ' OKAY
Datei = "E:\TMP\HWH.txt" ' Gegebenenfalls anpassen !
KanalNr = Freefile
Open Datei For Output As #KanalNr
Print #KanalNr,DoubleVar2 ' OKAY
' Print #KanalNr,DoubleVar1# ' ERROR "Unzulässiger Wert oder
Datentyp.Datentypen unverträglich."
Close #KanalNr
End Sub
--
Liste abmelden mit E-Mail an: users+unsubscribe@de.libreoffice.org
Probleme? https://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: https://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: https://listarchives.libreoffice.org/de/users/
Datenschutzerklärung: https://www.documentfoundation.org/privacy
Context
Privacy Policy |
Impressum (Legal Info) |
Copyright information: Unless otherwise specified, all text and images
on this website are licensed under the
Creative Commons Attribution-Share Alike 3.0 License.
This does not include the source code of LibreOffice, which is
licensed under the Mozilla Public License (
MPLv2).
"LibreOffice" and "The Document Foundation" are
registered trademarks of their corresponding registered owners or are
in actual use as trademarks in one or more countries. Their respective
logos and icons are also subject to international copyright laws. Use
thereof is explained in our
trademark policy.