Чтение файла с конца к началу построчно и побайтово. / Visual Basic

2.0.51

Полная версия Контакт Правила FAQ Помощь

Гость

Нов. | Гор. | Избр.

Действия ...

Доб. в избранное
Игнор. тему
Прикреп. тему
Пометить прочит. / непрочит.
Фильтр:
Сообщения автора темы
Сообщение содержит вложения
Сообщение содержит картинки
Сообщение содержит видеоклипы
Сообщение содержит аудиоклипы
Сообщение содержит картинки или видео 18+

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Чтение файла с конца к началу построчно и побайтово. / 5 сообщений из 5, страница 1 из 1

15.10.2015, 12:06

#39077452

Эрик Скабичевский

Участник

Откуда: Москва
Сообщения: 207
Рейтинг: 0 / 0

Чтение файла с конца к началу построчно и побайтово.

Добрый день...

Подскажите, каким образом читать текстовый файл (лежит на диске) в VBA for Excel,
начиная с определённой позиции от конца файла и до его - файла, начала.
Необходимо для некоторой выборки.

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

15.10.2015, 12:28

#39077475

Akina

Участник

Откуда: Зеленоград, Москва, Россия
Сообщения: 20 644
Рейтинг: 0 / 0

Чтение файла с конца к началу построчно и побайтово.

То есть задача - читать байты в реверсированном порядке, что ли?
Ну тогда самое разумное - прочитать весь файл (либо его часть от начала до заданной точки, либо некий блок от середины до заданной точки) в память, там реверсировать и работать с полученными данными.
Я бы использовал FSO.FileStream.ReadAll, а если файл реально большой - то FOR RANDOM и чтение блоками 1..4 Мбайт.

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

15.10.2015, 13:07

#39077536

Эрик Скабичевский

Участник

Откуда: Москва
Сообщения: 207
Рейтинг: 0 / 0

Чтение файла с конца к началу построчно и побайтово.

Akina,

Есть больших размеров текстовый столбец. 15 Gbyte.
В нём сверху вниз идёт информация в виде строк.
Каждая строка заканчивается на CRLF.
В части строк есть ключевой заголовок:
Тема такая-то.

В результате получаю на входе :
Тема1
данные_тип1
данные_тип1
данные_тип1
данные_тип3
данные_тип5
данные_тип1

Тема2
данные_тип4
данные_тип4
данные_тип4
данные_тип3
данные_тип5
данные_тип4

Тема3
данные_тип5
данные_тип5
данные_тип1
данные_тип3
данные_тип5
данные_тип5

Не могу сообразить, как создать запрос: в каких темах содержится например данные_тип1.

Тут на C++ вовсю обсуждают.

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

15.10.2015, 13:08

#39077539

Эрик Скабичевский

Участник

Откуда: Москва
Сообщения: 207
Рейтинг: 0 / 0

Чтение файла с конца к началу построчно и побайтово.

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

15.10.2015, 13:37

#39077601

Akina

Участник

Откуда: Зеленоград, Москва, Россия
Сообщения: 20 644
Рейтинг: 0 / 0

Чтение файла с конца к началу построчно и побайтово.

Эрик СкабичевскийВ результате получаю на входе :
Тема1
данные_тип1
данные_тип1
данные_тип1
данные_тип3
данные_тип5
данные_тип1

Тема2
данные_тип4
данные_тип4
данные_тип4
данные_тип3
данные_тип5
данные_тип4

Тема3
данные_тип5
данные_тип5
данные_тип1
данные_тип3
данные_тип5
данные_тип5

Не могу сообразить, как создать запрос: в каких темах содержится например данные_тип1.
Эммм... "на входе" - это уже явно не файл на диске, а поток данных (textstream, точнее). Тогда я бы решал задачу приблизительно так:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.

theme=""
data=""
ts=FSO.File(filename).OpenAsTextStream
' ts.Read(StaringSeekPointer)
Do Until ts.AtEndOfStream ' OR ts.Seek > EndSearchPointer
temp=ts.ReadLine
Case Datatype(temp)
  Case is_theme(temp)
    theme=temp
  Case Else
    If temp = "data_type1" Then
      Print theme
    End If
  End Case
Loop
ts.Close

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&tablet=1&tid=2155763]:	0ms
get settings:	9ms
get forum list:	12ms
check forum access:	3ms
check topic access:	3ms
track hit:	39ms
get topic data:	12ms
get forum data:	2ms
get page messages:	43ms
get tp. blocked users:	2ms
others:	13ms

total:	138ms