VBNet - Форум - Загрузить в RichTextBox текст из файлов

Вопрос: Загрузить в RichTextBox текст из файлов Добавлено: 06.03.06 12:56

Автор вопроса: [root] | Web-сайт: bit.pirit.info

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

Во второй РТБ(он не виден) загружаю второй файл, помещаю текст в буфер
и косяк!

RichTextBox1.FileName = App.Path & "\text\1.rtf"
RichTextBox2.FileName = App.Path & "\text\2.rtf"
Clipboard.SetText RichTextBox2.TextRTF, vbCFRTF

RichTextBox1.TextRTF = RichTextBox1.TextRTF & vbCrLf & vbCrLf & _
Clipboard.GetText(vbCFRTF)

А через Ctrl + C все вставляется!
?

Ответить

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

Номер ответа: 1 Автор ответа: AsHeS ICQ: 229759992 Вопросов: 14 Ответов: 93	Профиль \| \| #1	Добавлено: 06.03.06 13:00
	RichTextBox1.TextRTF = RichTextBox1.TextRTF & vbCrLf & vbCrLf & _ RichTextBox2.TextRTF А так низя ? Ответить

Номер ответа: 2 Автор ответа: [root] Вопросов: 45 Ответов: 1212	Web-сайт: bit.pirit.info Профиль \| \| #2	Добавлено: 06.03.06 13:22
	Сам пробовал? Низя, я и сам не пойму Ответить

Номер ответа: 3 Автор ответа: [root] Вопросов: 45 Ответов: 1212	Web-сайт: bit.pirit.info Профиль \| \| #3	Добавлено: 06.03.06 13:24
	Мне важно форматирование, а так допустим оно не сохраняется: RichTextBox1.Text = RichTextBox1.Text & vbCrLf & vbCrLf & _ RichTextBox2.Text Ответить

Номер ответа: 4 Автор ответа: [root] Вопросов: 45 Ответов: 1212	Web-сайт: bit.pirit.info Профиль \| \| #4	Добавлено: 06.03.06 14:05
	SendKeys "^{END}" SendKeys "^V" ГЫ, еще варианты Ответить

Номер ответа: 5 Автор ответа: [root] Вопросов: 45 Ответов: 1212	Web-сайт: bit.pirit.info Профиль \| \| #5	Добавлено: 06.03.06 15:10
	Млин, но : SendKeys "^{END}" SendKeys "^V" учитывает раскладку клавиатуры, т.е. если стоит англ, то все гуд, а если русская, то не гуд. Люди хелп Ответить

Номер ответа: 6 Автор ответа: LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822	Профиль \| \| #6	Добавлено: 06.03.06 16:02
	У меня, к примеру, работал такой код Option Explicit Private Sub Form_Load() Dim TmpStr As String, hFile As Long RichTextBox1.LoadFile "C:\Program Files\iTunes\Acknowledgements.rtf" hFile = FreeFile Open "C:\Program Files\Microsoft Visual Studio\MSDN98\98VSa\1033\SAMPLES\VFP98\Solution\Forms\WHATTHIS.RTF" For Input As hFile TmpStr = Input(LOF(hFile), hFile) Close hFile RichTextBox1.SelStart = Len(RichTextBox1.TextRTF) RichTextBox1.SelRTF = TmpStr End Sub Ответить

Номер ответа: 7 Автор ответа: [root] Вопросов: 45 Ответов: 1212	Web-сайт: bit.pirit.info Профиль \| \| #7	Добавлено: 06.03.06 16:54
	LamerOnLine: Спасибо. Но если нужно будет 5-7 файлов в один РТБ, массивно будет А сколько Кило в РТБ можно загрузить? Есть еще у кого мысли Ответить

Номер ответа: 8 Автор ответа: LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822	Профиль \| \| #8	Добавлено: 06.03.06 17:09
	Чего тут массивного? Естественно, будут отъедать памяти как 5-7 файлов, но так это у тебя задача такая. Или ты их зазиповать еще хочешь? Или ты насчет TmpStr? Она вообще там не нужна, можно напрямую присваивать, просто я че-то там с ней делал. В любом случае, она убивается при выходе из процедуры. Ответить

Номер ответа: 9 Автор ответа: [root] Вопросов: 45 Ответов: 1212	Web-сайт: bit.pirit.info Профиль \| \| #9	Добавлено: 06.03.06 17:49
	нет зиповать не буду, просто может быть много файлов. Ответить

Номер ответа: 10 Автор ответа: LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822	Профиль \| \| #10	Добавлено: 06.03.06 18:31
	Ну, тогда два варианта после чего мне нужно еще добавить текст 1. Не добавлять текст чтобы тот старый тоже остался и не удалился 2. Удалить старый ЗЫ Вообще трудно понять чего ты хочешь. Можешь считывать файлы поблочно, но тогда дебе придется самому парсить rtf формат. Можно провернуть фишку с Sel... но в случае всяких таблиц и рисунков глюков не оберешься. Ответить

Номер ответа: 11 Автор ответа: [root] Вопросов: 45 Ответов: 1212	Web-сайт: bit.pirit.info Профиль \| \| #11	Добавлено: 06.03.06 19:30
	но в случае всяких таблиц и рисунков глюков не оберешься Не на таблиц ни рисунков нет. А не проще загружать во второй РТБ(невидимый), потом в буфер: Clipboard.SetText RichTextBox2.TextRTF, vbCFRTF Но тут вопрос, как вставлять(в конец, и через строку)? Так, не совсем хорошо выходит: SendKeys "^V" Ответить

Номер ответа: 12 Автор ответа: LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822	Профиль \| \| #12	Добавлено: 07.03.06 11:21
	Вставить можно программно без SendKeys, но буффер предназначен не для этого. Самый дурацкий способ. Объясни, какие преимущества перед тем что я тебе описал. Ответить

Номер ответа: 13 Автор ответа: [root] Вопросов: 45 Ответов: 1212	Web-сайт: bit.pirit.info Профиль \| \| #13	Добавлено: 07.03.06 12:09
	да я уже решил по твоему желать, так и правда меньше гимора Ответить

Номер ответа: 14 Автор ответа: [root] Вопросов: 45 Ответов: 1212	Web-сайт: bit.pirit.info Профиль \| \| #14	Добавлено: 08.03.06 16:08
	Тут лежит пример, печати из RichTextBox. http://vbnet.ru/faq/showtopic.asp?id=439 Только у меня почему то всего 1 страницу печатает, хотя должен 3. Подскажите, в чем может быть трабл? Ответить

Номер ответа: 15 Автор ответа: LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822	Профиль \| \| #15	Добавлено: 09.03.06 11:13
	Задай вопрос аффтару Ответить

Страница: 1 |