In Arbeit...
Code: Alles auswählen
;-TOP
EnableExplicit
; *****************************************************************************
Structure udtArray
StructureUnion
a.a[0]
EndStructureUnion
EndStructure
; -----------------------------------------------------------------------------
Procedure PetToAsc(file_in.s, file_out.s)
Protected r1, f_in, f_out, size, index, *mem.udtArray, *table.udtArray, ch
; Tabelle lesen
f_in = ReadFile(#PB_Any, file_in)
If f_in = 0
Debug "Fehler: Datei öffnen - " + file_in
ProcedureReturn 0
EndIf
size = Lof(f_in)
If size <= 0
Debug "Fehler: Datei grösse - " + file_in
CloseFile(f_in)
ProcedureReturn 0
EndIf
*mem = AllocateMemory(size)
If *mem = 0
Debug "Fehler: Speicher anlegen - " + file_in
CloseFile(f_in)
ProcedureReturn 0
EndIf
r1 = ReadData(f_in, *mem, size)
If r1 <> size
Debug "Fehler: Datei laden - " + file_in
FreeMemory(*mem)
CloseFile(f_in)
ProcedureReturn 0
EndIf
CloseFile(f_in)
; Tabelle übersetzen
*table = ?PetToAscTable
size - 1
For index = 0 To size
ch = *mem\a[index]
*mem\a[index] = *table\a[ch]
Next
; Tabelle schreiben
f_out = CreateFile(#PB_Any, file_out)
If f_out = 0
Debug "Fehler: Datei erstellen - " + file_out
FreeMemory(*mem)
ProcedureReturn 0
EndIf
size + 1
r1 = WriteData(f_out, *mem, size)
If r1 <> size
Debug "Fehler: Datei schreiben - " + file_out
CloseFile(f_out)
DeleteFile(file_out)
FreeMemory(*mem)
ProcedureReturn 0
EndIf
; Ok
CloseFile(f_out)
FreeMemory(*mem)
ProcedureReturn r1
EndProcedure
; -----------------------------------------------------------------------------
Procedure AscToPet(file_in.s, file_out.s)
Protected r1, f_in, f_out, size, index, index2, *mem.udtArray, *mem2.udtArray, *table.udtArray, ch.a
; Tabelle lesen
f_in = ReadFile(#PB_Any, file_in)
If f_in = 0
Debug "Fehler: Datei öffnen - " + file_in
ProcedureReturn 0
EndIf
size = Lof(f_in)
If size <= 0
Debug "Fehler: Datei grösse - " + file_in
CloseFile(f_in)
ProcedureReturn 0
EndIf
*mem = AllocateMemory(size)
If *mem = 0
Debug "Fehler: Speicher quelle anlegen - " + file_in
CloseFile(f_in)
ProcedureReturn 0
EndIf
r1 = ReadData(f_in, *mem, size)
If r1 <> size
Debug "Fehler: Datei laden - " + file_in
FreeMemory(*mem)
CloseFile(f_in)
ProcedureReturn 0
EndIf
CloseFile(f_in)
; Tabelle übersetzen
*table = ?AscToPetTable
*mem2 = AllocateMemory(size)
If *mem2 = 0
Debug "Fehler: Speicher ziel anlegen - " + file_in
FreeMemory(*mem)
ProcedureReturn 0
EndIf
size - 1
For index = 0 To size
ch = *mem\a[index]
If ch <> $0d
*mem2\a[index2] = *table\a[ch]
index2 + 1
EndIf
Next
FreeMemory(*mem)
; Tabelle schreiben
f_out = CreateFile(#PB_Any, file_out)
If f_out = 0
Debug "Fehler: Datei erstellen - " + file_out
FreeMemory(*mem2)
ProcedureReturn 0
EndIf
size = index2
r1 = WriteData(f_out, *mem2, size)
If r1 <> size
Debug "Fehler: Datei schreiben - " + file_out
CloseFile(f_out)
DeleteFile(file_out)
FreeMemory(*mem2)
ProcedureReturn 0
EndIf
; Ok
CloseFile(f_out)
FreeMemory(*mem2)
ProcedureReturn r1
EndProcedure
; -----------------------------------------------------------------------------
Procedure PetToAscMemory(file_in.s) ; Result Pointer to Memory
Protected r1, f_in, size, index, *mem.udtArray, *table.udtArray, ch
; Tabelle lesen
f_in = ReadFile(#PB_Any, file_in)
If f_in = 0
Debug "Fehler: Datei öffnen - " + file_in
ProcedureReturn 0
EndIf
size = Lof(f_in)
If size <= 0
Debug "Fehler: Datei grösse - " + file_in
CloseFile(f_in)
ProcedureReturn 0
EndIf
*mem = AllocateMemory(size)
If *mem = 0
Debug "Fehler: Speicher anlegen - " + file_in
CloseFile(f_in)
ProcedureReturn 0
EndIf
r1 = ReadData(f_in, *mem, size)
If r1 <> size
Debug "Fehler: Datei laden - " + file_in
FreeMemory(*mem)
CloseFile(f_in)
ProcedureReturn 0
EndIf
CloseFile(f_in)
; Tabelle übersetzen
*table = ?PetToAscTable
size - 1
For index = 0 To size
ch = *mem\a[index]
*mem\a[index] = *table\a[ch]
Next
; Ok
ProcedureReturn *mem
EndProcedure
; -----------------------------------------------------------------------------
Procedure AscToPetMemory(file_in.s) ; Result Pointer to Memory
Protected r1, f_in, size, index, index2, *mem.udtArray, *mem2.udtArray, *table.udtArray, ch.a
; Tabelle lesen
f_in = ReadFile(#PB_Any, file_in)
If f_in = 0
Debug "Fehler: Datei öffnen - " + file_in
ProcedureReturn 0
EndIf
size = Lof(f_in)
If size <= 0
Debug "Fehler: Datei grösse - " + file_in
CloseFile(f_in)
ProcedureReturn 0
EndIf
*mem = AllocateMemory(size)
If *mem = 0
Debug "Fehler: Speicher quelle anlegen - " + file_in
CloseFile(f_in)
ProcedureReturn 0
EndIf
r1 = ReadData(f_in, *mem, size)
If r1 <> size
Debug "Fehler: Datei laden - " + file_in
FreeMemory(*mem)
CloseFile(f_in)
ProcedureReturn 0
EndIf
CloseFile(f_in)
; Tabelle übersetzen
*table = ?AscToPetTable
*mem2 = AllocateMemory(size)
If *mem2 = 0
Debug "Fehler: Speicher ziel anlegen - " + file_in
FreeMemory(*mem)
ProcedureReturn 0
EndIf
size - 1
For index = 0 To size
ch = *mem\a[index]
If ch <> $0d
*mem2\a[index2] = *table\a[ch]
index2 + 1
EndIf
Next
FreeMemory(*mem)
*mem2 = ReAllocateMemory(*mem2, index2)
ProcedureReturn *mem2
EndProcedure
; -----------------------------------------------------------------------------
DataSection
PetToAscTable:
Data.a $00,$01,$02,$03,$04,$05,$06,$07,$14,$09,$0d,$11,$93,$0a,$0e,$0f
Data.a $10,$0b,$12,$13,$08,$15,$16,$17,$18,$19,$1a,$1b,$1c,$1d,$1e,$1f
Data.a $20,$21,$22,$23,$24,$25,$26,$27,$28,$29,$2a,$2b,$2c,$2d,$2e,$2f
Data.a $30,$31,$32,$33,$34,$35,$36,$37,$38,$39,$3a,$3b,$3c,$3d,$3e,$3f
Data.a $40,$61,$62,$63,$64,$65,$66,$67,$68,$69,$6a,$6b,$6c,$6d,$6e,$6f
Data.a $70,$71,$72,$73,$74,$75,$76,$77,$78,$79,$7a,$5b,$5c,$5d,$5e,$5f
Data.a $c0,$c1,$c2,$c3,$c4,$c5,$c6,$c7,$c8,$c9,$ca,$cb,$cc,$cd,$ce,$cf
Data.a $d0,$d1,$d2,$d3,$d4,$d5,$d6,$d7,$d8,$d9,$da,$db,$dc,$dd,$de,$df
Data.a $80,$81,$82,$83,$84,$85,$86,$87,$88,$89,$8a,$8b,$8c,$8d,$8e,$8f
Data.a $90,$91,$92,$0c,$94,$95,$96,$97,$98,$99,$9a,$9b,$9c,$9d,$9e,$9f
Data.a $a0,$a1,$a2,$a3,$a4,$a5,$a6,$a7,$a8,$a9,$aa,$ab,$ac,$ad,$ae,$af
Data.a $b0,$b1,$b2,$b3,$b4,$b5,$b6,$b7,$b8,$b9,$ba,$bb,$bc,$bd,$be,$bf
Data.a $60,$41,$42,$43,$44,$45,$46,$47,$48,$49,$4a,$4b,$4c,$4d,$4e,$4f
Data.a $50,$51,$52,$53,$54,$55,$56,$57,$58,$59,$5a,$7b,$7c,$7d,$7e,$7f
Data.a $a0,$a1,$a2,$a3,$a4,$a5,$a6,$a7,$a8,$a9,$aa,$ab,$ac,$ad,$ae,$af
Data.a $b0,$b1,$b2,$b3,$b4,$b5,$b6,$b7,$b8,$b9,$ba,$bb,$bc,$bd,$be,$bf
AscToPetTable:
Data.a $00,$01,$02,$03,$04,$05,$06,$07,$14,$20,$0d,$11,$93,$0a,$0e,$0f
Data.a $10,$0b,$12,$13,$08,$15,$16,$17,$18,$19,$1a,$1b,$1c,$1d,$1e,$1f
Data.a $20,$21,$22,$23,$24,$25,$26,$27,$28,$29,$2a,$2b,$2c,$2d,$2e,$2f
Data.a $30,$31,$32,$33,$34,$35,$36,$37,$38,$39,$3a,$3b,$3c,$3d,$3e,$3f
Data.a $40,$c1,$c2,$c3,$c4,$c5,$c6,$c7,$c8,$c9,$ca,$cb,$cc,$cd,$ce,$cf
Data.a $d0,$d1,$d2,$d3,$d4,$d5,$d6,$d7,$d8,$d9,$da,$5b,$5c,$5d,$5e,$5f
Data.a $c0,$41,$42,$43,$44,$45,$46,$47,$48,$49,$4a,$4b,$4c,$4d,$4e,$4f
Data.a $50,$51,$52,$53,$54,$55,$56,$57,$58,$59,$5a,$db,$dc,$dd,$de,$df
Data.a $80,$81,$82,$83,$84,$85,$86,$87,$88,$89,$8a,$8b,$8c,$8d,$8e,$8f
Data.a $90,$91,$92,$0c,$94,$95,$96,$97,$98,$99,$9a,$9b,$9c,$9d,$9e,$9f
Data.a $a0,$a1,$a2,$a3,$a4,$a5,$a6,$a7,$a8,$a9,$aa,$ab,$ac,$ad,$ae,$af
Data.a $b0,$b1,$b2,$b3,$b4,$b5,$b6,$b7,$b8,$b9,$ba,$bb,$bc,$bd,$be,$bf
Data.a $60,$61,$62,$63,$64,$65,$66,$67,$68,$69,$6a,$6b,$6c,$6d,$6e,$6f
Data.a $70,$71,$72,$73,$74,$75,$76,$77,$78,$79,$7a,$7b,$7c,$7d,$7e,$7f
Data.a $e0,$e1,$e2,$e3,$e4,$e5,$e6,$e7,$e8,$e9,$ea,$eb,$ec,$ed,$ee,$ef
Data.a $f0,$f1,$f2,$f3,$f4,$f5,$f6,$f7,$f8,$f9,$fa,$fb,$fc,$fd,$fe,$ff
EndDataSection
; *****************************************************************************
CompilerIf #PB_Compiler_IsMainFile
Define ch_asc, ch_pet, i, *asc.udtArray, *pet.udtArray
Define r1
Define fasc.s = OpenFileRequester("Testdatei", "", "", 0)
Define fpet.s = fasc + ".pet"
If Bool(fasc)
r1 = AscToPet(fasc, fpet)
Debug r1
fasc + ".asc"
r1 = PetToAsc(fpet, fasc)
Debug r1
EndIf
Define *mem_asc.udtArray
*mem_asc = PetToAscMemory(fpet)
If *mem_asc
ShowMemoryViewer(*mem_asc, MemorySize(*mem_asc))
EndIf
CompilerEndIf
P.S. Test hinzugefügt