PureBasic Forums - English

Code: Select all

;This small utility creates a data section in raw binary format out of an external file.
;Useful for embedding small images directly within a source program etc,

;No error checking.

#linelength=40

inputfile$="back.ico"
outputfile$="data.pbi"

;Main program.
If CreateFile(1, outputfile$)
  WriteStringN(1, ";"+inputfile$)
  WriteStringN(1,"")
  WriteStringN(1,"DataSection")
  ReadFile(2, inputfile$)
  line$="  Data.b "
  While Eof(2) = 0
    count+1
    byte.c=ReadByte(2)
    line$+Str(byte)
    If count=#linelength
      WriteStringN(1, line$)
      line$="  Data.b "
      count=0
    Else
      line$+", "
    EndIf
  Wend
  If line$<> "  Data.b "
    WriteStringN(1, Left(line$, Len(line$)-2))
  EndIf
  CloseFile(2)
  WriteStringN(1,"EndDataSection")
  CloseFile(1)
Else
  MessageRequester("Error!", "Problem creating output file!")
EndIf