Хранение кусков RTF-Текста в файле

[Albert]

Смысл такой:
Мне нужно открыть моей программулиной (на vb6) текстовый файл имеющий следующую структуру:

Flag
RTF-текст...
............
............
Flag
RTF-текст...
............
............
Flag
RTF-текст...
............
............

***


Нужно программно считать эти куски RTF-текста и поместить в Строковый массив (Для последующего вывода их на экран, щелкая нужную кнопку)!
Внимание вопрос: Как быстрее это сделать??
Так как куски RTF-текста могут быть большими, то при построчном чтении файла на это уходит много времени!
Может вначале все считать в переменную, а потом резать, не знаю!

Может вообще попытаться как то по другому организовать хранение??? У кого какие идеи???

[ANDLL]

построчно пробегать.
Либо хранить в бинарных структурах(что рекомендую)
Типа
Type A
RTFs() as String
end Type
и считывать\записывать Put\Get'ом.

[Albert]

Я построчно и читаю, только при открытии (или сохранении) такого файла на это уходит много времени (Например файл 400к открывается примерно 4 сек).
Считываю и записываю я при этом Line Input и Print.
Если пользоваться Put/Get это будет быстрее????

И еще! Чтобы хранить в бинарных структурах, файл надо сначало считать и разбить на элементы массива, а в этом вся и проблема!

[Albert]

Да, и еще, если создавать файл произвольного доступа, то записи в нем должны по длине быть одинаковыми! А у меня куски RTFтекста могут быть разной длины!!! Или я не прав??? Подскажите выход!

[Amed]

Записи могут быть произвольной длины, ведь каждый следующий кусок RTF-кода отмечается флагом.

Лучше сразу читать весь файл в одну большую строковую переменную или массив байт, потом резать на куски вручную. На форуме были обсуждения вариантов переброса массива байт в String, ищите.

[Albert]

Т.е. быстрее способа нет, как всё считать в строковую переменную и потом, уже просматривая ее, вытаскивать эти куски текста между флагами??? Может вообще, какой нибудь, в принципе, другой подход использовать???

[Amed]

А чем такой способ не быстр?

Читать надо не построчно, а одним махом.
Затем InStr'ом ищем флаг (очередной RTF-кусок) и mid$'ом вытаскиваем его.

[Albert]

Смысл я понял!
А если файл большой (несколько мегабайт)??? ЕГо содержимое влезит в String?????

[Konst_One]

если памяти у компа хватит, то влезит

[Albert]

Реализовал вышепредложенное! Блин... скорость практически не изменилась

[Amed]

Код в студию. Иначе по сути дела ничего сказать и поправить не сможем.

Какая была скорость раньше, и насколько изменилась?

[Albert]

Массив MasBVO As String!

Код: Выделить всё



sFile = "Имя_файла"
 
  'Считываем весь файл
  intFH = FreeFile()
  Open sFile For Input As intFH
    strFileAll = Input$(LOF(intFH), intFH)
  Close intFH  'Закрытие файла
  MasStrFileAll = Split(strFileAll, vbCrLf)

'Определение кол-ва "кусков" 
  NQA = 0
  For i = 3 To UBound(MasStrFileAll) - 1
    st = Crypt(MasStrFileAll(i), i + 1)  'Дешифровка строки
    If (Mid(st, 1, 5)="Parnt")Or(Mid(st, 1, 5)="Child") Then
       NQA = NQA + 1
    End If   
  Next i

'Заполнение массива
ReDim MasBVO(NQA)

Num = 0
  For i = 0 To UBound(MasStrFileAll) - 1   
    Select Case Mid(st, 1, 5)
      Case "Parnt" 'Считан родитель
           Num = Num + 1
           MasBVO(Num) = MasStrFileAll(i)
      Case "Child" 'Считан потомок
           Num = Num + 1
           MasBVO(Num) = MasStrFileAll(i)     
      Case Else 'если продолжение на следующей строке
           MasBVO(Num) = MasBVO(Num) & vbCrLf & MasStrFileAll(i) '<= это и тормозит
    End Select
  Next i

'Массив MasStrFileAll индексируется с 0 (Split'ом)
'Массив MasBVO с 1

'Массив MasStrFileAll вспомагательный! Важно заполнить массив MAsBVO


[Albert]

Ну так что???? Впринципе всё в памяти делаю! Весь файл один раз считал и всё! А всё равно скорость маленькая! Как быстрее???

[Amed]

Незачем разбивать файл на строки.
Предлагаю по-другому.

1) читаем файл в строку

'Считываем весь файл
intFH = FreeFile()
Open sFile For Input As intFH
strFileAll = Input$(LOF(intFH), intFH)
Close intFH 'Закрытие файла

2) в цикле InStr'ом ищем два соседних Flag'а. То, что между ними - нужный RTF-код, который и записываем в strRTF(i).

[Amed]

Ну вот так примерно

Код: Выделить всё

Option Explicit

Private Sub Form_Load()
Dim stext As String, flag As String
Dim strRTF() As String

Dim i As Long, j As Long, k As Long
flag = "FLAG"
stext = "FLAGfgetregfmkFLAGfeterfFLAG"

i = InStr(1, stext, flag)
Do
    j = InStr(i + 1, stext, flag)
    If j > 0 Then
        ReDim Preserve strRTF(k)
        strRTF(k) = Mid$(stext, i + Len(flag), j - i - Len(flag))
        k = k + 1
    Else
        Exit Do
    End If
    i = j
Loop

MsgBox strRTF(0) & vbCrLf & strRTF(1)
End Sub

Только одно НО. В моем коде нужно, чтобы файл заканчивался на FLAG. Переправить - минута

[Albert]

Сейчас попробую! Только у меня флаги двух типов!

[Ruslan Demidow]

А что мешает считать весь файл в память в строковую переменную strTxt, а потом через Split преобразовать текст в массив используя в качестве разделителя флаги? Имхо так будет намного быстрее, чем через Mid.