XProfan

Français

qui Dossier text.txt voudrais je byteweise auslesen et ensuite devoir qui données comment unten comme Textdatei hergestellt bzw gesetzt volonté.
je voudrais aus qui Bytedatei Datazeilen erstellen.
comme erstes qui Longueur et ensuite qui Werte.

avec Contribution voudrais je comme erstes abfragen :
1. nom qui Dossier qui lire wird
2. Datazeilenanfang

1000 DATA 22
1010 DATA 169,32,133,250,169,3,133,251,160,0,
1020 DATA 177,250,168,177,250,32,237,253,136,208,
1030 DATA 248,96,

text.txt	1 kB

Hochgeladen:	08.05.2009

Downloadcounter:
		Download

08.05.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

- page 1 -

comment erfrage je LOF, welches oui dans Profan pas gibt?

mfg

08.05.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

fileSize

, getFileSize

08.05.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

si je une Namen eingebe qui faux ist comme Contribution zum Einlesen, devrait cela Programme eigentlich finissez volonté bzw pour waitkey springen. Tut es mais pas, mais allez plus, wohin Je l' Ausgabenamen eingeben peux.

Woran liegt cela?

mfg
Kompilieren Marque Séparation

declare a%, data_laenge%, data_anfang%,datei_laenge%,name_in$,name_out$
Window 20,20-400,400
Print Dateiname_in : ;
input name_in$
Assign #1,name_in$
OpenRW #1

If %IOResult

    Print Datei kann nicht geöffnet werden.

