nassimtaleb, это учебное задание и нужно считать и записать текстовый файл именно в таком формате?
Дело в том, что VBA имеет средства для записи массивов в файл целиком и последующего чтения. Но в текстовом редакторе такой файл имеет совсем другой вид.
Попробуйте
| Код |
|---|
Sub Prorab1()
Dim прораб(), работник()
прораб = Array("Вася", "Петя")
работник = Array("Женя", "Саша", "Андрей")
Open "c:\temp\prorab.txt" For Random As #1 'папка c:\temp\ должна существовать
Put 1, , прораб
Put 1, , работник
Close 1
End Sub
Sub Prorab2()
Dim прораб(), работник()
Open "c:\temp\prorab.txt" For Random As #1
Get 1, , прораб
Get 1, , работник
Close 1
Stop 'смотрите содержимое массивов в Locals
End Sub
|
