Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
timsc1
10 / 10 / 2
Регистрация: 27.11.2011
Сообщений: 621
1

Как сохранить три RichTextBox в один RTF файл?

06.03.2018, 15:37. Просмотров 935. Ответов 8
Метки нет (Все метки)

Всем привет!!! Такой вопрос:
На форме есть три ричтекстбокса. Как их все сохранить в один RTF файл. Делаю стандартными методами, последний перезаписывает файл. Спасибо!!!
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.03.2018, 15:37
Ответы с готовыми решениями:

Отобразить в RichTextBox содержимое файла Rtf
Нужно в элементе richtextbox распечатать из документа текст....

При открытии файла вормата .RTF текст в окне RichTextBox отображается некорректно
Вот, что отображается при открытии файла rtf: ...

Объединение нескольких RTF в один
Здравствуйте, уважаемые форумчане! Имеется несколько переменных типа String, в...

Как дописать и как переписать файл данными из RichTextBox
Всем доброго времени суток! Есть ричтекстбокс и мне надо дописать в файл...

Не получается сохранить текст из RichTextBox в дочерней форме
Public Sub SaveFile() Dim Save As New SaveFileDialog With...

8
Orlangur1991
1477 / 1223 / 305
Регистрация: 28.11.2014
Сообщений: 1,896
06.03.2018, 15:43 2
timsc1, покажите как делаете
0
timsc1
10 / 10 / 2
Регистрация: 27.11.2011
Сообщений: 621
06.03.2018, 15:48  [ТС] 3
Orlangur1991,
vb.net
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 Dim SFD As New SaveFileDialog
        SFD.Filter = "RichTextFormat (*.rtf)|*.rtf|Текстовые файлы (*.txt)|*.txt"
        If SFD.ShowDialog = DialogResult.OK And SFD.FilterIndex = 1 Then 'сохранить в формате .rtf
            Dim SavedName = SFD.FileName
            Try
                rt1.SaveFile(SavedName, RichTextBoxStreamType.RichText)
                rt2.SaveFile(SavedName, RichTextBoxStreamType.RichText)
                rt3.SaveFile(SavedName, RichTextBoxStreamType.RichText)
            Catch Exc As Exception
                MsgBox(Exc.Message)
            End Try
        ElseIf SFD.FilterIndex = 2 Then 'сохранить в формате .txt
            Dim SavedName = SFD.FileName
            Try
                System.IO.File.WriteAllText(SavedName, rt1.Text, System.Text.Encoding.Default)
                System.IO.File.AppendAllText(SavedName, rt2.Text, System.Text.Encoding.Default)
                System.IO.File.AppendAllText(SavedName, rt3.Text, System.Text.Encoding.Default)
 
            Catch Exc As Exception
                MsgBox(Exc.Message)
            End Try
        End If
код взял на этом сайте...
0
OwenGlendower
Супер-модератор
Эксперт .NET
9953 / 8630 / 3692
Регистрация: 17.03.2014
Сообщений: 17,299
Записей в блоге: 1
06.03.2018, 16:32 4
Лучший ответ Сообщение было отмечено Yury Komar как решение

Решение

timsc1, попробуй собрать весь текст в один RichTextBox и сохранять его. Примерный код
vb.net
1
2
rt1.Rtf = rt1.Rtf & rt2.Rtf & rt3.Rtf
rt1.SaveFile(SavedName, RichTextBoxStreamType.RichText)
Оригинальный Rtf можно сохранить в переменную или использовать временный невидимый RichTextBox
1
Yury Komar
Модератор
Эксперт .NET
2416 / 2232 / 349
Регистрация: 27.01.2014
Сообщений: 3,960
Завершенные тесты: 1
07.03.2018, 05:38 5
timsc1, данный RTF файл в дальнейшем планируете загружать в программу свою для редактирования? Или же нет?
0
timsc1
10 / 10 / 2
Регистрация: 27.11.2011
Сообщений: 621
07.03.2018, 09:37  [ТС] 6
Yury Komar, нет, просто сохранить, чтобы потом открыть для просмотра в вордпаде...
0
Nachrichter
602 / 558 / 88
Регистрация: 19.03.2012
Сообщений: 1,086
13.03.2018, 19:09 7
timsc1, попробуйте так:
vb.net
1
2
3
Dim RTB As New RichTextBox
RTB.Rtf = rt1.Rtf & rt2.Rtf & rt3.Rtf
RTB.SaveFile(SavedName, RichTextBoxStreamType.RichText)
1
Yury Komar
Модератор
Эксперт .NET
2416 / 2232 / 349
Регистрация: 27.01.2014
Сообщений: 3,960
Завершенные тесты: 1
14.03.2018, 08:05 8
плюс после сохранения надо бы
vb.net
1
RTB.Dispose
1
timsc1
10 / 10 / 2
Регистрация: 27.11.2011
Сообщений: 621
16.03.2018, 08:31  [ТС] 9
Nachrichter, Ваш вариант почему-то не работает, сохраняет только 1-й РТБ. Ваш код немного переделал:
vb.net
1
 RTB.AppendText(rt1.Text & vbCrLf & rt2.Text & vbCrLf & rt3.Text)
теперь сохраняет как надо...
Nachrichter, Yury Komar, Спасибо за помощь!!!
1
16.03.2018, 08:31
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.03.2018, 08:31

Найти определенные строки (содержащие определенные слова) и сохранить найденные строки из массива в один файл
Имеется массив строк. Подскажите пожалуйста, как можно найти определенные...

Сохранить содержание richtextbox в word с добавлением к имеющемуся тексту
как сохранить содержание richtextbox в word ? И оно должна добавлять позади...

Как файл из ресурсов сохранить на диск?
Как файл из ресурсов проги (или *.dll библиотеки) сохранить на диск?


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru