Суть проблемы.\r
нужно сделать выделение всех найденных слов из одной таблицы в полях другой таблицы. \r
в моём топике /topic/45101&pg=2\r
мне посоветовали использовать RichTextBox\r
\r
вопрос по нему.....\r
из топика http://www.vbnet.ru/faq/showtopic.asp?id=323\r
написано \r
Private Sub Form_Load()\r
\'установите ссылку на любой файл в формате rtf или txt\r
RichTextBox1.FileName = "C:\\Мои документы\\courier.txt"\r
End Sub \r
\r
так же в http://www.vbnet.ru/faq/showtopic.asp?id=317\r
есть такое \r
Загрузить файл\r
RichTextBox1.LoadFile App.Path & "\\RTFText.rtf", rtfRTF\r
\r
или\r
\r
RichTextBox1.LoadFile App.Path & "\\RTFText.rtf", rtfText\r
\r
Я пишу :\r
Private Sub Form_Load()\r
\'установите ссылку на любой файл в формате rtf или txt\r
\'RichTextBox1.FileName = "C:\\heluk_19_01_04.txt"\r
\'вылезает ошибка : object doesn\'t support this property or method\r
\' если пишу так\r
RichTextBox1.LoadFile App.Path & "C:\\heluk_19_01_04.rtf", rtfText\r
\'вылезает ошибка : variable not defined\r
\r
В чём дело ??????? \r
П.С.\r
Или может мою задачу проще решить программированием в ворде ????\r
мне нужно смотреть- какой текст моя поисковая система нашла, а какой текст не нашла..... даже более важно- какой текст не нашла

пишу так
'RichTextBox1.LoadFile "C:\heluk_19_01_04.rtf", rtfRTF
ругается- variable not defined
пишу так
'RichTextBox1.LoadFile "C:\heluk_19_01_04.rtf"
ругается- object doesn't support this property or method

что за акуз ????????????????
файлы соответственно сужествуют по заданному адресу.......

В.С. может дело в чём нибудь другом...??
Все эти материалы взяты из http://www.vbnet.ru/faq/showtopic.asp?id=317
строка в строчку....

да ,вот ещё....
делаю пример с этого сайта пишу код

Private Sub Кнопка1_Click()
Dim lWhere, lPos As Long
Dim sTmp, sSearch As String
lPos = 1
'Здесь вы можете указать слово для поиска и замены
sSearch = "папа"
'поиск по всему тексту
Do While lPos < Len(Me.RichTextBox1.Text)
sTmp = Mid(Me.RichTextBox1.Text, lPos, Len(Me.RichTextBox1.Text))
lWhere = InStr(sTmp, sSearch)
lPos = lPos + lWhere
If lWhere Then 'если строка для поиска найдена
Me.RichTextBox1.SelStart = lPos - 2 'установить начало выделения
Me.RichTextBox1.SelLength = Len(sSearch) 'установить длину выделения
Me.RichTextBox1.SelColor = RGB(255, 0, 0) 'изменить цвет выделения красным цветом
Else
Exit Do
End If
Loop
End Sub

имя RichTextBox дал RichTextBox1 ,написал слово "папа" и нажал на кнопочку
пишет ошибку на строке
Me.RichTextBox1.SelColor = RGB(255, 0, 0) 'изменить цвет выделения красным цветом

Чё делать?? мужики!!!!

Мужики извиняйте..... это был RefEdit.Ctrl

ЛЮДИ Я В ШОКЕ...... делал выделение одного слова цветом в файле из 616000 символов-4000 строк экселя
хм... на процессоре Амд 2200 и памяти 256м....заняло времени 2 часа 22 мин 40 сек
на проц пент-2 цаст 200 и пам 160 мег выделяло 3 ч 14 мин............
это по коду из примера
Private Sub Êíîïêà1_Click()
Dim lWhere, lPos As Long
Dim sTmp, sSearch As String
Dim dn, dk, dr As Date
lPos = 1
dn = Time
sSearch = "кабел"
Do While lPos < Len(Me.RichTextBox1.Text)
sTmp = Mid(Me.RichTextBox1.Text, lPos, Len(Me.RichTextBox1.Text))
lWhere = InStr(sTmp, sSearch)
lPos = lPos + lWhere
If lWhere Then
Me.RichTextBox1.SelStart = lPos - 2
Me.RichTextBox1.SelLength = Len(sSearch) 'óñòàíîâèòü äëèíó âûäåëåíèÿ
'Me.RichTextBox1.Object.SelColor = RGB(255, 0, 0) 'èçìåíèòü öâåò âûäåëåíèÿ
Me.RichTextBox1.SelColor = RGB(255, 0, 0) 'èçìåíèòü öâåò âûäåëåíèÿ êðàñíûì öâåòîì
RichTextBox1.SelBold = True

