循环数组问题

qq4045728

Dim $lj
Dim $lj1 = '"%SYSTEMDRIVE%\Program Files\Microsoft Games\Chess"'
Dim $lj2 = '"%SYSTEMDRIVE%\Program Files\Microsoft Games\FreeCell"'
Dim $lj3 = '"%SYSTEMDRIVE%\Program Files\Microsoft Games\Hearts"'
Dim $lj4 = '"%SYSTEMDRIVE%\Program Files\Microsoft Games\inkball"'
Dim $lj5 = '"%SYSTEMDRIVE%\Program Files\Microsoft Games\Mahjong"'
Dim $lj6 = '"%SYSTEMDRIVE%\Program Files\Microsoft Games\Minesweeper"'
Dim $lj7 = '"%SYSTEMDRIVE%\Program Files\Microsoft Games\Purble Place"'
Dim $lj8 = '"%SYSTEMDRIVE%\Program Files\Microsoft Games\Solitaire"'
Dim $lj9 = '"%SYSTEMDRIVE%\Program Files\Microsoft Games\SpiderSolitaire"'

Dim $s = 1
For $i = $Checkbox1 to $Checkbox20 Step 1
 If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
    RunWait(@COMSPEC & " /c takeown /f " &$lj[$s]& " && icacls " &$lj[$s]& " /grant administrators:F ")
    $s = $s + 1
 EndIf
Next

请教&$lj[$s]&  这里应该如何写？这段代码就是在这里出错

pusofalse

Dim $lj[1]，定义lj数组，只包含1个元素，在之后的引用中，只有$lj[0]才是合法的数组取值。

Dim $lj[2] = [0, 1]

Dim $lj[2]
$lj[0] = 1
$lj[1] = 2
$lj[2] = 3 ; 此句出错。

水木子

Dim $lj[1]，定义lj数组，只包含1个元素，在之后的引用中，只有$lj[0]才是合法的数组取值。

Dim $lj[2]  ...
pusofalse 发表于 2010-3-3 22:30

留名，学习啦！

afan

Dim $lj[10], $p = '"%SYSTEMDRIVE%\Program Files\Microsoft Games\', $s = 1
$lj[1] = $p & 'Chess"'
$lj[2] = $p & 'FreeCell"'
$lj[3] = $p & 'Hearts"'
$lj[4] = $p & 'inkball"'
$lj[5] = $p & 'Mahjong"'
$lj[6] = $p & 'Minesweeper"'
$lj[7] = $p & 'Purble Place"'
$lj[8] = $p & 'Solitaire"'
$lj[9] = $p & 'SpiderSolitaire"'

For $i = $Checkbox1 To $Checkbox20 ;如果有20个复选框那 $lj 应定义 $lj[21]，且应继续9以后的赋值
        If GUICtrlRead($i) = $GUI_CHECKED Then
                RunWait(@ComSpec & ' /c takeown /f ' & $lj[$s] & ' && icacls ' & $lj[$s] & ' /grant administrators:F ')
        EndIf
        $s += 1
Next

qq4045728

谢谢 3为仁兄。我先试试在说！

visualc

谢谢，学习了，数组就是这样的啊
，呵呵

zmj2008

谢谢，学习了，数组就是这样的啊