XProfan

Deutsch

Michael
W.

Hier scheint "Print #" nicht richtig zu funktionieren.
Ich hätte erwartet, das hier auch die Zahl mit ausgegeben wird...
(bitte Pfad hinzufügen, wenn nötig)

Bei "Print" funktioniert es wie erwartet.

Kompilieren Markieren Separieren

' Append-Beispiel
Declare test% : test% = %IOResult' vorherige Fehler zurücksetzen
Declare Hugo$
Hugo$ = "Hier ist Hugo."
Assign #1,"TEST.DAT"
'Rewrite #1
Append #1

If %IOResult

    MessageBox("Kann Datei nicht öffnen!", "Fehler:", 16)
    'zum Testen hinzugefügt
    Rewrite #1
    Print #1,"Testdaten",56,Hugo$

Else

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

EndIf

Close #1
End

[OFFTOPIC]
Ich kann nicht einmal neue Themenbäume anlegen...

Die Überschrift sollte ein neuer Baum werden unter dem ich dann diesen Beitrag zufüge.
[/OFFTOPIC]

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

03.09.2015 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

RGH

Hallo,

ich werde mir das mal anschauen, aber es ist immer besser beim Print# (und auch beim Print) die Stringteile mit + zu verknüfen und numerische Werte mit Str$() umzuwandeln. Dann kann nichts schief gehen .... hoffe ich mal ...

Gruß
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

03.09.2015 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Michael
W.

Öhm, das ist das (erweiterte) Beispiel aus der Hilfe bei Append.

Übrigens ist dort die MessageBox falsch herum bestückt. Die ersten beiden Angaben müssen vertauscht werden.
Es kommt ja erst die Meldung und dann die Überschrift.

Also der Ersatz für die Hilfe:
<code>
Declare test% : test% = %IOResult ' vorherige Fehler zurücksetzen
Declare Hugo$
Hugo$ = "Hier ist Hugo."

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

If %IOResult
MessageBox("Kann Datei nicht öffnen!", "Fehler:", 16)
Else
Print #1,"Testdaten" +" "+ Str$(56) +" "+ Hugo$
EndIf
Close #1

End
</code>

Ja, damit klappt's

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

03.09.2015 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

H.Brill

Ich hätte da auch noch eine Frage wegen den neuen
Dateibefehlen (Put.....) :
Da steht in der Hilfe nichts dabei, ob mit Rewrite/Reset
oder mit OpenRW eine Datei geöffnet wird :

Kompilieren Markieren Separieren

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

Egal, ob mit OpenRW oder mit Rewrite geöffnet,
es wird nur "Hello World !!!" reingeschrieben.
Die Put-Befehle funktionieren so nicht. Es wird
nichts geschrieben. Einen Fehler gibt es auch nicht.

Mache ich da was falsch ? Jedenfalls gingen die
Put-Befehle in den Subscriptions - Versionen.
Da ich den Quellcode aber nicht mehr habe, weiß
ich jetzt nicht, ob ich damals mit Rewrite oder mit
OpenRW gearbeitet habe.

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.

03.09.2015 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

RGH

Das Kapitel über binäre Dateien (17.3) in der Hilfe hilft Dir da weiter:

Für die Put-Befehle muss die Datei binär geöffnet werden, also mit OpenRW.

Gruß
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

03.09.2015 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

H.Brill

Danke, funktioniert so.

03.09.2015 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren