Огромная процедура (Ну или комп загнулся)

[Ramzes]

Помогите, кто чем может...

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

If Number.Caption = "1" Then
Open App.Path & "\data\klips\adress\1.txt" For Input As #1
Do Until EOF(1)
Line Input #1, txt
adrtxt = adrtxt + txt
Loop
Close #1
Adresstxt.Text = adrtxt
Open App.Path & "\data\klips\name1.txt" For Input As #2
Do Until EOF(2)
Line Input #2, txt
namtxt = Nametxt + txt
Loop
Close #2
Nametxt.Text = namtxt
End If
[list]
и так 200 раз, и в результате ошибка, что делать???[/list]

[Ramzes]

Видимость процедуры - Private
Ошибка - Слишком большая процедура

[Urvin]

а почему бы не заменять символы vbCrLf на "" (ничего)? и так 200 раз?

[Ramzes]

А где ты там нашел VBCrLf? Ты что вообще код не читаешь, и дело то совсем не в этом, прочитай тему внимательно

[A.A.Z.]

Попробуй разбить на несколько, например:

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

Private Sub N1()
If Number.Caption = "1" Then
Open App.Path & "\data\klips\adress\1.txt" For Input As #1
Do Until EOF(1)
Line Input #1, txt
adrtxt = adrtxt + txt
Loop
Close #1
Adresstxt.Text = adrtxt
N2
End Sub

Private Sub N2()
Open App.Path & "\data\klips\name1.txt" For Input As #2
Do Until EOF(2)
Line Input #2, txt
namtxt = Nametxt + txt
Loop
Close #2
Nametxt.Text = namtxt
End If
N3
End Sub

Private Sub N3
...
N4
End Sub

...


[Ramzes]

Я попробывал, но,... Во-первых- такие дела мне не подходят, а вовторых, дальше тоже самое...

[RayShade]

1) Читаем Q129897

Там написано почему



2) В принципе там же предложен и способ разбиения процедуры на куски поменьше. Если это не подходит, то вообще то положено пользоваться циклами...

[Ramzes]

Всем Спасибо, решением моей проблемы была переустановка Windows XP на Старушку 98, так - что теперь работает, и кроме всего прочего, разбил процедуру на 5 частей.