Das deutsche QBasic- und FreeBASIC-Forum

[pe-gdb]

in FB gibt es das Kommando: print using Formatstring; Variable
das funktioniert!
Aber gibt es eine Möglichkeit formatiert in eine Datei zu drucken?
z.B. print using #hdl;Formatstring; Variable - ???

[Jojo]

Schau dir mal FORMAT an, das tut fast dasselbe wie PRINT USING, mit dem Unterschied, dass es einen String zurückgibt, der natürlich auch in eine Datei geschrieben werden kann.
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.

[pe-gdb]

Vielen Dank für die rasche Antwort!

Und hier mein Versuch mit Format():
#include ONCE "vbcompat.bi"

dim shared as Integer fhdl,rec_i,annr_i
dim shared as String ls_s,name_s

rem Syntax: FORMAT[$](numerischer_Ausdruck, FormatString)
rem Typ: Funktion
rem Kategorie: Stringfunktionen
rem FORMAT wandelt einen numerischen Ausdruck anhand der angegebenen Formatierung in einen STRING um.
rem numerischer_Ausdruck' ist ein beliebiger Ausdruck, der als DOUBLE gehandhabt wird. Dies kann insbesondere auch eine Serial Number sein.
rem FormatString' ist ein String, der festlegt, welche Form die Ausgabe haben soll. Er wird in den unten stehenden Tabellen näher erläutert.
' d.h. offenbar nur zur formatierten Ausgabe von numerischen Werten gedacht

fhdl = FreeFile
if Open("D:\tmp\logFile.txt" AS #fhdl) <> 0 then
print
print "ERROR ! open 'D:\tmp\logFile.txt'"
END ' Progabbruch
End If

' Wertezuweisung
rec_i = 123
annr_i = 2003
name_s = "Peter Lustig"

' 1. Anzeige, ein schlichtes 'Print using ...'
' das ist ok! - nur müsste es das geben, um in Dateien zu schreiben
print using "### #### \ \"; rec_i; annr_i; name_s

' jetzt den Format-Befehl anwenden
Write #fhdl, "für Testzwecke"
ls_s = format(rec_i,"###") & Format(annr_i," ####") & " " & left(name_s+SPACE(15),15)
Write #fhdl, ls_s
Write #fhdl,"nächster Versuch"
Write #fhdl, format(rec_i,"###") & Format(annr_i," ####") & left(name_s+SPACE(15),15)

Close #fhdl
getkey:end
#############################################
und das ist das Ergebnis:
"
 für Testzwecke "
" 123 2003 Peter Lustig "
" nächster Versuch "
" 123 2003Peter Lustig "