Das deutsche QBasic- und FreeBASIC-Forum

[zwei_finger_tippy]

Folgendes Problem tauchte bei der Umsetzung in FB bei
einem mit OpenOffice erstellten Basic-Macros auf.
Eine Datei soll zeilenweise geschrieben werden,
nur eben ohne die Gänsefüsschen am Anfang und Ende
der Zeile.

Beispiel FB-Manual entnommen

Code
'' examples/manual/fileio/write.bas
'' --------

Const filename As String = "file.txt"

Dim filenum As Integer = FreeFile()
If 0 <> Open(filename, For Output, As filenum) Then
Print "error opening " & filename & " for output."
End -1
End If

rem Die Umlaute werden nicht benötigt

Dim i As String = "Speichern in Datei "
Dim d As String = "nur mit "
Dim s As String = "Gänsefüsschen möglich ?"

Write #filenum, "Text in Gänsefüsschen"
Write #filenum,
Write #filenum, i + d + s

sleep

/Code

Dateiinhalt

"Text in Gänsefüsschen"

"Speichern in Datei nur mit Gänsefüsschen möglich ?"


Die bisherige Lösung ist, Textverarbeitung aufrufen,
" suchen , durch nichts ersetzen, Datei speichern.
Für Programmierer sicher gewöhnungsbedürftig.

[nemored]

WRITE schreibt mit Gänsefüßchen, PRINT ohne.
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1.

[zwei_finger_tippy]

Ausprobiert, es geht !!
Vielen Dank für die schnelle Hilfe.Ich hab schon versucht,
zuerst die eingebaute Hilfe zu lesen oder im Forum
geblättert, aber ohne Erfolg.Auf diese einfache Idee wäre
ich wohl auch nicht so schnell gekommen, eben weils bisher
in irgendeiner Form immer write oder writestring war.

[28398]

Hier gibt es übrigens eine einigermaßen bis ziemlich aktuelle Befehlsreferenz