Найдите ошибку!

[Cyrax]

2RayShade: согласен по поводу отладки своего кода. а про пофиксеный код - это сори, начал со второй страницы читать, да и в код особенно не вчитывался.

[FaKk2]

2 RayShade
Добрый ты какой........

Не все такм ты прав, надо БОЛЬШИМИ буквами написать:
ИСПОЛЬЗУЙТЕ DEBUG!!!!!!!

[Dimanq]

Конечно, ен знаю, но всё тоже самое. Мне кажется код не рабочий. Попытаюсь сам отладить, но на мой взгляд это не поможет, но все равно большое человеческое спасибо!

P.S. Если что-нибудь, касаемое этого кода в голову придёт, напишите please!!

[Cyrax]

так и хочется выругатся!!!!!!!!!!!!!

держи свою процедуру

нормально она работает

Код: Выделить всё

Sub LoadFile()
    FileHandler = FreeFile
    Open "vopr.txt" For Input As FileHandler
   
    Do Until EOF(FileHandler)
        Line Input #FileHandler, tmps
        If Len(tmps) > 2 Then
            a = InStr(tmps, "(")
            b = InStr(tmps, ",")
            c = InStr(tmps, ")")
           
            i = Val(Mid$(tmps, a + 1, b - a))
            j = Val(Mid$(tmps, b + 1, c - b))
           
            tmps = Trim$(Right$(tmps, Len(tmps) - InStr(tmps, "=")))
            tmps = Mid$(tmps, 2, Len(tmps) - 2)
           
            arr(i, j) = tmps
           
        End If
    Loop
    Close FileHandler
End Sub