Modify resource file entries

  • Article

In my prior two posts (This code queries the foxuser resource file. What does it do? and More Resource file data mining), I showed how to read resource file entries.

Here’s code that shows how to modify the entries.

SET RESOURCE ON && make sure Foxuser is being used to store preferences

USE SET("Resource",1) AGAIN ALIAS foxuser

cFilename="testprog.prg"

FOR i = 1 TO 10

      ERASE testprog.prg && start with no file existing

      _cliptext="This is some sample text"+CHR(13)+" More text" && put some text on the clipboard

      KEYBOARD '{CTRL+v}' && put a paste command in the keyboard buffer to paste it in

      MODIFY COMMAND (cFilename) nowait && open an editor window

      DOEVENTS && allow the paste

      KEYBOARD "Y" && put a 'Y' to save changes in the buffer

      RELEASE WINDOWS testprog.prg && Close the edit window

      LOCATE FOR id="WINDMODIFY" AND name=cFilename && find the record in the resource table

      nLeft=INT(VAL(TRANSFORM(CTOBIN(SUBSTR(Data,13,4),"4rs"),"9999")))

      nleft=nleft+1

      ?nLeft

      newdata = LEFT(data,12)+BINTOC(nLeft,"4rs")+SUBSTR(data,17)

      REPLACE data WITH newdata,ckval WITH VAL(SYS(2007,SUBSTR(newdata,3)))

ENDFOR