RichTextBox1.SelItalic = True

RichTextBox1.SelUnderline = True

пытался улучшить код таким образом

Private Sub Êíîïêà4_Click()
Dim lPos, lPos1 As Long
Dim Length_word, i As Integer
Dim sTmp, sSearch As String
Dim dn, dk, dr As Date
lPos = 1
lPos1 = 0
i = 0
dn = Time

sSearch = "кабел"
Length_word = Len(sSearch)
Do

i = i + 1
lPos = InStr(lPos, Me.RichTextBox1.Text, sSearch)
If i = 1 Then
lPos1 = lPos
End If
If i <> 1 And lPos <= lPos1 + Length_word Then
Exit Do
End If
Me.RichTextBox1.SelStart = lPos 'óñòàíîâèòü íà÷àëî âûäåëåíèÿ
Me.RichTextBox1.SelLength = Length_word 'óñòàíîâèòü äëèíó âûäåëåíèÿ
lPos = lPos + Length_word
Me.RichTextBox1.SelColor = RGB(255, 0, 0)
RichTextBox1.SelBold = True

RichTextBox1.SelItalic = True

RichTextBox1.SelUnderline = True

Loop Until lPos = 0

работает быстрее на (2мин39сек--2м28сек)=11 сек (это 500 строчек-109000 символов)
но такие времена меня никак не устраивают.......
Да, если сделать в ворде- заменить все "кабель" на "0" ,то выполняется моментально....
Напоминаю, что у меня цель-увидеть- какой текст в строке был охвачен "вниманием " а какой нет, второе интересует больше!!!!
вопрос- Как улучшить это дело ?????????????77

хочу добить наболевшую для меня тему...но уже давно нужно сделать форматирование текста в строках
вопрос
как контроллу RichTextBox передать результат запроса ????? мне приходит на ум 2 решения
1) запрос сохранять в таблицу, таблицу сохранять в формате тхт ,а затем
применять RichTextBox1.LoadFile "с:\RTFText.тхт"
вопрос- как сохранить запрос или таблицу в тиде тхт или rtf файла
2) создать рекордсет и переменную str as string
пробежаться по рекордсету и весь рекордсет записать в виде одной большой строки с "enter" как переход на "новую строку"

Посоветуйте типичное и наилучшее решение !!??

неужели ни у кого нет идей!???

вопрос с выделением части поля в аксессе уже спрашивался неоднократно, и вразумительного ответа до конца не имеет. Поэтому я решил добить эту тему здесь, а не летать из форума в форум.
AlexJuice -что, где и как работать не будет ???

хм... ткните меня носом на Вариант...!!??? ,вродиб всё объявил явно и без них...
да... кому интересно.......
сделал такой эксперимент:
одно могу сказать ,что в ворде это делается девствительно "мгновенно"
мастером делаю заменить все слова "кабель" на "кабель" и применяю форматирование
тот же файл который у меня обрабатывался 2,5 часа- обрабатывается за 16 секунд с учётом большего форматирования, считывания файла и записи... в rtf
затем затем загружаешь этот файл в RichTextBox и наслаждаешься сделанным

Спасибо!!!!! от души...
никогда не обращал внимания на такую грубейшую ошибку......
можно сделать фак или он даже может быть есть под названием..
"Грубейшие ошибки или как не нужно програмировать"....
мою ошибку можно записать первым пунктом ,как самую детскую.....
да... только почему то время выпонения только чуть- чуть увеличилось... но это может быть не из за этого....

У меня осталась не реализованой ещё одна идея... видимо ,очень много времени занимает перерисовка richtextbox_а при выполнении программы....
(т.к. я вижу как выделяется искомое слово и если слово находится ниже бокса- текст "поднимается")
я хочу скрыть бокс ,выполнить процедуру ,а затем опять показать
я пишу
Private Sub Кнопка23_Click()
Me.RichTextBox1.Visible = False
' обработка поиска
Me.RichTextBox1.Visible = True
End Sub
хм.. у меня бокс пропадает, и , затем появляется с данными, которые у меня загружаются на событии лоад....
что это за ерунда ???