Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/прочитать текст из файла ТхТ и записать строки в массив - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » прочитать текст из файла ТхТ и записать строки в массив (Макросы/Sub)
прочитать текст из файла ТхТ и записать строки в массив
АндрейФед Дата: Вторник, 03.02.2015, 16:07 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Добрый день.
У меня следующая проблема. Есть текстовый файл, в нем несколько строк. Читать файл получается с помощью следующего кода:
[vba]
Код
Sub Test()
Open "file.txt" For Input As #1
Dim s As String
While Not EOF(1)
Input #1, s
Wend
Close #1
End Sub
[/vba]
Подскажите как значения строк s записать в одномерный массив. Пытался объявить массив внутри While Not - Wend, не работает.
Благодарю заранее
[moder]Используйте теги. Для кода VBA - кнопка #

Andrey
 
Ответить
СообщениеДобрый день.
У меня следующая проблема. Есть текстовый файл, в нем несколько строк. Читать файл получается с помощью следующего кода:
[vba]
Код
Sub Test()
Open "file.txt" For Input As #1
Dim s As String
While Not EOF(1)
Input #1, s
Wend
Close #1
End Sub
[/vba]
Подскажите как значения строк s записать в одномерный массив. Пытался объявить массив внутри While Not - Wend, не работает.
Благодарю заранее
[moder]Используйте теги. Для кода VBA - кнопка #
Автор - АндрейФед
Дата добавления - 03.02.2015 в 16:07
Hugo Дата: Вторник, 03.02.2015, 16:24 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3254
Репутация: 707 ±
Замечаний: 0% ±

2019
Или так:
[vba]
Код
Arr = Split(CreateObject("Scripting.FileSystemObject").Getfile(iTempPath$).OpenasTextStream(1).ReadAll, vbNewLine)
[/vba]

excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеИли так:
[vba]
Код
Arr = Split(CreateObject("Scripting.FileSystemObject").Getfile(iTempPath$).OpenasTextStream(1).ReadAll, vbNewLine)
[/vba]
Автор - Hugo
Дата добавления - 03.02.2015 в 16:24
АндрейФед Дата: Вторник, 03.02.2015, 16:39 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Спасибо, только как в этом случае просмотреть элементы массива.
Я предполагал объявить массив
redim F(n), записать (F(1)- первая строка, F(2)- вторая строка, F(n)- n ная строка), и далее иметь возможность работать с элементами массива.

Andrey
 
Ответить
СообщениеСпасибо, только как в этом случае просмотреть элементы массива.
Я предполагал объявить массив
redim F(n), записать (F(1)- первая строка, F(2)- вторая строка, F(n)- n ная строка), и далее иметь возможность работать с элементами массива.
Автор - АндрейФед
Дата добавления - 03.02.2015 в 16:39
Hugo Дата: Вторник, 03.02.2015, 16:51 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3254
Репутация: 707 ±
Замечаний: 0% ±

2019
Arr(0) - первая строка и т.д.
Используйте при отладке окно Locals - и не будет таких вопросов.

Да, кстати - иногда (редко) vbnewline не срабатывает, тогда попробуйте vblf или vbcr.

excel@nxt.ru
webmoney: E265281470651 Z422237915069

Сообщение отредактировал Hugo - Вторник, 03.02.2015, 16:55
 
Ответить
СообщениеArr(0) - первая строка и т.д.
Используйте при отладке окно Locals - и не будет таких вопросов.

Да, кстати - иногда (редко) vbnewline не срабатывает, тогда попробуйте vblf или vbcr.
Автор - Hugo
Дата добавления - 03.02.2015 в 16:51
АндрейФед Дата: Вторник, 03.02.2015, 17:02 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Большое спасибо

Andrey
 
Ответить
СообщениеБольшое спасибо
Автор - АндрейФед
Дата добавления - 03.02.2015 в 17:02
Мир MS Excel » Вопросы и решения » Вопросы по VBA » прочитать текст из файла ТхТ и записать строки в массив (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!