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

#linelength=40

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

;Main program.
If CreateFile(1, outputfile$)
  WriteStringN(1, ";"+inputfile$)
  WriteStringN(1,"")
  WriteStringN(1,"DataSection")
  If 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 opening input file!")
    EndIf
Else
  MessageRequester("Error!", "Problem creating output file!")
EndIf