rdw167 发表于 2013-8-30 19:56:18

For 命令下的 IniRead 读取功能

本帖最后由 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
IfFileExists($b) Then
               

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

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

dreamneo 发表于 2013-8-30 21:11:24

IfFileExists($b) Then
               

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

EndIf
放在NEXT前面

rdw167 发表于 2013-9-1 13:52:51

回复 2# dreamneo


   试过没用。

dreamneo 发表于 2013-9-2 19:20:58

回复 4# rdw167


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

小凯 发表于 2013-9-4 13:48:33

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
      MsgBox(4096, "", "关键字: " & $var[$i] & @CRLF & "值: " & $var[$i])
    Next
EndIf
endif

rdw167 发表于 2013-10-2 16:57:07

回复 6# 小凯


      非常感谢。
页: [1]
查看完整版本: For 命令下的 IniRead 读取功能