VBNet - Форум - Сравнение содержимого двух RichTextBox-ов

Вопрос: Сравнение содержимого двух RichTextBox-ов Добавлено: 14.01.09 22:56

Автор вопроса: Яр

Доброго времени, знатоки!
Помогите, пожалуйста, решить следующую задачку.
Есть два RichTextBox - а, в которые можно вставлять как текст (или набирать), так и рисунки. Рисунки должны быть обязательно!!! (Могут быть и другие объекты).
Есть кнопка, при нажатии на которую должно происходить сравнение содержимого одного RichTextBox - а с содержимым другого. Если содержимое одинаковое, то выдается сообщение: "Одинаковые". Если содержимое разное, то выдается сообщение: "Разные".
Как осуществить это сравнение?
Спасибо.
Ответить

Ответы Всего ответов: 7

Номер ответа: 1 Автор ответа: VβÐ Вопросов: 15 Ответов: 194	Web-сайт: www.homacosoft.com Профиль \| Цитата \| #1	Добавлено: 15.01.09 11:34
	if richtextbox1.textrtf = richtextbox2.textrtf then msgbox "Жрать!" else msgbox "Жрать!" end if Ответить

Номер ответа: 2 Автор ответа: Alex Вопросов: 10 Ответов: 131	Профиль \| Цитата \| #2	Добавлено: 15.01.09 12:44
	VBD жгёш ))))) Ответить

Номер ответа: 3 Автор ответа: Alex Вопросов: 10 Ответов: 131	Профиль \| Цитата \| #3	Добавлено: 15.01.09 12:48
	На крайний случай можно сохранить содержимое первого и второго RichTextBox(а) и сравнить на идентичность 2 файла, но вариант VBD лучше )) Ответить

Номер ответа: 4 Автор ответа: Яр Вопросов: 18 Ответов: 24	Профиль \| Цитата \| #4	Добавлено: 15.01.09 15:07
	VBD! Ваш вариант я изначально пробовал. В принципе он работает, но если в RichTextBox-ах (кроме текста) присутствует формула, созданная редактором формул, или картинка, то бывает, что при сравнении RichTextBox-ов с одинаковым содержимым выдается сообщение, что они разные. Бывает это нечасто, но бывает, и в чем причина - я не понимаю. Именно поэтому я задал свой вопрос. Alex! Если можно, приведите, пожалуйста, пример как можно сохранить содержимое первого и второго RichTextBox(а) и сравнить на идентичность 2 файла. Извините за необразованность, но я в VB новичок. Может есть еще какие-нибудь способы? Спасибо! Ответить

Номер ответа: 5 Автор ответа: Alex Вопросов: 10 Ответов: 131	Профиль \| Цитата \| #5	Добавлено: 15.01.09 16:13
	Яр я тоже новичок первое что тебе нужно сделать это сохранить содержимое текстбоксов делается это так: a = "C:\1fail.rtf" RichTextBox1.SaveFile (a) После того как сохранишь начинай сравнивать, для этого есть код, вот он (нашёл в рассылке VBnet) ничего не менял (думаю догадаешься) ‘Сравнить два файла на идентичность Private Sub Form_Load() 'замените пути файлов, которые вы хотите сравнить Open "C:\1\convert1bmp.htm" For Binary As #1 Open "C:\1\convert2bmp.htm" For Binary As #2 issame% = True If LOF(1) <> LOF(2) Then issame% = False Else whole& = LOF(1) \ 10000 part& = LOF(1) Mod 10000 buffer1$ = String$(10000, 0) buffer2$ = String$(10000, 0) start& = 1 For X& = 1 To whole& Get #1, start&, buffer1$ Get #2, start&, buffer2$ If buffer1$ <> buffer2$ Then issame% = False Exit For End If start& = start& + 10000 Next buffer1$ = String$(part&, 0) buffer2$ = String$(part&, 0) Get #1, start&, buffer1$ Get #2, start&, buffer2$ If buffer1$ <> buffer2$ Then issame% = False End If Close If issame% Then MsgBox "Файлы идентичны", 64, "Info" Else MsgBox "Файлы НЕ идентичны", 16, "Info" End If End Sub Ответить

Номер ответа: 6 Автор ответа: Alex Вопросов: 10 Ответов: 131	Профиль \| Цитата \| #6	Добавлено: 15.01.09 16:14
	Амм еслси заработает постявь + )))) Ответить

Номер ответа: 7 Автор ответа: Яр Вопросов: 18 Ответов: 24	Профиль \| Цитата \| #7	Добавлено: 15.01.09 21:43
	Ура! Заработало!!! Спасибочки!!! P.S. А что значит: "постявь + ))))"? Я чего-то не понял. Ответить

Страница: 1 |