Что нового

Ошибка не отлавливается :(

labudator

Новичок
Сообщения
25
Репутация
0
Простите за ламерский вопрос.. :(
не могу отловить ошибку
у меня цикл

Код:
While Not(@error == (-1))
		
		$theString = FileReadLine ($hLogFile,$lnCNT)
		MsgBox($MB_SYSTEMMODAL, "", @error) ;
		MsgBox($MB_SYSTEMMODAL, "", "counter " & $lnCNT) ; 
		MsgBox($MB_SYSTEMMODAL, "", $theString) ; 
		$lnCNT = $lnCNT + 1
	
WEnd


пробовал и While (Not(@error)) и While (@error == 0) и по всякому - все равно этот вайл ошибку пропускает
хочу отловить ошибку которую может выдать FileReadLine ($hLogFile,$lnCNT)
 

joiner

Модератор
Локальный модератор
Сообщения
3,556
Репутация
628
Код:
Local $rdln
Local $fo = FileOpen(@ScriptDir & '\test.txt')
While 1
	$rdln = FileReadLine($fo)
	Switch @error
		Case 1
			MsgBox(16, '', 'Файл невозможно открыть')
			ExitLoop
		Case -1
			MsgBox(64, '', 'Файл прочитан полностью')
			ExitLoop
	EndSwitch
	ConsoleWrite($rdln & @CRLF)
WEnd
FileClose($fo)
 
Верх