\'文件名sourcedb.ini文件 　　private declare function getprivateprofile lib \"kernel32\" alias

　　\"getprivateprofilea\" (byval lpapplicationname as , byval lpkeyname as any, byval

　　lpdefault as , byval lped as , byval nsize as long, byval

　　lpfilename as ) as long

　　private declare function writeprivateprofile lib \"kernel32\" alias

　　\"writeprivateprofilea\" (byval lpapplicationname as , byval lpkeyname as any, byval

　　lp as any, byval lpfilename as ) as long

　　

　　\'以下两个,读/写ini文件,固定节点ting,in_key为写入/读取主键

　　\'仅仅针对是非值

　　\'y:yes,n:no,e:error

　　public function getinitf(byval in_key as ) as boolean

　　on error goto getinitferr

　　getinitf = true

　　dim getstr as

　　getstr = vba.(128, 0)

　　getprivateprofile \"ting\", in_key, \"\", getstr, 256, app.path & \"\\sourcedb.ini\"

　　getstr = vba.replace(getstr, vba.chr(0), \"\")

　　 getstr = \"1\" then

　　 getinitf = true

　　 getstr = \"\"

　　

　　 goto getinitferr

　　end

　　exit function

　　getinitferr:

　　 err.clear

　　 getinitf = false

　　 getstr = \"\"

　　end function

　　

　　public function writeinitf(byval in_key as , byval in_data as boolean) as boolean

　　on error goto writeinitferr

　　writeinitf = true

　　 in_data = true then

　　 writeprivateprofile \"ting\", in_key, \"1\", app.path & \"\\sourcedb.ini\"

　　

　　 writeprivateprofile \"ting\", in_key, \"0\", app.path & \"\\sourcedb.ini\"

　　end

　　exit function

　　writeinitferr:

　　 err.clear

　　 writeinitf = false

　　end function


　　\'以下两个,读/写ini文件,不固定节点,in_key为写入/读取主键 　　\'针对串值

　　\'空值表示出错

　　public function getinistr(byval appname as , byval in_key as ) as

　　on error goto getinistrerr

　　 vba.trim(in_key) = \"\" then

　　 goto getinistrerr

　　end

　　dim getstr as

　　getstr = vba.(128, 0)

　　 getprivateprofile appname, in_key, \"\", getstr, 256, app.path & \"\\sourcedb.ini\"

　　 getstr = vba.replace(getstr, vba.chr(0), \"\")

　　 getstr = \"\" then

　　 goto getinistrerr

　　

　　 getinistr = getstr

　　 getstr = \"\"

　　end

　　exit function

　　getinistrerr:

　　 err.clear

　　 getinistr = \"\"

　　 getstr = \"\"

　　end function

　　

　　public function writeinistr(byval appname as , byval in_key as , byval in_data as ) as boolean

　　on error goto writeinistrerr

　　writeinistr = true

　　 vba.trim(in_data) = \"\" or vba.trim(in_key) = \"\" or vba.trim(appname) = \"\" then

　　 goto writeinistrerr

　　

　　 writeprivateprofile appname, in_key, in_data, app.path & \"\\sourcedb.ini\"

　　end

　　exit function

　　writeinistrerr:

　　 err.clear

　　 writeinistr = false

　　end function