Date: prev next · Thread: first prev next last
2024 Archives by date, by thread · List index



Hallo Guido,

nimm »Print«, dann ohne ". Bei »Write« werden immer " gesetzt.

»Input« öffnet eine Datei zum LESEN, »Output« zum ÜBER-SCHREIBEN und »Append« zum FORT-SCHREIBEN !

Steht alles in der LO-Hilfe !

Sub schreibwas
Dim Textdatei as String
Dim n as Integer

Textdatei=ConvertToURL("E:\TMP\MeineDatei.txt")
n  =  FreeFile()
'''''Open Textdatei For Append As #n
Open Textdatei For Output As #n
'''''Write #n, "Das ist Text."
Print #n, "Das ist Text 1."
Print #n, "Das ist Text 2."
Print #n, "Das ist Text 3."
Close #n
end sub

Grüße
Hans-Werner ;-))

------ Originalnachricht ------
Von "Guido Dischinger" <di-pr@posteo.de>
An users@de.libreoffice.org
Datum 01.03.2024 11:41:12
Betreff [de-users] Makro-Befehl "Write" schreibt unerwünschte Anführungszeichen

Hallo zusammen!

Mit einem Makro möchte ich Text (das sollen später mal Suchergebnisse sein) in eine Datei schreiben. Dazu 
habe ich im tollen Buch von Andrew Pitonyak (genauer: in der schönen Übersetzung von Volker Lenhardt) den 
Befehl "Write #n, String" gefunden und in folgendem Makro ausprobiert:

---
Sub schreibwas
Dim Textdatei as String
Dim n as Integer

Textdatei=ConvertToURL("/home/Benutzer/MeineDatei")
n  =  FreeFile()
Open Textdatei For Append As #n
Write #n, "Das ist Text."
Close #n
end sub
---

Wenn ich dieses Makro (in LibreOffice 7.6.4.1 unter Debian 12 Bookworm) laufen lasse, steht in 
MeineDatei der folgende Text:
        "Das ist ein Text."

Erwartet hätte ich das ohne Anführungszeichen:

        Das ist ein Text.

Wie kann man dem Write-Befehl abgewöhnen, die Anführungszeichen in die Datei zu schreiben?

(Problem am Rande: Warum führt es zu einem Laufzeitfehler beim Befehl "Close #n", wenn ich "For Input" statt 
"For Append" schreibe?)

Beste Grüße von
Guido

-- 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
--
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.