It appears I have found a bug in 4.20 in regards to the "While Loop". I have tried my code against B1 thru RC2. This works in 4.12.

I get the following error when the Loop command is reached.
quote:
ERROR : LOOP without WHILE!
Script: C:\Programs\Kix\kixforms\RTA\testloop.kix
Line : 49
File: Test.txt
code:
Computer,Ping Status,Ping IP,Admin Access,WMI Access,SMS Client Problem,SMS Server GUID,SMS Client UI
TESTNAME1,Off,20.185.232.137,,,,3478A6C0-8ECB-11D6-8134-00C04F375552,
TESTNAME2,On,103.81.60.171,Access,Access,Match,HO10I0X6,HO10I0X6
Source Code:
code:
BREAK ON

$FileComputerList = '.\Test.txt'

IF Open (10, $FileComputerList, 2) = 0
  $TempComputerList = ''
  $LineComputerList = ReadLine (10)
  WHILE @Error = 0
:CheckLineComputerList
    SELECT
      CASE Substr ($LineComputerList, 1, 2) = '\\'
        $LineComputerList = Substr ($LineComputerList, 3, Len ($LineComputerList))
        GOTO 'CheckLineComputerList'
      CASE Substr ($LineComputerList, 1, 1) = '\'
        $LineComputerList = Substr ($LineComputerList, 2, Len ($LineComputerList))
        GOTO 'CheckLineComputerList'
      CASE Substr ($LineComputerList, 1, 1) = '"'
        $LineComputerList = Substr ($LineComputerList, 2, Len ($LineComputerList))
        GOTO 'CheckLineComputerList'
      CASE InStr ($LineComputerList, '"') > 1
        $LineComputerList = Substr ($LineComputerList, 1, InStr ($LineComputerList, '"') - 1)
        GOTO 'CheckLineComputerList'
      CASE Substr ($LineComputerList, 1, 1) = "'"
        $LineComputerList = Substr ($LineComputerList, 2, Len ($LineComputerList))
        GOTO 'CheckLineComputerList'
      CASE InStr ($LineComputerList, "'") > 1
        $LineComputerList = Substr ($LineComputerList, 1, InStr ($LineComputerList, "'") - 1)
        GOTO 'CheckLineComputerList'
      CASE InStr ($LineComputerList, ' ') > 1
        $LineComputerList = Substr ($LineComputerList, 1, InStr ($LineComputerList, ' ') - 1)
        GOTO 'CheckLineComputerList'
      CASE InStr ($LineComputerList, Chr (9)) > 1
        $LineComputerList = Substr ($LineComputerList, 1, InStr ($LineComputerList, Chr (9)) - 1)
        GOTO 'CheckLineComputerList'
      CASE InStr ($LineComputerList, ',') > 1
        $LineComputerList = Substr ($LineComputerList, 1, InStr ($LineComputerList, ',') - 1)
        GOTO 'CheckLineComputerList'
      CASE InStr ($LineComputerList, ';') > 1
        $LineComputerList = Substr ($LineComputerList, 1, InStr ($LineComputerList, ';') - 1)
        GOTO 'CheckLineComputerList'
      CASE InStr ($LineComputerList, '.') > 1
        $LineComputerList = Substr ($LineComputerList, 1, InStr ($LineComputerList, '.') - 1)
        GOTO 'CheckLineComputerList'
    ENDSELECT
    IF $LineComputerList <> '' AND NOT InStr ($TempComputerList, $LineComputerList) 
    AND Len ($LineComputerList) < 16 AND NOT InStr (Lcase ($LineComputerList), 'computer') 
    AND NOT InStr (Lcase ($LineComputerList), 'workstation') AND NOT InStr (Lcase ($LineComputerList), 'rfid') 
    AND Lcase (Substr ($LineComputerList, 1, 2)) <> 'pwr'
      $TempComputerList = $TempComputerList + $LineComputerList + ','
    ENDIF
    $LineComputerList = ReadLine (10)
  LOOP
  $Nul = Close (10)
ENDIF
$ArrComputerList = Split (Substr ($TempComputerList, 1, Len ($TempComputerList) - 1), ',', -1)
FOR EACH $Computer IN $ArrComputerList
  ? $Computer
NEXT

QUIT 0


[ 30. January 2003, 16:19: Message edited by: krabourn ]
_________________________
Kelly