XProfan

English

The File Text.txt would like I byteweise read and then should The data How under as Textdatei manufactured or staid go.
i want from the Bytedatei Datazeilen create.
first thing The length and then The values.

with Input would like I first thing inquire :
1. name the File The read becomes
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:	05/08/09

Downloadcounter:
		Download

05/08/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

- Page 1 -

How erfrage I LOF, which Yes in Profan not gives?

mfg

05/08/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

fileSize

, getFileSize

05/08/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

If I a names eingebe the wrong is as Input to that reading, should the program really exits go or to waitkey jumping. does But not, separate goes moreover, where I the Ausgabenamen prompt can.

Why the?

mfg
Compile Mark Separation

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
./../Function-References/XProfan/end/'>end

05/08/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Paul
Glatz

You must the Program too say that it terminate should!

05/08/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

- Page 2 -

If %IOResult
Print File can't opened go.
else
.....
.....
endif
waitkey

If the File not there's should it really to Waitkey jumping and not behind Else whom 2. names reading.

05/08/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

E.T.

Lt. View source 2 Posts before:

...
INPUT ... asks whom names the File ex (z.B. xyz.ex)
APPEND #1,... points File xyz.ex The Dateinummer 1 To
OPENRW #1 ... Öffnet or created with not existence File number 1 (xyz.ex) see Help
...

is m.E. correctly, %ioresult won't staid (if File opened or created go can), and accordingly becomes ...else sprang .

If you a already existing File use want, recommend I @LoadFile$(s1,s2) , or through @FileExists(s) to check on, whether The File there's

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

05/09/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jup, eindeutige testimony. skin wonderful there.

The Word processing in Profan is allererst gewöhnungsbedürftig to the Standart.

mfg

05/09/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

RGH

2peter Bierbach, Beitrag=52245, Zeitpunkt=09.05.2009

Jup, eindeutige testimony. skin wonderful there.

The Word processing in Profan is allererst gewöhnungsbedürftig to the Standart.

mfg

opposite welchem standard? What the Dateibearbeitung concerns, lean itself XProfan very tight on whom Pascal-standard (TurboPascal, ObjectPascal, Delphi, etc.) on.

Greeting
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

05/09/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

TurboPascal, ObjectPascal

therefore Yes.

If you eof drin have, Why take You not lof with mere....etc.

mfg

05/09/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

E.T.

...if I now so drüber nachdenke...
??? what has Bytes Images in PNG Textverarbeiung To do ???
If I a pure Text-File reading wants (z.B. so a manner .ini, your .txt is Yes nothing other), then mach I the always line by line, not byte for 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...

05/10/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Dietmar
Horn

the I had me too same demand. but because someone evident not yet time with the xprofanen Assign, Rewrite, Append, etc. umzugehen vermag, I had me one response-Posting yet pinched ...

Greeting
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: [...]

05/10/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Dietmar I merk you have the Sachverstand not moreover , 40 years prägen one.

I have Apple IIe and plus4 ,The I in Basic program. furthermore have I a good Assembler (6502) with the I small Asm-routines write and the would like I as Datazeilen reading and then of Basic the Apple IIe or plus4 with Call Call.

what power now my Program Dietmar, it power the following :
I write the ASM-Program :
Compile Mark Separation

!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

Then it compiliert and it arise a be-File.
These be-File wandle I now with the Program circa in a Textdatei, The then so looks :
Compile Mark Separation

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,

and oh wonder, now slopes I The File on the Basic, read The 1. number one, The The length vorgibt and then The others values. and schwupps have I mean data for a Basicprogrammierer aufbereitet.

have you got the understood as Leerer or not, Dietmar?

this is incidentally the Profanprogram:
Compile Mark Separation

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

if FileExists(name_in$)=0

    Print goes nisch...

else

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

    WhileLoop datei_laenge%

        if data_laenge% < 10

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

        else

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

        endif

        data_laenge%=data_laenge%+1

    EndWhile

    Close #1
    Close #2
    print fertisch...

endif

waitkey
end