Function collapses incorrectly
Murenysh opened this issue · comments
Screenshot:
https://prnt.sc/yoL9ZDJfaeiG
If I translate the comments into English, the problem disappears
Func _GetBaseListFromFile()
Local $arrList[0][2]
$BaseListFileName = @AppDataDir & "\1c\1cestart\ibases.v8i"
$hRead = FileOpen($BaseListFileName, 0) ; Открываем файл для чтения
$count = 0
$arcount = 0
While 1
$count = $count + 1
$sLine = FileReadLine($hRead) ; Строка из файла
If @error = -1 Then
ExitLoop ;Если конец файла выход из цикла
EndIf
If StringLeft($sLine, 1) = "[" And StringRight($sLine, 1) = "]" Then
$IBName = $sLine
$NextString = True
Else
If $NextString = True Then
_ArrayAdd($arrList, $IBName, 0)
$arrList[$arcount][1] = $sLine
$arcount = $arcount + 1
EndIf
$NextString = False
EndIf
WEnd
Return $arrList
EndFunc ;GetBaseListFromFile()
FYI, this issue appears to be resolved when I test with the latest code base.
@Murenysh Can you retest on the latest release?