PB中对INI文件读写的补充函数

PB中对INI文件读写的补充函数我们在使用PB的INI函数读写INI文件时，有时也可能需要动态地删除某个节或者某个项，此函数即完成此功能。

$PBExportHeader$pfc_delprofilestring.srf$PBExportComments$Delete SECTION or KEY in INI fileglobal type pfc_delprofilestring from function_objectend typeforward prototypesglobal function integer pfc_delprofilestring (string as_file, string as_section, string as_key)end prototypesglobal function integer pfc_delprofilestring (string as_file, string as_section, string as_key);// Function: of_Delete// Arguments:// as_file The .ini file.// as_section The section name that the entry to be deleted is in.// as_key The key name of the entry that should be deleted from// the specified section.// (此参数为空值时删除整个节).// Returns: Integer// 1 success// 0 section does not exist, or key name does not exist// within specified section.// -1 file error// -2 if .INI file does not exist or has not been specified.//变量声明boolean lb_skiplineboolean lb_sectionfoundboolean lb_entryremovedinteger li_fileinteger li_rc = 1integer li_keylengthlong ll_lengthlong ll_firstlong ll_lastlong ll_posstring ls_linestring ls_sectionstring ls_tempstring ls_newfile// 判断指定的INI文件是否存在if not FileExists (as_file) thenreturn -2end if// 打开指定的INI文件ll_length = FileLength (as_file)li_file = FileOpen (as_file)if li_file = -1 then return li_file////////////////////////////////////////////////////////////////////////////// // 逐行读取INI文件并删除指定的节或者指定节中指定的项目// 原理：判断节和条目是否需要删除，如果需要删除，则跳过此行，// 否则，将此行保存到新文件字串变量中。

然后再写入新的// 字串替换原来INI文件中的数据。

////////////////////////////////////////////////////////////////////////////// li_keylength = Len (as_key)do while li_rc >= 0// 读取一行数据li_rc = FileRead (li_file, ls_line)if li_rc = -1 thenreturn -1end ifif as_key="" then// 未指定删除条目，删除整个节if li_rc >= 1 then//判断当前行是否为节ll_first = Pos (ls_line, "[")ll_last = Pos (ls_line, "]")if ll_first >0 and ll_last >0 then// 当前行为节，取节名ls_temp = Trim (ls_line)if Left (ls_temp, 1) = "[" thenll_pos = Pos (ls_temp, "]")ls_section = Mid (ls_temp, 2, ll_pos - 2)//判断当前节是否为需要删除的节if Lower (ls_section) = Lower (as_section) then// 此节全部删除,从当前行开始lb_sectionfound = truelb_skipline = trueelse// 当前行为节但不是指定的节名，指定的节已经删除lb_skipline = falseend ifend ifend ifend if// 添加行结束符ls_line = ls_line + "~013~010"// 创建新文件if li_rc >= 0 and not lb_skipline thenls_newfile=ls_newfile + ls_lineend ifelseif not lb_entryremoved then //指定的条目尚未删除if li_rc > 0 then //非回车或者换行符（即非空行）// 查找指定的节ll_first = Pos (ls_line, "[")ll_last = Pos (ls_line, "]")// 判断行是否为节if ll_first > 0 and ll_last > 0 then// 此行为节，取节名ls_temp = trim(ls_line)if Left (ls_temp, 1) = "[" thenll_pos = Pos (ls_temp, "]")ls_section = Mid (ls_temp, 2, ll_pos - 2)// 判断此节是否为要删除的节if Lower (ls_section) = Lower (as_section) then// 为需要删除的节lb_sectionfound = trueelse// 不是需要删除的节lb_sectionfound = falseend ifend ifelse// 当前行不为节if lb_sectionfound then// 已经查找到指定节，查找指定的条目ls_temp = Trim (ls_line)// 判断是否为需要删除的条目if Lower (Left (ls_temp, li_keylength)) = Lower (as_key) then// 此条目为需要删除的条目ls_temp = Trim (Mid (ls_temp, li_keylength + 1))if Char (ls_temp) = "=" then // 条目后第一个字符必定为“=”号// 删除条目lb_entryremoved = true//条目已经删除lb_skipline = trueend ifend ifend ifend ifend ifelse// 指定的条目已经删除，Skiplb_skipline = falseend if// 添加行结束符ls_line = ls_line + "~013~010"if li_rc >= 0 and not lb_skipline then//创建新文件（准备数据）ls_newfile=ls_newfile+ ls_lineend ifend ifloop// Close the input fileFileClose (li_file)// 没有找到指定的节或者指定的条目返回0if (not lb_sectionfound) thenreturn 0end ifif (not lb_entryremoved) and (as_key<>"") thenreturn 0end if//使用新的数据替换INI文件integer li_FileNo, li_writes, li_cntlong ll_StrLen, ll_currentposstring ls_Textli_FileNo = FileOpen(as_file, StreamMode!, Write!, LockReadWrite!, Replace!) If li_FileNo < 0 Then Return -1ll_StrLen = Len(ls_newfile)// 一次最多只能写入32765个字符If ll_StrLen > 32765 ThenIf Mod(ll_StrLen, 32765) = 0 Thenli_Writes = ll_StrLen / 32765Elseli_Writes = (ll_StrLen / 32765) + 1End ifElseli_Writes = 1End ifll_CurrentPos = 1For li_Cnt = 1 To li_Writesls_Text = Mid(ls_newfile, ll_CurrentPos, 32765)ll_CurrentPos += 32765If FileWrite(li_FileNo, ls_Text) = -1 ThenReturn -1End ifNextFileClose(li_FileNo)Return 1end function。