Суть проблемы:
Есть код:
Проблема:
при открытии файла (лог файрволла) в случае выбора в комбо-боксе количества строк больше, чем в файле-источнике функция вываливается с ошибкой. Помогите разобраться.
Ошибка происходит в месте
Есть код:
Код:
Func Getdata()
$File = FileOpen($Filename,0)
If $file = -1 Then ;Check if file is opened for reading, OK
MsgBox(0, "Error", "Unable to open file. Make sure that your Firewall Logging is turned on !!")
Exit
EndIf
$Combo1Item=Number(GUICtrlRead($Tab1combo1)) ;Get # of lines selected
$aArray = StringSplit(FileRead($file,FileGetSize($filename)),@LF) ;Read lines of text until the EOF is reached
for $i = (UBound($aArray) - 2) to $i+1-$combo1Item Step -1 ;Ubound read lines bottom up, to # of lines
$string = StringSplit($aArray[$i], " ", 0) ;Split lines in 17 dimensions
For $a=0 To 13 ;Assign each 13 dimensions to a new Array
$avArray[$a]=$string[$a]
next ;Create string for displaying in ListView
$data=$avArray[1]&"|"&$avArray[2]&"|"&$avArray[3]&"|"&$avArray[4]&"|"&$avArray[5]&"|" _
&$avArray[6]&"|"&$avArray[7]&"|"&$avArray[8]&"|"&$avArray[9]&"|"&$avArray[10]&"|"&$avArray[11]&"|"&$avArray[12]&"|"&$avArray[13]
$dataCol=GUICtrlCreateListViewItem($data,$listview)
Next
FileClose($file)
EndFunc
Проблема:
при открытии файла (лог файрволла) в случае выбора в комбо-боксе количества строк больше, чем в файле-источнике функция вываливается с ошибкой. Помогите разобраться.
Ошибка происходит в месте
Код:
For $a=0 To 13 ;Assign each 13 dimensions to a new Array
$avArray[$a]=$string[$a]
next