[решено] Помогите правильно записать For to....

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- AutoIt (http://forum.oszone.net/forumdisplay.php?f=103)

- - [решено] Помогите правильно записать For to.... (http://forum.oszone.net/showthread.php?t=184845)

Centrinar

07-09-2010 14:43 1490322

Помогите правильно записать For to....

Код:

$sOS1 = 'WIN_XP'

$sOS2 = 'WIN_2000'

$sOS3 = 'WIN_2003'

$sOS4 = 'WIN_NT4'

For $i = 1 to 4

 If @OSVersion = $sOS[$i] Then

        FileCopy......

Else....

Как правильно записать?

madmasles

07-09-2010 14:48 1490323

Centrinar,
Так попробуйте:

Код:

Dim $aOS[5] = [4, 'WIN_XP', 'WIN_2000', 'WIN_2003', 'WIN_NT4']

For $i = 1 To $aOS[0]

    If @OSVersion = $aOS[$i] Then

        FileCopy...

    EndIf

Next

Creat0R

07-09-2010 14:59 1490328

Если без массива:

Код:

$sOS1 = 'WIN_XP'

$sOS2 = 'WIN_2000'

$sOS3 = 'WIN_2003'

$sOS4 = 'WIN_NT4'



For $i = 1 to 4

    If @OSVersion = Eval("sOS" & $i) Then

        FileCopy.....

    Else

        .....

    EndIf

Next

но с массивом всё же легче.

FlatX007

07-09-2010 17:12 1490387

можно ещё так:

Код:

Switch @OSVersion

    Case 'WIN_XP'



    Case 'WIN_2000'



    Case 'WIN_2003'



    Case 'WIN_NT4'



    Case Else



EndSwitch

Creat0R

07-09-2010 23:05 1490591

Цитата:

Цитата FlatX007

можно ещё так »

Или так:

Код:

Dim $aOSs = StringSplit('XP|2000|2003|NT4', '|', 2)



For $sOS In $aOSs

    If @OSVersion = 'WIN_' & $sOS Then

        ;....

    EndIf

Next

Время: 00:45.