当前位置：首页 -> 技术开发 -> 程序开发 -> VB读写INI文件的四个函数

VB读写INI文件的四个函数

时间： 2021-07-31 作者：daque

'文献名sourcedb.ini文献private declare function getprivateprofilestring lib "kernel32" alias "getprivateprofilestringa" (byval lpapplicationname as string, byval lpkeyname as any, byval lpdefault as string, byval lpreturnedstring as string, byval nsize as long, byval lpfilename as string) as longprivate declare function writeprivateprofilestring lib "kernel32" alias "writeprivateprofilestringa" (byval lpapplicationname as string, byval lpkeyname as any, byval lpstring as any, byval lpfilename as string) as long '以次两个因变量,读/写ini文献,恒定节点setting,in_key为写入/读取的主键'只是对准利害值'y：yes,n：no,e：errorpublic function getinitf(byval in_key as string) as booleanon error goto getinitferrgetinitf = truedim getstr as stringgetstr = vba.string(128, 0)getprivateprofilestring "setting", in_key, "", getstr, 256, app.path & "\sourcedb.ini"getstr = vba.replace(getstr, vba.chr(0), "")if getstr = "1" thengetinitf = truegetstr = ""elsegoto getinitferrend ifexit functiongetinitferr:err.cleargetinitf = falsegetstr = ""end functionpublic function writeinitf(byval in_key as string, byval in_data as boolean) as booleanon error goto writeinitferrwriteinitf = trueif in_data = true thenwriteprivateprofilestring "setting", in_key, "1", app.path & "\sourcedb.ini"elsewriteprivateprofilestring "setting", in_key, "0", app.path & "\sourcedb.ini"end ifexit functionwriteinitferr:err.clearwriteinitf = falseend function'以次两个因变量,读/写ini文献,不恒定节点,in_key为写入/读取的主键'对准字符串值'空值表白堕落public function getinistr(byval appname as string, byval in_key as string) as stringon error goto getinistrerrif vba.trim(in_key) = "" thengoto getinistrerrend ifdim getstr as stringgetstr = vba.string(128, 0)getprivateprofilestring appname, in_key, "", getstr, 256, app.path & "\sourcedb.ini"getstr = vba.replace(getstr, vba.chr(0), "")if getstr = "" thengoto getinistrerrelsegetinistr = getstrgetstr = ""end ifexit functiongetinistrerr:err.cleargetinistr = ""getstr = ""end functionpublic function writeinistr(byval appname as string, byval in_key as string, byval in_data as string) as booleanon error goto writeinistrerrwriteinistr = trueif vba.trim(in_data) = "" or vba.trim(in_key) = "" or vba.trim(appname) = "" thengoto writeinistrerrelsewriteprivateprofilestring appname, in_key, in_data, app.path & "\sourcedb.ini"end ifexit functionwriteinistrerr:err.clearwriteinistr = falseend function

VB读写INI文件的四个函数

相关推荐

推荐下载

热门阅览

最新排行