[已解决],如何检测ini中是否有同样的关键字?

ac5474012

如何检测ini中是否有同样的关键字,?

最佳答案

再试试这个呢？
xsjtxy 发表于 2010-8-2 16:47

Ziya

$d = FileRead("程序.ini")
If StringInStr($d, "关键字") >= 1 Then
        MsgBox(0, "", "找到")
Else
        MsgBox(0, "", "未找到")
EndIf

这样就可以了吧

ac5474012

多谢共享支持楼主
zxx 发表于 2010-7-28 11:20

这明显水了,我共享什么了.

水木子

回复 4# ac5474012
呵呵！我要是管理员的话，这种人直接封了！

lynfr8

回复 3# zxx

作者: zxx    时间: 2010-5-16 07:45
是否真实先支持
--------------------------------------------------------------------------------
作者: zxx    时间: 2010-5-16 07:46
再次感谢楼主
--------------------------------------------------------------------------------
作者: zxx    时间: 2010-5-16 07:46
继续加油支持楼主
--------------------------------------------------------------------------------
作者: zxx    时间: 2010-5-16 07:47
感谢楼主提供
--------------------------------------------------------------------------------
作者: zxx    时间: 2010-5-16 07:50
下载太忙支持您
--------------------------------------------------------------------------------
作者: zxx    时间: 2010-4-21 20:52
多谢提供支持您
--------------------------------------------------------------------------------
作者: zxx    时间: 2010-4-21 21:16
顶您支持您
--------------------------------------------------------------------------------
作者: zxx    时间: 2010-4-21 21:16
再次支持您
--------------------------------------------------------------------------------
作者: zxx    时间: 2010-4-21 21:17
金钱不足无法下载
--------------------------------------------------------------------------------
作者: zxx    时间: 2010-4-21 21:24
金钱不足无法下载
--------------------------------------------------------------------------------
作者: zxx    时间: 2010-4-21 21:24
继续努力支持您
--------------------------------------------------------------------------------
作者: zxx    时间: 2010-4-21 21:25
再次感谢你
--------------------------------------------------------------------------------
作者: zxx    时间: 2010-4-21 21:25
还是不足金钱
--------------------------------------------------------------------------------
作者: zxx    时间: 2010-4-21 21:26
已下载了再次感谢
作者: zxx    时间: 2010-4-12 19:06
好工具支持您
--------------------------------------------------------------------------------
作者: zxx    时间: 2010-4-12 19:07
是否如所提好
--------------------------------------------------------------------------------
作者: zxx    时间: 2010-4-12 19:15
支持楼主提供
--------------------------------------------------------------------------------
作者: zxx    时间: 2010-4-12 19:16
太多金钱需要
--------------------------------------------------------------------------------
作者: zxx    时间: 2010-4-12 19:16
为何前20后30
--------------------------------------------------------------------------------
作者: zxx    时间: 2010-4-12 19:18
还无法下载
--------------------------------------------------------------------------------
作者: zxx    时间: 2010-4-12 19:20
何时才能下载
--------------------------------------------------------------------------------
作者: zxx    时间: 2010-4-12 19:21
好不容易下载再次谢谢

若要人不知除非己莫为
只要轻轻一按，灌水证据确凿，全揪出来扣分

ac5474012

回复 2# Ziya

理论上可行,试试先.

3mile

回复 6# lynfr8
“ACN论坛智慧结晶”还有这么厉害的功能。
不得不佩服啊。

xsjtxy

$var = IniReadSection("我的.ini", "我的")
If @error Then 
    MsgBox(4096, "", "发生错误,可能目标文件并非标准的INI文件.")
Else
$d = 0
    For $i = 1 To $var[0][0]
            For $a = 1 To $var[0][0]
                if $i = $a then
                else
                if $var[$a][0] = $var[$i][0] then
                MsgBox(4096, "重复的关键字及数值", "关键字:" & $var[$a][0] & @CRLF & "数值:" & $var[$a][1])
                IniDelete("我的.ini", "我的", $var[$a][0]);;;删除重复的关键字及数值
                $d = 1
                endif
                endif
            Next
        if $d = 1 then
        ShellExecute(@ScriptFullPath)
        exit
        endif
    Next
EndIf

xrbenbeba

凑个热闹 鄙视灌水

tryhi

回复 2# Ziya
如果有重复的值那这个就失效了吧

Ziya

为什么会失效呢?

3mile

回复 1# ac5474012
不知道这个函数楼主用的住吗？
http://www.autoitx.com/thread-17174-1-1.html

wyd301

问下lynfr8大哥，你那个查灌水的东东是AU3写的吗

tpj633

鄙视没水准的灌水
2楼的方法应该可以的

wsfda

以后老实做人，再不灌水了，