Загрузка текста в RichTextBox
Вопрос таков: Необходимо загрузить .log файл в rtb. Размер лога колеблется от 100к до 1,5М.
Я загружаю приблизительно так:
Код:
RTB1.LoadFile CD1.Filename
...всё замечательно, но мне не нравится поиск:
Код:
If Text1.Text = "" Then Exit Sub
On Error Resume Next
RTB1.SetFocus
RTB1.SelStart = InStr(f, RTB1.Text, Text1.Text) - 1
RTB1.SelLength = Len(Text1.Text) + 1
f = InStr(f, RTB1.Text, Text1.Text) + Len(Text1.Text)
On Error Resume Next
RTB1.SetFocus
RTB1.SelStart = InStr(f, RTB1.Text, Text1.Text) - 1
RTB1.SelLength = Len(Text1.Text) + 1
f = InStr(f, RTB1.Text, Text1.Text) + Len(Text1.Text)
...не нравится тем, что мне необходимо делать анализ, а с таким поиском его делать просто невозможно :)
Если загружать файл построчно в массив - анализ удается, но загрузка одного файла занимает от 10минут....
Что можете посоветовать?
З.Ы. Суть анализа заключается в том, что я ищу допустим ошибку Instr'om, а потом мне надо вернуться на 2 строки наверх, чтобы узнать дату/время ошибки.
Код:
If Text1.Text = "" Then Exit Sub
On Error Resume Next
RTB1.SetFocus
RTB1.SelStart = InStr(f, RTB1.Text, Text1.Text) - 1
RTB1.SelLength = Len(Text1.Text) + 1
f = InStr(f, RTB1.Text, Text1.Text) + Len(Text1.Text)
On Error Resume Next
RTB1.SetFocus
RTB1.SelStart = InStr(f, RTB1.Text, Text1.Text) - 1
RTB1.SelLength = Len(Text1.Text) + 1
f = InStr(f, RTB1.Text, Text1.Text) + Len(Text1.Text)
[/QUOTE]
А зачем тебе такой код, ведь у тебя не Textbox а RICHTEXTBOX! можно использовать свойство RichTextBox1.find...
Попробуй...
Цитата:
А зачем тебе такой код, ведь у тебя не Textbox а RICHTEXTBOX
Text1 - это поле ввода строки поиска.
За .find спасибо
А Всё-таки, есть к.-либо альтернативные методы/способы быстрой загрузки из файла, пусть даже не в RTB, а просто из файла в массив, построчно???