qq4045728 发表于 2009-7-18 22:01:27

读取ini关键值,循环出错.好奇怪

本帖最后由 qq4045728 于 2009-7-19 09:24 编辑


$i = IniReadSection(@WindowsDir&"\d.ini","reg")
Const $n=$i
For $i =1 to $n Step 1
   $reg = IniRead(@WindowsDir&\"d.ini","reg",$i,"")
       RunWait($reg)
Next
----------------------------------------------------------

1=a.exe
2=b.exe
3=c.exe
为什么只将 a.exe循环运行了3次其他的确不运行??代码哪里有问题了.如果定义$i=3确可以将1=a.exe,2=b.exe,3=c.exe都运行

---------------------------------------------------------


$q = IniReadSection(@WindowsDir&"\&"\d.ini","one")
const $w=$q
for $e = 1 to $w Step 1
   $run= IniRead(@WindowsDir&"\d.ini","one",$e,"")
   RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce",$e,"REG_SZ",$run)
Next
-------------------------------------

1=a.exe
2=b.exe
3=c.exe
这里确只将a.exe 写入到注册表了. 如果定义$q=3确可以将1=a.exe,2=b.exe,3=c.exe都写到注册表   
-------------------------------------
以上的问题好奇怪...


晕了换了iniread命令还是不行..

大绯狼 发表于 2009-7-18 23:32:40

第一,楼主难道没发现你2个变量名是一样的吗?
第二,IniReadSection中变量的个数是存在变量的第个元素中的,该好好看看帮助文档

qq4045728 发表于 2009-7-19 09:15:10

2# 大绯狼


上面我只是举一个例子!!!!

qq4045728 发表于 2009-7-19 09:24:31

$var = IniReadSection("C:\Temp\myfile.ini", "section2")
If @error Then
    MsgBox(4096, "", "Error occurred, probably no INI file.")
Else
    For $i = 1 To $var
      MsgBox(4096, "", "Key: " & $var[$i] & @CRLF & "Value: " & $var[$i])
    Next
EndIf
   解决了!!
页: [1]
查看完整版本: 读取ini关键值,循环出错.好奇怪