XProfan

English

Michael
W.

here shining "Print #" not correctly. To functions.
I had expects, that here too The number with outputted becomes...
(Please way add, if necessary)

with "Print" functions it How expects.

Compile Mark Separation

' Append-example
Declare Test% : Test% = %IOResult' previous Error zurücksetzen
Declare Hugo$
Hugo$ = "Hier is Hugo."
Assign #1,"TEST.DAT"
'Rewrite #1
Append #1

If %IOResult

    MessageBox("Kann File not open!", "Error:", 16)
    'to that testing added
    Rewrite #1
    Print #1,"Testdaten",56,Hugo$

Else

    Print #1,"Testdaten",56,Hugo$

EndIf

Close #1
End

[OFFTOPIC]
I can't once new Themenbäume lay out...

The Headline ought to one new tree go under the I then this Posting zufüge.
[/OFFTOPIC]

System: Windows 8/10, XProfan X4
Programmieren, das spannendste Detektivspiel der Welt.

09/03/15 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

RGH

Hi,

i'll me the time look at, but its always rather at Print# (and at Print) The Stringteile with + To verknüfen and numerische values with Str$() umzuwandeln. then can nothing schief weg .... hope I time ...

Greeting
Roland

XProfan X2
Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

09/03/15 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Michael
W.

Öhm, this is the (erweiterte) example from the Help Append.

Übrigens is there The MessageBox wrong around equips. the first both indicated must vertauscht go.
it comes Yes first The Message and then The Headline.

means the Substitute for The Help:
<code>
Declare Test% : Test% = %IOResult ' previous Error zurücksetzen
Declare Hugo$
Hugo$ = "Hier is Hugo."

Assign #1,"TEST.DAT"
Append #1

If %IOResult
MessageBox("Kann File not open!", "Error:", 16)
Else
Print #1,"Testdaten" +" "+ Str$(56) +" "+ Hugo$
EndIf
Close #1

End
</code>

Yes, so klappt's

System: Windows 8/10, XProfan X4
Programmieren, das spannendste Detektivspiel der Welt.

09/03/15 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

H.Brill

I had there too another question because of whom new
Dateibefehlen (Put.....) :
there standing in the Help nothing thereby, whether with Rewrite/Reset
or with OpenRW a File opened becomes :

Compile Mark Separation

Declare Int z1, r
Cls
Assign #1, $PROGDIR + "Zahlen.txt"
Rewrite #1
z1 = 10
putLong #1, z1
putWord #1, 20
putChar #1, "\$AFB27F"
Print #1, "Hello World !!!"
Close #1
r = %IOResult

If r

    Print r

Else

    Print "Fertig..."

EndIf

WaitKey
End

alike, whether with OpenRW or with Rewrite opened,
it'll only "Hello World !!!" reingeschrieben.
The Put-command functions so not. it'll
nothing written. a Error there neither.

make I there what wrong ? anyway went The
Put-Commands in whom Subscriptions - versions.
Since I whom Source but not any more have, white
I now not, whether I then with Rewrite or with
OpenRW worked have.

Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.

Was die Borg können, können wir schon lange.

09/03/15 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

RGH

the chapter over binäre Files (17.3) in the Help helps you there moreover:

for the Put-command must The File binary opened go, means with OpenRW.

Greeting
Roland

XProfan X2
Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

09/03/15 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

H.Brill

thanks, functions so.

09/03/15 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote