$Directory = "H:\kix\Reports\"
$TempFile = ($Directory + "errors.txt")
Del $TempFile /c
$ID1 = "1"
Open(1,$TempFile)

$ID = ReadLine(1)
If @error = 0
While $ID <> 0 AND @ERROR = 0

	? "Line is " $ID


	$IDArray = Split($ID,",")							;Extract data from missing.txt
	$Count = 0
	For Each $Element IN $IDArray
		Select
			Case $Count = 0
				$IDx = $Element			;Set student ID
			Case $Count = 1
				$email = $Element			;Set email address
			Case $Count = 2
				? "ERROR in file"
		EndSelect
		$Count = $Count + 1
	
	Next
	
	
	? "ID= " $IDx
	? "email= " $email

	

	If Len($email) = 0
		? "Setting flag"
		$Flag = "1"
	Else 
		$Flag = "0"
	EndIf
	
	? "Flag = " $Flag
		
	
	If $ID1 = "1" OR $IDx = $ID1
		$ID1 = $IDx
		? "ID1= " $ID1
	Else
		If $Flag = "1"
			? $IDx " has No email!"
		EndIf
		
	EndIf
	
	
? ""


	
	$ID = ReadLine(1)
Loop

dim $idArray
dim $emailArray
$ = open(1,'c:\blah.txt')
$curLine = trim(readline(1))
while @error=0
	$lineArray = split($curLine,',')
	$index = ascan($idArray, $lineArray[0])
	if $index < 0
		redim preserve $idArray[ubound($idArray)+1]
		redim preserve $emailArray[ubound($emailArray)+1]
		$idArray[ubound($idArray)] = $lineArray[0]
		$emailArray[ubound($emailArray)] = $lineArray[1]
	else
		if not $emailArray[$index] and $lineArray[1]
			$emailArray[$index] = $lineArray[1]
		endif
	endif
	$curLine = trim(readline(1))
loop
$ = close(1)
for $j = 0 to ubound($emailArray)
	if not $emailArray[$j] 
		$idArray[$j] ?
	endif
next

$file='c:\dir\file.txt' 
$array=readfile($file) 
for each $item in $array
  if right($item,1)=',' and not instr($item,$empties)
    $empties=$emptied+$item
  endif
next
if $empties
  $empties=split(left($empties,-1),',')
endif
;now print array of empty IDs
for each $item in $empties
  ? 'ID = '+$item
next

1030,fred@hotmail.com
1030,john@hotmail.com
1030,