Как пройти поле Body построчно

  • Автор темы Oksana
  • Дата начала
O

Oksana

Подскажите, пожалуйста, как пройти поле письма Body строчка за строчкой, чтобы разложить значения из строк в нужные поля.
 
N

nvyush

Использовать класс NotesRichTextNavigator.
 
O

Oksana

nvy сказал(а):
Использовать класс NotesRichTextNavigator.
Нажмите, чтобы раскрыть...
да вот не получается :(
точнее ерунда получается
мне перед разбором надо разбить этот текст на строки, фактически просто заменяю "," на знак перевода строки
вот потом NotesRichTextNavigator, видимо принимает все за один абзац

я сделала вариант загоняла всё в текстовый файл и потом считывала назад построчно, так получилось
но хотелось бы без него
не могу с NotesRichTextNavigator разобраться
 
N

nvyush

Может тогда проще будет воспользоваться
plainText$ = notesRichTextItem.GetUnformattedText( )
и разбирать строку?
 
O

Oksana

nvy сказал(а):
Может тогда проще будет воспользоваться
plainText$ = notesRichTextItem.GetUnformattedText( )
и разбирать строку?
Нажмите, чтобы раскрыть...
был перерыв в программировании, сейчас торможу жутко :(
Вот смотрите кусок тела письма, которое приходит:
<div class="sp-wrap"><div class="sp-head-wrap"><div class="sp-head folded clickable">"пример письма"</div></div><div class="sp-body"><div class="sp-content">Event Time: 2011-03-04 10:42:00
Event Type: Environmental
Object of Reference: SubNetwork=ONRM_RootMo,SubNetwork=AXE,ManagedElement=BSC2,BssFunction=BSS_Manage
dFunction,BtsSiteMgr=POLUS2_ERUDA
Object Class: 8
Backup Object:
Backup Status:
Trend Indication:
Perceived Severity: Critical
Probable Cause: Different causes possible for same message
Specific Problem: RADIO X-CEIVER ADMINISTRATION BTS EXTERNAL FAULT




Так ка часть переменных нужных мне, находятся в одной строке. посчитала наиболее удобным разложить их построчно, вот поэтому и заменяю "," на Chr(13)

может нагородила, но делаю это так:
<!--shcode--><pre><code class='разбиение на абзацы'>Set rtitem = CurDoc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
plainText = rtitem.GetFormattedText( True, 150 )
End If


Set MailBody = New NotesRichTextItem( CurDoc, "Body" )
Call MailBody.AppendText(Replace(plainText,",",Chr(13)) )
Call CurDoc.Save(True, False)[/CODE]


После чего получаю Body в новом варианте, из которого и хотелось бы извлечь построчно значение требуемых переменных (выделила жирным).
<div class="sp-wrap"><div class="sp-head-wrap"><div class="sp-head folded clickable">"Body построчно"</div></div><div class="sp-body"><div class="sp-content">Event Time: 2011-03-04 10:44:00
Event Type: Environmental
Object of Reference: SubNetwork=ONRM_RootMo
SubNetwork=AXE
ManagedElement=BSC2
BssFunction=BSS_ManagedFunction
BtsSiteMgr=POLUS2_ERUDA
Object Class: 8
Backup Object:
Backup Status:
Trend Indication:
Perceived Severity: Cleared
Probable Cause: Different causes possible for same message
Specific Problem: RADIO X-CEIVER ADMINISTRATION BTS EXTERNAL FAULT
 
X

Xalet

А если так?

Код: 
	Set rtitem = CurDoc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
plainText = rtitem.GetFormattedText( True, 150 )
End If

lines = Fulltrim(Split(plainText, ","))
Set MailBody = New NotesRichTextItem( CurDoc, "Body" )

Forall l In lines
Call MailBody.AppendText(l)
Call MailBody.AddNewLine(1)
End Forall

Call CurDoc.Save(True, False)

З.Ы. Новая строка, кстати, не всегда символ 13. Иногда оно еще работает только вместе с 9(перевод каретки или как оно там).
 
N

nvyush

xalet сказал(а):
З.Ы. Новая строка, кстати, не всегда символ 13. Иногда оно еще работает только вместе с 9(перевод каретки или как оно там).
Нажмите, чтобы раскрыть...
Насколько я помню, 13 — возврат каретки (CR), 10 — перевод строки (LF), 9 — табуляция (TAB). В Windows строки завершаются парой символов CRLF, в никсах, кмк, LF, но могу ошибаться.

Oksana
А зачем нужно Body в новом варианте, может сразу со строкой работать, например, так:
Код: 
		Set rtitem = CurDoc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
plainText = rtitem.GetUnFormattedText()
End If
Dim findArr(1) As String
Dim replArr(1) As String
Dim resArr As Variant

findArr(0) = ","
findArr(1) = Chr(13)
replArr(0) = Chr(10)
replArr(1) = ""
resArr = Split(Replace(plainText, findArr, replArr), Chr(10))
 
X

Xalet

nvy сказал(а):
Насколько я помню, 13 — возврат каретки (CR), 10 — перевод строки (LF), 9 — табуляция (TAB). В Windows строки завершаются парой символов CRLF, в никсах, кмк, LF, но могу ошибаться.
Нажмите, чтобы раскрыть...

Точно, спасибо за поправку.
 
O

Oksana

xalet сказал(а):
А если так?

<div class="sp-wrap"><div class="sp-head-wrap"><div class="sp-head folded clickable">"код"</div></div><div class="sp-body"><div class="sp-content">
Код: 
	Set rtitem = CurDoc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
plainText = rtitem.GetFormattedText( True, 150 )
End If

lines = Fulltrim(Split(plainText, ","))
Set MailBody = New NotesRichTextItem( CurDoc, "Body" )

Forall l In lines
Call MailBody.AppendText(l)
Call MailBody.AddNewLine(1)
End Forall

Call CurDoc.Save(True, False)

З.Ы. Новая строка, кстати, не всегда символ 13. Иногда оно еще работает только вместе с 9(перевод каретки или как оно там).
Нажмите, чтобы раскрыть...

Визуально получилось как и у меня, то есть видим Body построчно, а при фактическом переборе строк, та длинная так и остается склееной

Добавлено:
nvy сказал(а):
Насколько я помню, 13 — возврат каретки (CR), 10 — перевод строки (LF), 9 — табуляция (TAB). В Windows строки завершаются парой символов CRLF, в никсах, кмк, LF, но могу ошибаться.

Oksana
А зачем нужно Body в новом варианте, может сразу со строкой работать, например, так:
<div class="sp-wrap"><div class="sp-head-wrap"><div class="sp-head folded clickable">"код"</div></div><div class="sp-body"><div class="sp-content">
Код: 
		Set rtitem = CurDoc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
plainText = rtitem.GetUnFormattedText()
End If
Dim findArr(1) As String
Dim replArr(1) As String
Dim resArr As Variant

findArr(0) = ","
findArr(1) = Chr(13)
replArr(0) = Chr(10)
replArr(1) = ""
resArr = Split(Replace(plainText, findArr, replArr), Chr(10))
Нажмите, чтобы раскрыть...

да, так кажется всё получилось, работает )
вот осмыслить пока не получилось )))
сейчас еще погоняю, проверю
 
