XProfan

Español

Michael
W.

Hier scheint "Print #" no correcto a trabajo.
Yo hätte esperado, que aquí auch el Zahl con ausgegeben se...
(Por favor, Pfad hinzufügen, si nötig)

En "Print" funktioniert lo como esperado.

Kompilieren Marca Separación

' Append-Ejemplo
Declarar test% : test% = %IOResult' vorherige Fehler zurücksetzen
Declarar Hugo$
Hugo$ = "Hier es Hugo."
Asignar #1,"TEST.DAT"
'Rewrite #1
Append #1

If %IOResult

    MessageBox("Kann Expediente no abierto!", "Fehler:", 16)
    'para Testen hinzugefügt
    Rewrite #1
    Imprimir #1,"Testdaten",56,Hugo$

Más

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

EndIf

Cerrar #1
End

[OFFTOPIC]
Puedo no una vez neue Themenbäume invertir...

El Überschrift debería una neuer Baum voluntad bajo el Yo entonces esta Contribución zufüge.
[/OFFTOPIC]

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

03.09.2015 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RGH

¡Hola,

Yo voluntad me veces anschauen, pero es siempre mejor beim Imprimir# (y beim Imprimir) el Stringteile con + a verknüfen y numerische Werte con Str$() umzuwandeln. Dann kann nichts torcido ir .... hoffe Yo veces ...

Saludo
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 Cita Zeilenweise Cita

Michael
W.

Öhm, el es el (erweiterte) Ejemplo de el Ayuda en Append.

Übrigens es hay el MessageBox falso herum bestückt. El ersten beiden Angaben necesario vertauscht voluntad.
Lo kommt sí sólo el Meldung y luego el Überschrift.

Also el Ersatz para el Ayuda:
<code>
Declarar test% : test% = %IOResult ' vorherige Fehler zurücksetzen
Declarar Hugo$
Hugo$ = "Hier es Hugo."

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

If %IOResult
MessageBox("Kann Expediente no abierto!", "Fehler:", 16)
Más
Imprimir #1,"Testdaten" +" "+ Str$(56) +" "+ Hugo$
EndIf
Cerrar #1

End
</code>

Sí, así klappt's

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

03.09.2015 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

H.Brill

Yo hätte como auch ni Cuestión wegen el neuen
Dateibefehlen (Put.....) :
Ahí está en el Ayuda nichts esta, si con Rewrite/Reset
oder con OpenRW una Expediente geöffnet se :

Kompilieren Marca Separación

Declarar Int z1, r
Cls
Asignar #1, $PROGDIR + "Zahlen.txt"
Rewrite #1
z1 = 10
putLong #1, z1
putWord #1, 20
putChar #1, "\$AFB27F"
Imprimir #1, "Hello World !!!"
Cerrar #1
r = %IOResult

If r

    Imprimir r

Más

    Imprimir "Fertig..."

EndIf

WaitKey
End

Egal, si con OpenRW oder con Rewrite geöffnet,
lo se sólo "Hello World !!!" reingeschrieben.
El Put-Befehle trabajo así no. Lo se
nichts geschrieben. Einen Fehler hay auch no.

Mache Yo como qué falso ? Jedenfalls gingen el
Put-Befehle en el Subscriptions - Versionen.
Desde que el Quellcode pero no mehr habe, weiß
Yo ahora no, si Yo damals con Rewrite oder con
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 Cita Zeilenweise Cita

RGH

Das Kapitel encima binäre Archivos (17.3) en el Ayuda hilft Usted como más:

Für el Put-Befehle muss el Expediente binär geöffnet voluntad, also con OpenRW.

Saludo
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 Cita Zeilenweise Cita

H.Brill

Gracias, funktioniert así.

03.09.2015 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita