OpenXTalk Forums

Code: Select all

function readGIMPColorPaletteFile pFilePath
   local tPaletteName, tColumns, tColors
   put empty into tPaletteName
   put empty into tColumns
   put empty into tColors
   
   -- Read the file contents
   open file pFilePath for binary read -- added 'Binary' just to be safe, any names should be Unicode
   read from file pFilePath until eof
   put it into tFileContent
   close file pFilePath
   
   -- Process each line
   repeat with each line tLine in tFileContent
      if tLine starts with "GIMP Palette" then
         -- Header line, skip
         next repeat
      else if tLine starts with "Name: " then
         -- Extract palette name
         put word 2 to -1 of tLine into tPaletteName
      else if tLine starts with "Columns: " then
         -- Extract number of columns
         put word 2 of tLine into tColumns
      else if tLine is not empty and char 1 of tLine is not "#" then
         -- Parse color description line
         put word 1 of tLine into tRed
         put word 2 of tLine into tGreen
         put word 3 of tLine into tBlue
         put tRed & "," & tGreen & "," & tBlue into tColorRGB
         if the number of words of tLine > 3 then
            -- Extract color name
            put word 4 to -1 of tLine into tColorName
            put tColorRGB & tab & tColorName & return after tColors -- use tab to delimit color from any color name
         else
            put tColorRGB & return after tColors
         end if
      end if
   end repeat
   -- Return the extracted data
   return tPaletteName & return & tColumns & return & tColors
end readGIMPColorPaletteFile