For 命令下的 IniRead 读取功能

rdw167

本帖最后由 rdw167 于 2012-10-1 14:22 编辑


if FileExists("\\192.168.1.219\ini$\set.ini") Then    ;if 判断语句,为then执行~   检查配置文件是否存在,并读取ini下的start ~执行,
$run=IniRead("\\192.168.1.219\ini$\set.ini","Testing","Viruses1","0")
endif
if FileExists($run) Then    ;检查  可执行的文件是否存在,存在即自行,
run("G:\客户端\Testing.exe")
EndIf

if FileExists("\\192.168.1.219\ini$\set.ini") Then    ;if 判断语句,为then执行~   检查配置文件是否存在,并读取ini下的start ~执行,
$run=IniRead("\\192.168.1.219\ini$\set.ini","Testing","Viruses2","0")
endif
if FileExists($run) Then    ;检查  可执行的文件是否存在,存在即自行,
run("G:\客户端\Testing.exe")
EndIf

if FileExists("\\192.168.1.219\ini$\set.ini") Then    ;if 判断语句,为then执行~   检查配置文件是否存在,并读取ini下的start ~执行,
$run=IniRead("\\192.168.1.219\ini$\set.ini","Testing","Viruses3","0")
endif
if FileExists($run) Then    ;检查  可执行的文件是否存在,存在即自行,
run("G:\客户端\Testing.exe")
EndIf

if FileExists("\\192.168.1.219\ini$\set.ini") Then    ;if 判断语句,为then执行~   检查配置文件是否存在,并读取ini下的start ~执行,
$run=IniRead("\\192.168.1.219\ini$\set.ini","Testing","Viruses4","0")
endif
if FileExists($run) Then    ;检查  可执行的文件是否存在,存在即自行,
run("G:\客户端\Testing.exe")
EndIf
  下面的代码我不知道，应该怎么弄  ，才能能实现，命令简化实现上面功能的。
       Local $a='Viruses'  
For $i=1 To 5
      
                $b=IniRead('\\192.168.1.219\ini$\set.ini','Testing',$a&StringFormat('%03d',$i),'0')
                        next
If  FileExists($b) Then
               

  Run("D:\Program Files\Tencent\QQ\Bin\QQ.exe")

EndIf                 以前有解决过这个问题 ，把StringFormat 改成 $i   就可以了。 怎么现在怎么改都不能实现以上功能了。 求高手解答下。

dreamneo

If  FileExists($b) Then
               

  Run("D:\Program Files\Tencent\QQ\Bin\QQ.exe")

EndIf
放在NEXT前面

rdw167

回复 2# dreamneo


     试过没用。

dreamneo

回复 4# rdw167


   你用MSGBOX做个调试，看看是哪里的问题呢哇

小凯

if FileExists("\\192.168.1.219\ini$\set.ini") Then    ;if 判断语句,为then执行~   检查配置文件是否存在,并读取ini下的start ~执行,
$var = IniReadSection("\\192.168.1.219\ini$\set.ini","Testing")
If @error Then
    MsgBox(4096, "", "错误, 读取INI文件失败.")
Else
    For $i = 1 To $var[0][0]
        MsgBox(4096, "", "关键字: " & $var[$i][0] & @CRLF & "值: " & $var[$i][1])
    Next
EndIf
endif

rdw167

回复 6# 小凯


      非常感谢。