Add functions or folders to a .qml file

[Davider]

I want to modify the file named System.qml on the desktop to implement the following functions:
(Copy the System.qml file from the QM installation directory to the desktop, and remove the file's read-only attribute.)

1. Add a function named FileCopy2 after the function named FileCopy. The function content is: "I am the newly added function FileCopy2";

2. Create a folder named __Add under the folder named priveate, and add a function named AddTest. The function content is: "I am the newly added function AddTest".

After the following qm code is executed, it shows success, but an error is reported when opening the file:
Failed to open file 'C:\Users\Administrator\Desktop\System.qml'. Error reading items: The file is corrupt

Macro qml_mod

Code:

Copy      Help

out

str dbfile="$desktop$\System.qml"
Sqlite db.Open(dbfile)

;; ===== 1. Add FileCopy2 function to File folder (pid=81) =====
SqliteStatement chk
chk.Prepare(db "SELECT rowid FROM items WHERE name='FileCopy2' AND pid=81;")
if chk.FetchRow
,out "FileCopy2 already exists, skip"
,chk.Delete
else
,chk.Delete
,;; Insert items record
,db.Exec("INSERT INTO items (pid, ord, flags, name, trigger, icon, td, guid) VALUES (81, NULL, 16777218, 'FileCopy2', NULL, NULL, NULL, randomblob(16));")
,;; Get the newly inserted rowid
,SqliteStatement tmp
,tmp.Prepare(db "SELECT last_insert_rowid();")
,tmp.FetchRow
,int newRowid = tmp.GetInt(0)
,tmp.Delete
,;; Insert texts record, rowid must be the same
,str ftext="[]I am the newly added function FileCopy2"
,ftext.SqlEscape
,str sqlText=F"INSERT INTO texts (rowid, id, date, text) VALUES ({newRowid}, {newRowid}, NULL, '{ftext}');"
,db.Exec(sqlText)
,out "Added FileCopy2"

;; ===== 2. Create __Add folder under root private folder (id=952, pid=0) =====
SqliteStatement chk2
chk2.Prepare(db "SELECT rowid FROM items WHERE name='__Add' AND pid=952;")
if chk2.FetchRow
,int folderRowid = chk2.GetInt(0)
,out "__Add folder already exists"
,chk2.Delete
else
,chk2.Delete
,;; Insert folder items record
,db.Exec("INSERT INTO items (pid, ord, flags, name, trigger, icon, td, guid) VALUES (952, NULL, 131078, '__Add', NULL, NULL, NULL, randomblob(16));")
,;; Get the newly inserted rowid
,SqliteStatement tmp2
,tmp2.Prepare(db "SELECT last_insert_rowid();")
,tmp2.FetchRow
,folderRowid = tmp2.GetInt(0)
,tmp2.Delete
,;; Insert empty texts record (folders also need one)
,str emptyText=""
,emptyText.SqlEscape
,str sqlFolderText=F"INSERT INTO texts (rowid, id, date, text) VALUES ({folderRowid}, {folderRowid}, NULL, '{emptyText}');"
,db.Exec(sqlFolderText)
,out F"Created __Add folder, rowid={folderRowid}"

;; ===== 3. Add AddTest function under __Add folder =====
SqliteStatement chk3
chk3.Prepare(db F"SELECT rowid FROM items WHERE name='AddTest' AND pid={folderRowid};")
if chk3.FetchRow
,out "AddTest already exists"
,chk3.Delete
else
,chk3.Delete
,;; Insert items record
,db.Exec(F"INSERT INTO items (pid, ord, flags, name, trigger, icon, td, guid) VALUES ({folderRowid}, NULL, 16777218, 'AddTest', NULL, NULL, NULL, randomblob(16));")
,;; Get the newly inserted rowid
,SqliteStatement tmp3
,tmp3.Prepare(db "SELECT last_insert_rowid();")
,tmp3.FetchRow
,int addRowid = tmp3.GetInt(0)
,tmp3.Delete
,;; Insert texts record
,str atext="[]I am the newly added function AddTest"
,atext.SqlEscape
,str sqlAddText=F"INSERT INTO texts (rowid, id, date, text) VALUES ({addRowid}, {addRowid}, NULL, '{atext}');"
,db.Exec(sqlAddText)
,out "Added AddTest"

db.Close
out "Operation completed, please reopen System.qml to verify."