精易模块-文件_删除配置节BUG

q736731097

不算什么大BUG

原代码：

  

子程序名	返回值类型	公开	备 注
文件_删除配置节			删除指定配置文件中的节
参数名	类 型	参考	可空	数组	备 注
配置文件名	文本型
节名称	文本型

变量名	类 型	静态	数组	备 注
a	文本型		2
b	整数型		2

如果真 (文件是否存在 (配置文件名))
a [1] ＝ 到文本 (读入文件 (配置文件名))
b [1] ＝ 寻找文本 (a [1], “[” ＋ 节名称 ＋ “]”, , 假)
如果真 (b [1] ＞ -1)
b [2] ＝ 寻找文本 (a [1], “[”, b [1] ＋ 取文本长度 (节名称) ＋ 1, 假)
如果真 (b [2] ＝ -1)
b [2] ＝ 取文本长度 (a [1])
a [2] ＝ 取文本左边 (a [1], b [1] － 1) ＋ 取文本右边 (a [1], 取文本长度 (a [1]) － b [2] ＋ 1)
写到文件 (配置文件名, 到字节集 (a [2]))

.版本 2<br /> <br /> .子程序 文件_删除配置节, , 公开, 删除指定配置文件中的节<br /> .参数 配置文件名, 文本型<br /> .参数 节名称, 文本型<br /> .局部变量 a, 文本型, , "2"<br /> .局部变量 b, 整数型, , "2"<br /> <br /> .如果真 (文件是否存在 (配置文件名))<br />     a [1] ＝ 到文本 (读入文件 (配置文件名))<br />     b [1] ＝ 寻找文本 (a [1], “[” ＋ 节名称 ＋ “]”, , 假)<br />     .如果真 (b [1] ＞ -1)<br />         b [2] ＝ 寻找文本 (a [1], “[”, b [1] ＋ 取文本长度 (节名称) ＋ 1, 假)<br />         .如果真 (b [2] ＝ -1)<br />             b [2] ＝ 取文本长度 (a [1])<br />         .如果真结束<br />         a [2] ＝ 取文本左边 (a [1], b [1] － 1) ＋ 取文本右边 (a [1], 取文本长度 (a [1]) － b [2] ＋ 1)<br />         写到文件 (配置文件名, 到字节集 (a [2]))<br />     .如果真结束

我暂时这样用：

  

子程序名	返回值类型	公开	备 注
文件_删除配置节			删除指定配置文件中的节
参数名	类 型	参考	可空	数组	备 注
配置文件名	文本型
节名称	文本型

变量名	类 型	静态	数组	备 注
a	文本型		2
b	整数型		2

如果真 (文件是否存在 (配置文件名))
a [1] ＝ 到文本 (读入文件 (配置文件名))
b [1] ＝ 寻找文本 (a [1], “[” ＋ 节名称 ＋ “]”, , 假)
如果真 (b [1] ＞ -1)
b [2] ＝ 寻找文本 (a [1], “[”, b [1] ＋ 取文本长度 (节名称) ＋ 1, 假)
如果真 (b [2] ＝ -1)
b [2] ＝ 取文本长度 (a [1])
a [2] ＝ 取文本左边 (a [1], b [1] － 1) ＋ 取文本右边 (a [1], 取文本长度 (a [1]) － b [2] ＋ 1)
判断 (寻找文本 (a [2], “[”, , 假) ＝ -1) ’ 说明配置文件里面没有配置节了
写到文件 (配置文件名, {  })
写到文件 (配置文件名, 到字节集 (a [2]))

.版本 2<br /> <br /> .子程序 文件_删除配置节, , 公开, 删除指定配置文件中的节<br /> .参数 配置文件名, 文本型<br /> .参数 节名称, 文本型<br /> .局部变量 a, 文本型, , "2"<br /> .局部变量 b, 整数型, , "2"<br /> <br /> .如果真 (文件是否存在 (配置文件名))<br />     a [1] ＝ 到文本 (读入文件 (配置文件名))<br />     b [1] ＝ 寻找文本 (a [1], “[” ＋ 节名称 ＋ “]”, , 假)<br />     .如果真 (b [1] ＞ -1)<br />         b [2] ＝ 寻找文本 (a [1], “[”, b [1] ＋ 取文本长度 (节名称) ＋ 1, 假)<br />         .如果真 (b [2] ＝ -1)<br />             b [2] ＝ 取文本长度 (a [1])<br />         .如果真结束<br />         a [2] ＝ 取文本左边 (a [1], b [1] － 1) ＋ 取文本右边 (a [1], 取文本长度 (a [1]) － b [2] ＋ 1)<br />         .判断开始 (寻找文本 (a [2], “[”, , 假) ＝ -1) ’ 说明配置文件里面没有配置节了<br />             写到文件 (配置文件名, {  })<br />         .默认<br />             写到文件 (配置文件名, 到字节集 (a [2]))<br />         .判断结束

原版删除配置节后，会多出一个字节，正常api 和 读配置项 是没问题的，但是用 内存读配置项，就会导致第一个配置节无法读取。


正常打开配置是发现不了的，用notepad++打开会发现配置文件首部多出一个换行符！！


我暂时修改成这样，如有不对的地方，请无视此贴！

4834

错误(10042): 调用子程序“文件_删除配置节”时所传递的参数太少。（这个提示是什么问题呢）

y2j423633

11年的大佬，说什么都对

气质征服一切

11年的大佬，说什么都对