OKMischa hat geschrieben:Spenden erst nach final, genau.
Ups!Mischa hat geschrieben:Das war in der ersten Version aber übrigens auch schon so.

Code: Alles auswählen
Procedure gdf2data(gdf_file.s, data_file.s)
Protected gdf.l, length.l, *mem.l, file.l, spalte.l, I.l
gdf = ReadFile(#PB_Any, gdf_file)
If gdf = #False : ProcedureReturn #False : EndIf
UseFile(gdf)
length = Lof()
*mem = AllocateMemory(Lof())
ReadData(*mem, length)
CloseFile(gdf)
file = CreateFile(#PB_Any, data_file)
If file = #False
FreeMemory(*mem)
ProcedureReturn #False
EndIf
WriteStringN("DataSection")
WriteStringN(" gadgets:")
WriteString(" data.b ")
For I = 1 To length - 1
If I % 10 = 0
WriteStringN("")
WriteString(" Data.b " + Str(PeekB(*mem)) + ",")
Else
spalte + 1
If spalte = 9
WriteString(Str(PeekB(*mem)))
spalte = 0
Else
WriteString(Str(PeekB(*mem)) + ",")
EndIf
EndIf
*mem + 1
Next
WriteStringN(Str(PeekB(*mem)))
WriteStringN("EndDataSection")
CloseFile(file)
ProcedureReturn #True
EndProcedure