[code]
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
- Ну и так 200 раз, а врезультате ошибка : Слишком большая процедура, что делать, помогите. Очень надо, принцып работы программы на это основан.
