Firestarter
Новичок
- Сообщения
- 54
- Репутация
- 0
День добрый. Нужно узнать наименьшее число в массиве.
Массив хранится в файле сл.содержания:
Наваял скрипт:
Не пойму в чем проблема, скрипт не находит значения из массива, которые меньше 100.
Ума не приложу, почему?
В данной ситуации находит наименьшее значение "Х" -171 а не 71
Массив хранится в файле сл.содержания:
Код:
1-2171-561
1-71-561
1-2171-561
1-171-561
Наваял скрипт:
Код:
$gather_filename = "path.txt"
$hFile = FileOpen($gather_filename, 0)
$sText = FileRead($hFile)
FileClose($hFile)
$sText = StringReplace($sText, '-', @TAB)
$iAr = @extended
If Not $iAr Then Exit
$aRead = StringSplit(StringStripCR($sText), @LF)
Dim $zCoord[$iAr + 1], $xCoord[$iAr + 1], $yCoord[$iAr + 1]
For $i = 1 To $aRead[0]
If StringInStr($aRead[$i], @TAB) Then
$aSplit = StringSplit($aRead[$i], @TAB, 2)
$zCoord[0] += 1
$zCoord[$zCoord[0]] = $aSplit[0]
$xCoord[0] += 1
$xCoord[$xCoord[0]] = $aSplit[1]
$yCoord[0] += 1
$yCoord[$yCoord[0]] = $aSplit[2]
EndIf
Next
$xMin = $xCoord[1]
$yMin = $yCoord[1]
For $a = 2 to $xCoord[0]
$x = $xCoord[$a]
$y = $yCoord[$a]
If $x < $xMin Then
$xMin = $x
EndIf
If $y < $yMin Then
$yMin = $y
EndIf
Next
MsgBox (0, "!", "x:" & $xMin & " y:" & $yMin & " " & $a)
Не пойму в чем проблема, скрипт не находит значения из массива, которые меньше 100.
Ума не приложу, почему?
В данной ситуации находит наименьшее значение "Х" -171 а не 71