Форматирование текста в vba

Question

Как отформатировать текст в vba. Я должен отформатировать Outlook.MeetingItem.Body в обычный текст. Этот объект содержит текст с кавычками и новыми строками, я хочу как-то обработать этот текст.

Например, напишите что-то вроде
sudocode:

if meetingitem contains quotes or newlines change quotes to single quotes and new lines to symbol(\n)

На данный момент мой MeetingItem.Body выглядит (Пример):

Привет всем
Если вы ищете "Танец", "Автобус" или "Автомобиль"
идти по этому пути:

в противном случае:

Я заменю символы новой строки после "one" , "Car" , "way" , "emptyline" , "go" - с \n и двойные кавычки с одинарными кавычками. И я не знаю, что моя электронная почта использует LF или CR LF (как это проверить?).

Почему? Я добавлю эту строку в мой JSON, возможно, есть лучший способ сделать это, но я нашел только это. Я не могу поместить строку с двойными кавычками и новыми строками в JSON.

Answer 1

Мой ответ на этот вопрос может помочь: Как скопировать почтовое сообщение Outlook в Excel, используя VBA или макросы .Основной макрос выводит выбранные свойства каждого электронного письма в папке «Входящие» в книгу Excel, чтобы вы могли видеть, как электронное письмо выглядит в макросе VBA.

Даже если я проверил и обнаружил, что каждое электронное письмо в папке «Входящие» использует CR LF какНовая линия, я бы не стал доверять.Некоторые почтовые пакеты будут использовать LF, а некоторые будут использовать CR LF в качестве новой строки.Если бы я не нашел документацию, в которой говорилось, что Outlook отредактировал все текстовые тела, чтобы они имели последовательные символы новой строки, я не ожидал бы последовательности.Я хотел бы, чтобы перевод строки был CR, LF или CR LF просто для безопасности.

Этот код делает то, что вы хотите:

Dim  JsonBody As String

JsonBody = Replace(MeetingItem.Body, """", "'")
JsonBody = Replace(JsonBody,vbCR & vbLF, "\n")
JsonBody = Replace(JsonBody,vbCR, "\n")
JsonBody = Replace(JsonBody,vbLF, "\n")