VBA - [решено] помогите загрузить строку в массив из файла (или textbox)

VBA - [решено] помогите загрузить строку в массив из файла (или textbox)

viabcua

Пользователь

Автор проектов

Сообщения: 66
Благодарности: 22

Конфигурация

Профиль | Отправить PM | Цитировать

Здравствуйте! помогите пожалуйста!
Пытаюсь загрузить одну строку в массив из текстового документа (или textbox). И вылетают ошибки типа "несответствие типов", "нижний индекс вне диапазона.....

так все работает

Код:

Dim UserOtvet As Variant
Dim Otvet As Variant

UserOtvet = Array(0, 0, 0, 0, 0, 0, 0, 0, 0, 0)

Otvet = Array(2, 0, 4, 4, 1, 0, 0, 1, 1, 3)

а так нет

Код:

Dim UserOtvet As Variant
Dim Otvet As Variant
Dim f As Variant

UserOtvet = Array(0, 0, 0, 0, 0, 0, 0, 0, 0, 0)

f = FreeFile
Open "1.txt" For Input As #f
     otvet = Split(Input(LOF(f), #f), ",")
Close #f

содержимое 1.txt

Код:

2, 0, 4, 4, 1, 0, 0, 1, 1, 3

Или может у кого есть код для загрузки строки в массив.

Заранее благодарен!

P.S. Простите за тупость, я только учусь програмированию

-------
- Дайте мне вон-ту планку памяти! - А она вам подойдет? - Если чё, я отрежу. (реальный случай в СЦ)

Отправлено: 21:09, 17-08-2012

viabcua

Пользователь

Автор проектов

Сообщения: 66
Благодарности: 22

Профиль | Отправить PM | Цитировать

Код:

 Dim UserOtvet As Variant
Dim Otvet() As Long, i As Long
Dim f As Variant
 
UserOtvet = Array(0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
 
f = FreeFile
Open "c:\1.txt" For Input As #f
ReDim Otvet(0 To LOF(f) \ 2) 'размер с запасом
Do Until EOF(f)
    Input #f, Otvet(i)
    i = i + 1
Loop
Close #f
ReDim Preserve Otvet(i - 1)

-------
- Дайте мне вон-ту планку памяти! - А она вам подойдет? - Если чё, я отрежу. (реальный случай в СЦ)

Это сообщение посчитали полезным следующие участники:

Delirium

Отправлено: 14:22, 18-08-2012 | #2