XProfan

Español

El Expediente texto.txt möchte Yo byteweise auslesen y luego debería el Daten como unten como Textdatei producido o gesetzt voluntad.
Yo möchte de el Bytedatei Datazeilen redactar.
Als erstes el Longitud y luego el Werte.

Mit Entrada möchte Yo como erstes abfragen :
1. Name el Expediente el eingelesen se
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

Ladeanzahl:
		Descargar

08.05.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

- Página 1 -

Como erfrage Yo LOF, welches sí en Profano no son?

mfg

08.05.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

fileSize

, getFileSize

08.05.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Cuando tengo un Namen eingebe el Falsch es como Entrada para Einlesen, debería el Programa eigentlich darse por concluido o después de waitkey springen. Tut lo pero no, pero va más, wo Yo, el Ausgabenamen eingeben kann.

Woran liegt el?

mfg
Kompilieren Marca Separación

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 Zitat

Absatzweise Cita Zeilenweise Cita

Paul
Glatz

Usted musst el Programa auch sagen dass lo Beenden se!

08.05.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

- Página 2 -

If %IOResult
Imprimir Expediente kann no geöffnet voluntad.
más
.....
.....
endif
waitkey

Wenn el Expediente no como es debería lo eigentlich después de Waitkey springen y no hinter Más el 2. Namen einlesen.

08.05.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

E.T.

Lt. Ver código fuente 2 Posts vorher:

...
INPUT ... Fragt el Namen el Expediente de (z.B. xyz.de)
APPEND #1,... Weist Expediente xyz.de el Dateinummer 1 a
OPENRW #1 ... Öffnet oder producido en no vorhandensein Expediente Nummer 1 (xyz.de) siehe Ayuda
...

Ist m.E. korrekt, %ioresult no es gesetzt (si Expediente geöffnet oder producido voluntad kann), y folglich se a ...más gesprungen .

Wenn du una ya existierende Expediente uso willst, empfehle Yo @LoadFile$(S1,S2) , oder mittels @FileExists(S) überprüfen, si el Expediente como es

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 Zitat

Absatzweise Cita Zeilenweise Cita

Jup, eindeutige Aussage. Haut wunderbar hin.

El Textverarbeitung en Profano es allererst gewöhnungsbedürftig gegenüber el Standart.

mfg

09.05.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RGH

2peter Bierbach, Beitrag=52245, Zeitpunkt=09.05.2009

Jup, eindeutige Aussage. Haut wunderbar hin.

El Textverarbeitung en Profano es allererst gewöhnungsbedürftig gegenüber el Standart.

mfg

Gegenüber welchem Standard? Was el Dateibearbeitung betrifft, lehnt se XProfan muy eng a el Pascal-Standard (TurboPascal, ObjectPascal, Delphi, etc.) a.

Saludo
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 Zitat

Absatzweise Cita Zeilenweise Cita

TurboPascal, ObjectPascal

Darum sí.

Wenn du eof drin hast, por qué nimmst du no lof con rein....usw.

mfg

09.05.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

E.T.

...si yo ahora así drüber nachdenke...
??? Was ha Bytes einlesen con Textverarbeiung a tun ???
Wenn Yo una reine Texto-Expediente einlesen voluntad (z.B. así una Art .ini, Su .txt es sí nix más), entonces mach Yo el siempre zeilenweise, no Byte para 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 Zitat

Absatzweise Cita Zeilenweise Cita

Dietmar
Horn

Das Tuve mich auch igual gefragt. Aber porque Alguien offensichtlich todavía no veces con el xprofanen Asignar, Rewrite, Append, usw. umzugehen vermag, Tuve me una Antwort-Posting bisher verkniffen ...

Saludo
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 Zitat

Absatzweise Cita Zeilenweise Cita

Dietmar Yo merk du hast el Sachverstand no dazu , 40 jahre prägen una.

Yo habe Apple IIe y Plus4 ,el Yo en Basic programmiere. Weiterhin Yo una guten Ensamblador (6502) con el Yo kleine Asm-Routinen escribir y el möchte Yo como Datazeilen einlesen y luego de Basic des Apple IIe oder Plus4 con Call aufrufen.

Was macht nun mein Programa Dietmar, lo macht folgendes :
Yo escribir el ASM-Programa :
Kompilieren Marca Separación

!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

Dann se lo compiliert y lo entsteht una Bin-Expediente.
Diese Bin-Expediente wandle Yo ahora con el Programa en en un Textdatei, el entonces así aussieht :
Kompilieren Marca Separación

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,

Und oh wunder, ahora hänge Yo el Expediente a el Basic, lese el 1. Zahl una, el el länge vorgibt y luego el otro Werte. Und schwupps Yo mi Daten para una Basicprogrammierer aufbereitet.

Hast Si es usted el verstanden como Leerer oder no, Dietmar?

Es de paso el Profanprogram:
Kompilieren Marca Separación

declarar a%, data_laenge%, data_anfang%,datei_laenge%,name_in$,name_out$
Ventana 20,20-400,400
Imprimir Dateiname_in : ;
input name_in$

if FileExists(name_in$)=0

    Imprimir va nisch...

más

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

    WhileLoop datei_laenge%

        if data_laenge% < 10

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

        más

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

        endif

        data_laenge%=data_laenge%+1

    EndWhile

    Cerrar #1
    Cerrar #2
    imprimir fertisch...

endif

waitkey
end