More Resource file data mining

  • Article

Here’s some more code to mine the data in your resource file. There are more settings at various offsets in the Data. Can you figure them out?

_screen.FontName="Courier New" && monospace

SELECT PADR(name,20) as name,data from SET("Resource",1) WHERE id = "WINDMODIFY" ORDER BY 1 INTO CURSOR foo

SCAN

      ?PADR(name,20)

      nVer=CTOBIN(SUBSTR(Data,3,2),"2rs")

      IF nVer=9

            ??" Left ="+TRANSFORM(CTOBIN(SUBSTR(Data,13,4),"4rs"),"9999")

            ??" Top ="+TRANSFORM(CTOBIN(SUBSTR(Data,13+4*1,4),"4rs"),"9999")

            ??" Right ="+TRANSFORM(CTOBIN(SUBSTR(Data,13+4*2,4),"4rs"),"9999")

            ??" Bottom="+TRANSFORM(CTOBIN(SUBSTR(Data,13+4*3,4),"4rs"),"9999")

            ?? " CursorStart="+ TRANSFORM(CTOBIN(SUBSTR(Data,29,4),"4rs"),"999999")

            ?? " CursorEnd="+ TRANSFORM(CTOBIN(SUBSTR(Data,29+4,4),"4rs"),"999999")

            cBuf=SUBSTR(Data,53,64)

            ??" "+PADR(LEFT(cBuf,AT(CHR(0),cBuf)-1),12)

            ??" "+TRANSFORM(CTOBIN(SUBSTR(Data,118,2),"2rs"),"9999")

            ??" "+TRANSFORM(CTOBIN(SUBSTR(Data,120,4),"4rs"),"9999")

      ENDIF

ENDSCAN