else

    Print Dateiname_out: ;
    input name_out$
    datei_laenge% = GetFileSize(#1)
    Assign #2,name_out$
    Rewrite #2
    data_anfang%=1000
    print #2,str$(data_anfang%); DATA ;datei_laenge%
    data_laenge%=0
    data_anfang%=data_anfang%+10
    print #2,str$(data_anfang%); DATA ;

    WhileLoop datei_laenge%

        if data_laenge% < 10

            a%=GetByte(#1)
            print #2,str$(a%);,;

        else

            data_laenge%=0
            data_anfang%=data_anfang%+10
            print #2
            print #2,str$(data_anfang%); DATA ;
            a%=GetByte(#1)
            print #2,str$(a%);,;

        endif

        data_laenge%=data_laenge%+1

    EndWhile

    Close #1
    Close #2

endif

waitkey
./../funktionsreferenzen/XProfan/end/'>end

08.05.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Paul
Glatz

Du musst dem Programme aussi dire dass es finissons soll!

08.05.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

- page 2 -

Si %IOResult
Imprimer Dossier peux pas ouvert volonté.
d'autre
.....
.....
endif
waitkey

si qui Dossier pas voilà devrait es eigentlich pour Waitkey springen et pas derrière D'autre den 2. Namen einlesen.

08.05.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

E.T.

Lt. Voir le texte source 2 Posts auparavant:

...
INPUT ... Fragt den Namen qui Dossier ab (z.B. xyz.ab)
APPEND #1,... Weist Dossier xyz.ab qui Dateinummer 1 trop
OPENRW #1 ... Öffnet ou bien erzeugt chez pas vorhandensein Dossier numéro 1 (xyz.ab) siehe Aider
...

Ist m.E. korrekt, %ioresult wird pas gesetzt (si Dossier ouvert ou bien erzeugt volonté peux), et folglich wird trop ...d'autre gesprungen .

si du une bereits existierende Dossier verwenden veux, empfehle je @LoadFile$(S1,S2) , ou bien mittels @FileExists(S) überprüfen, si qui Dossier voilà

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

09.05.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jup, eindeutige Aussage. Haut wunderbar hin.

qui Textverarbeitung dans Profan ist allererst gewöhnungsbedürftig à dem Standart.

mfg

09.05.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

RGH

2peter Bierbach, Beitrag=52245, Zeitpunkt=09.05.2009

Jup, eindeutige Aussage. Haut wunderbar hin.

qui Textverarbeitung dans Profan ist allererst gewöhnungsbedürftig à dem Standart.

mfg

vis-à-vis welchem Standard? quoi qui Dateibearbeitung betrifft, lehnt sich XProfan très eng à den Pascal-Standard (TurboPascal, ObjectPascal, Delphi, etc.) à.

Salut
Roland

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.05.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

TurboPascal, ObjectPascal

tout autor oui.

si du eof drin la hâte, pourquoi prends du pas lof avec rein....usw.

mfg

09.05.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

E.T.

...si je maintenant so drüber nachdenke...
??? quoi hat Bytes einlesen avec Textverarbeiung trop 1faire ???
si je une reine Text-Dossier einlesen veux (z.B. so une Art .ini, Votre .txt ist oui nix d'autre), ensuite mach je cela toujours zeilenweise, pas Byte pour Byte

...

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

10.05.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Dietmar
Horn

cela J'ai eu mich aussi juste gefragt. mais weil quelqu'un offensichtlich encore pas la fois avec dem xprofanen Assign, Rewrite, Append, usw. umzugehen vermag, J'ai eu mir un Antwort-Posting bisher verkniffen ...

Salut
Dietmar

Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

10.05.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Dietmar je merk tu as den Sachverstand pas en supplément , 40 jahre prägen un.

j'ai Apple IIe et Plus4 ,qui je dans Basic programmiere. Weiterhin habe je une guten Assembler (6502) avec dem je kleine Asm-Routinen schreibe et qui voudrais je comme Datazeilen einlesen et ensuite de Basic des Apple IIe ou bien Plus4 avec Call appel.

quoi pouvoir eh bien mon Programme Dietmar, es pouvoir folgendes :
j'écris cela ASM-Programme :
Kompilieren Marque Séparation

!to a4scrcp-pl.prg,plain
*=24576
JMP	screen_copy
SCREEN2  = 216
SCREEN6  = 218
BLOECKE  = 32
screen_copy:
lda #$00
sta SCREEN2
lda #$20
sta SCREEN2+1
lda #$00
sta SCREEN6
lda #$40
sta SCREEN6+1
ldx #BLOECKE
ldy #$00
schleife  lda (SCREEN2),y
sta (SCREEN6), Y
iny
bne schleife
inc SCREEN2+1
inc SCREEN6+1
dex
bne schleife
rts

ensuite wird es compilé et es entsteht une suis-Dossier.
cet suis-Dossier wandle je maintenant avec dem Programme um dans un Textdatei, qui ensuite so aussieht :
Kompilieren Marque Séparation

1000 DATA 38
1010 DATA 76,3,96,169,0,133,216,169,32,133,
1020 DATA 217,169,0,133,218,169,64,133,219,162,
1030 DATA 32,160,0,177,216,145,218,200,208,249,
1040 DATA 230,217,230,219,202,208,242,96,

et eh wunder, maintenant hänge je qui Dossier à cela Basic, lese qui 1. numéro un, qui qui länge vorgibt et ensuite qui anderen Werte. et schwupps habe je mon données pour une Basicprogrammierer aufbereitet.

la hâte du cela verstanden comme Leerer ou bien pas, Dietmar?

c'est incidemment cela Profanprogram:
Kompilieren Marque Séparation

declare a%, data_laenge%, data_anfang%,datei_laenge%,name_in$,name_out$
Fenêtre 20,20-400,400
Imprimer Dateiname_in : ;
input name_in$

si FileExists(name_in$)=0

    Imprimer allez nisch...

d'autre

    Assign #1,name_in$
    OpenRW #1
    datei_laenge% = GetFileSize(#1)
    Imprimer Dateiname_out: ;
    input name_out$
    Assign #2,name_out$
    Rewrite #2
    data_anfang%=1000
    imprimer #2,str$(data_anfang%); DATA ;datei_laenge%
    data_laenge%=0
    data_anfang%=data_anfang%+10
    imprimer #2,str$(data_anfang%); DATA ;

    WhileLoop datei_laenge%

        si data_laenge% < 10

            a%=GetByte(#1)
            imprimer #2,str$(en%);,;

        d'autre

            data_laenge%=0
            data_anfang%=data_anfang%+10
            imprimer #2
            imprimer #2,str$(data_anfang%); DATA ;
            a%=GetByte(#1)
            imprimer #2,str$(en%);,;

        endif

        data_laenge%=data_laenge%+1

    Endwhile

    Fermer #1
    Fermer #2
    imprimer fertisch...

endif

waitkey
end