判断ListView删除INI，提示数组错误或超出

那片叶子 · 发表于 2012-2-23 03:51:03

获取编号，判断INI内的数值，相互判断然后删除！
可老提示这个！~

Dim $var,$dir,$i,$GUI_ListBox
Func del()

        $var = IniReadSectionNames($dir)

        If @error Then

                MsgBox(4096, "", "发生错误,可能目标文件并非标准的INI文件.")

        Else
                  Global $ListTxt0 = _GUICtrlListView_GetItemText($GUI_ListBox, _GUICtrlListView_GetNextItem($GUI_ListBox), 0)
                                 
                For $i = 1 To $var[0]
                                        
                  Global $ListTxt1 = IniRead($dir, $var[$i], "a", "Not Found")
                        If $ListTxt1 = $ListTxt0 Then
                                IniDelete($dir, $var[$i],  Default)

                                ;MsgBox(0, 0, "删除成功")

                                refresh()

                        EndIf

                Next

        EndIf

EndFunc

紫色风林 · 发表于 2012-2-23 10:09:54

俺是菜鸟，占位学习了

那片叶子 · 发表于 2012-2-23 10:43:07

稍稍顶一下，不然没人回了！~

xiehuahere · 发表于 2012-2-24 10:56:24

本帖最后由 xiehuahere 于 2012-2-24 11:00 编辑

回复 1# 那片叶子

用 IniDelete 后，字段的总数减少了，排序也必然发生改变。没有 $var[0] 这么多字段了，所以会出现数组访问越界啊。
  根据你的需求，可以考虑以下两种修改方式之一：
  1）If $ListTxt1 = $ListTxt0 Then  在判断条件成立并完成相应处理动作后，用ExitLoop退出循环，不要再向下走了。
  2）从后往前遍历，For $i = $var[0] To 1 Step -1，这样即使用IniDelete也不会影响前面的字段排序。

PS: 如果获取的键值是字符串而不是数值形式，建议使用“==”比较。
用“=”：如果有一方是数值，则进行数值比对，相当于两边都先使用了 Number() 再进行比对。以字母开头的字符串将被视为数值零，以数字开头的字符串将返回被(首个)非数字字符截断后的结果。
用“==”：字符串比对，相当于两边都先使用了 String() 再进行比对。

kxing · 发表于 2012-2-24 11:47:01

将for换成while就行了
while会每次检查，for只检查一次。

那片叶子 · 发表于 2012-2-24 17:23:18

谢谢了！~~~~请管理转移至已解决区域

		自动登录	找回密码
密码			加入

[系统综合] 判断ListView删除INI，提示数组错误或超出

本帖子中包含更多资源

相关帖子

评分