Поля MEMO и тэги форматирования

[Wind-up Bird]

Добрый день

Возникла такая проблема.
В рабочей базе есть поля MEMO в которые, пользователи вставляют текст через буфер обмена (Ctrl+C, Ctrl+V) из разных источников (Word, Excel, HTML). И помимо самого текста переносятся форматирование текста (Шрифты), которое отображается в поле в виде тэгов (<div><font face="Times New Roman" size=3 color=black>ТЕКСТ</font></div>).

Как возможно вставлять текст из буфера без форматирования?

Поиском ничего подходящего не нашел, кроме сторонних программ. Вариант сторонние программы не подходит так как с базой работают с разных компьютеров и лишний софт устанавливать не желательно.

[Андрэич]

Как изящно от этого избавиться я не знаю, поэтому делал бы банальным реплэйсом на событие, наверное, потеря фокуса.

Теги имеют структурированный вид, а значит, предположительно, можно привязаться к символам: <, >, color и т.д. Используя функции InStr, Mid, можно забирать эти символы и их окружение.
Предположительно...

[Teslenko_EA]

Здравствуйте Wind-up Bird.
"..Возникла такая проблема.."

Заменив у поля формы значение Формат текста с Формат RTF на Обычный текст
(и для соответствующего поля MEMO таблицы на Обычный текст если не будет использоваться форматирование)
Вы избавитесь от своей "проблемы" без всяких танцев с бубнами.

У Access старше А2007 такой проблемы не было, может стоит перейти на А2003.

Евгений.

[Wind-up Bird]

Заменив у поля формы значение Формат текста с Формат RTF на Обычный текст
(и для соответствующего поля MEMO таблицы на Обычный текст если не будет использоваться форматирование)
Вы избавитесь от своей "проблемы" без всяких танцев с бубнами.

В таблице поля MEMO хранятся в виде обычного текста. И при вставке эти тэги появляются.
В этом и загвоздка что форматирование нужно. Т.е необходимо нечто подобное Копирование - очистка формата - вставка - и добавление пользовательского форматирования текста.

В Word Excel есть для этого кнопка Очистить формат..Есть что-то подобное в Access?

[Андрэич]

Wind-up Bird,
а вы работаете с формами или напрямую с таблицами?

[Wind-up Bird]

Сообщение от Андрэич

Wind-up Bird,
а вы работаете с формами или напрямую с таблицами?

через формы.

[Андрэич]

Сообщение от Wind-up Bird

В рабочей базе есть поля MEMO в которые, пользователи вставляют текст через буфер обмена (Ctrl+C, Ctrl+V) из разных источников (Word, Excel, HTML). И помимо самого текста переносятся форматирование текста (Шрифты), которое отображается в поле в виде тэгов (<div><font face="Times New Roman" size=3 color=black>ТЕКСТ</font></div>).

Примерно так:

Function RemoveTags(ByVal str As String) As String

Dim objRegExp As Object
Dim objMatch As Object
Dim objMatches As Object
Dim i As Integer

Set objRegExp = CreateObject("VBScript.RegExp")
objRegExp.Global = True
objRegExp.Pattern = "<.*?>"

Set objMatches = objRegExp.Execute(str)
    For i = 0 To objMatches.Count - 1
        Set objMatch = objMatches.Item(i)
        RemoveTags = objRegExp.Replace(str, " ")
    Next
'MsgBox RemoveTags
End Function

В рабочей базе есть поля MEMO в которые, пользователи вставляют текст через буфер обмена (Ctrl+C, Ctrl+V) из разных источников (Word, Excel, HTML). И помимо самого текста переносятся форматирование текста (Шрифты), которое отображается в поле в виде тэгов ( ТЕКСТ ).

Ещё предварительно с кавычками надо что-то делать...

[Teslenko_EA]

Здравствуйте Wind-up Bird.
"..В этом и загвоздка что форматирование нужно.." - или Вы не поняли моё сообщение
или Вам на самом деле нравятся "танцы с бубнами", или я не понял Вашего объяснения
не думал, что это может стать проблемой.
В образце БД который любезно предоставил Андрэич, (в его варианте формат БД А2003),
выполняется "борьба" с тэгами пользовательской VBA функцией это я и называл - "танцы с бубнами"
А2003 не поддерживает ввод/отображение RTF форматирования вовсе(!)
отображение тэгов не зависит от формата "хранилища" (MEMO поля таблицы)
только с помощью новых контролов (поля ввода MS Access версий старше 2003)
можно вводить/отображать данные с форматированием RTF
Потому можно предположить, что используемая Вами БД сетевая и кто-то из пользователей
обращается к ней из интерфейса А2007 или выше и тэги вместе с текстом сохраняются.

Текст вставляемый в поле формы со значением Формат текста = Обычный текст теряет всякое
форматирование и соответственно тэги, этого достаточно для "борьбы" с этими служебными символами.
В образце форма с четырьмя полями с заданным форматированием Текст, RTF, Текст, RTF соответственно.
Источником для этих четырех полей служат два МЕМО поля с Текст и RTF форматированием.
Поупражняйтесь во вставке данных с форматированием в разные поля

Евгений.

[Wind-up Bird]

Сообщение от Teslenko_EA

Здравствуйте Wind-up Bird.
"..В этом и загвоздка что форматирование нужно.." - или Вы не поняли моё сообщение
или Вам на самом деле нравятся "танцы с бубнами", или я не понял Вашего объяснения
не думал, что это может стать проблемой.
В образце БД который любезно предоставил Андрэич, (в его варианте формат БД А2003),
выполняется "борьба" с тэгами пользовательской VBA функцией это я и называл - "танцы с бубнами"
А2003 не поддерживает ввод/отображение RTF форматирования вовсе(!)
отображение тэгов не зависит от формата "хранилища" (MEMO поля таблицы)
только с помощью новых контролов (поля ввода MS Access версий старше 2003)
можно вводить/отображать данные с форматированием RTF
Потому можно предположить, что используемая Вами БД сетевая и кто-то из пользователей
обращается к ней из интерфейса А2007 или выше и тэги вместе с текстом сохраняются.

Текст вставляемый в поле формы со значением Формат текста = Обычный текст теряет всякое
форматирование и соответственно тэги, этого достаточно для "борьбы" с этими служебными символами.
В образце форма с четырьмя полями с заданным форматированием Текст, RTF, Текст, RTF соответственно.
Источником для этих четырех полей служат два МЕМО поля с Текст и RTF форматированием.
Поупражняйтесь во вставке данных с форматированием в разные поля

Евгений.

Используется всеми пользователями Access 2010.
Форматирование нужно, иначе бессмысленно хранить тэги форматирование (форматирование). Но при вставке из разных источником (с разным форматированием). И последующей изменение пользователем форматирование получается "каша" из тэгов форматирования. Так как изначальное форматирование не удаляется

[Андрэич]

Wind-up Bird,
после того как данные попадают в это мемо-поле, они впоследствии ещё редактируются?

Если ответ Да -то я полностью присоединяюсь к тому, что говорит вам Евгений. В этом случае служебный текст храниться не должен. А предложенное им решение - это самый оптимальный способ этого избежать