N

nvyush

Oksana сказал(а):
вот осмыслить пока не получилось )))
Нажмите, чтобы раскрыть...
Ничего сложного, реплэйсом меняем запятые на переводы строк и убираем возвраты каретки, чтоб не мешались, затем сплитом "режем" строку на подстроки по переводам строк.

В принципе, можно тем же реплэйсом менять "=" на ":" для упрощения последующего анализа (добавить в findArr(2) = "=", replArr(2) = ":")
 
O

Oksana

nvy сказал(а):
Ничего сложного, реплэйсом меняем запятые на переводы строк и убираем возвраты каретки, чтоб не мешались, затем сплитом "режем" строку на подстроки по переводам строк.

В принципе, можно тем же реплэйсом менять "=" на ":" для упрощения последующего анализа (добавить в findArr(2) = "=", replArr(2) = ":")
Нажмите, чтобы раскрыть...
Спасибо!

а подскажите еще, как мне правильно вставить в поле с типом дата/время
эту строчку, что бы по ней потом была возможна сортировка по времени
Event Time: 2011-03-04 10:42:00
 
N

nvyush

В простейшем случае doc.ReplaceItemValue("ItemName", CDat(DataAsString))
Если не прокатит, через класс NotesDateTime.
 
Для ответа нужно войти/зарегистрироваться
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!

Верх Низ