Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Загрузка текста в RichTextBox

15K
09 августа 2006 года
KAN
40 / / 08.08.2006
Добрый день!
Вопрос таков: Необходимо загрузить .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)

...не нравится тем, что мне необходимо делать анализ, а с таким поиском его делать просто невозможно :)
Если загружать файл построчно в массив - анализ удается, но загрузка одного файла занимает от 10минут....

Что можете посоветовать?

З.Ы. Суть анализа заключается в том, что я ищу допустим ошибку Instr'om, а потом мне надо вернуться на 2 строки наверх, чтобы узнать дату/время ошибки.
403
09 августа 2006 года
ace lighting
411 / / 05.05.2006
[QUOTE=KAN]
 
Код:
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)

[/QUOTE]
А зачем тебе такой код, ведь у тебя не Textbox а RICHTEXTBOX! можно использовать свойство RichTextBox1.find...
Попробуй...
15K
10 августа 2006 года
KAN
40 / / 08.08.2006
Цитата:
А зачем тебе такой код, ведь у тебя не Textbox а RICHTEXTBOX


Text1 - это поле ввода строки поиска.
За .find спасибо

А Всё-таки, есть к.-либо альтернативные методы/способы быстрой загрузки из файла, пусть даже не в RTB, а просто из файла в массив, построчно???

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог