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

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

06.03.2018, 15:37. Просмотров 909. Ответов 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
1180 / 1071 / 258
Регистрация: 28.11.2014
Сообщений: 1,681
06.03.2018, 15:43 2
timsc1, покажите как делаете
0
timsc1
9 / 9 / 2
Регистрация: 27.11.2011
Сообщений: 615
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
9479 / 8288 / 3547
Регистрация: 17.03.2014
Сообщений: 16,502
Записей в блоге: 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
2378 / 2184 / 348
Регистрация: 27.01.2014
Сообщений: 3,913
Завершенные тесты: 1
07.03.2018, 05:38 5
timsc1, данный RTF файл в дальнейшем планируете загружать в программу свою для редактирования? Или же нет?
0
timsc1
9 / 9 / 2
Регистрация: 27.11.2011
Сообщений: 615
07.03.2018, 09:37  [ТС] 6
Yury Komar, нет, просто сохранить, чтобы потом открыть для просмотра в вордпаде...
0
Nachrichter
594 / 552 / 86
Регистрация: 19.03.2012
Сообщений: 1,072
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
2378 / 2184 / 348
Регистрация: 27.01.2014
Сообщений: 3,913
Завершенные тесты: 1
14.03.2018, 08:05 8
плюс после сохранения надо бы
vb.net
1
RTB.Dispose
1
timsc1
9 / 9 / 2
Регистрация: 27.11.2011
Сообщений: 615
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 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru