Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
plainText = rtitem.GetFormattedText( False, 0 )
End If
а рт-поле в тек. документе НИКАК не провериш ДО сохранения этого документа@Abstract - тоже не особо подходит. не работет пока документ не сохранен. А нужно проверять перед сохранение как раз, заполнено ли это поле.
Проверишь.а рт-поле в тек. документе НИКАК не провериш ДО сохранения этого документа
Уже было несколько раз на форуме.
Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim rtitem As Variant
Dim plainText As String
Dim fileNum As Integer
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
' для пробы
Set db = session.CurrentDatabase
Set doc = New NotesDocument( db )
Set rtitem = New NotesRichTextItem( doc, "Body" )
'
'Set uidoc = workspace.CurrentDocument
'Set doc = uidoc.Document
'...set value of doc...
'Set rtitem = doc.GetFirstItem( "Body" )
' If ( rtitem.Type = RICHTEXT ) Then
' plainText = rtitem.GetFormattedText( False, 0 )
' End If
If ( rtitem.Type = RICHTEXT ) Then
Call rtitem.AppendText( "NTNC" )
plainText = rtitem.text
End If
' get a file number for the file
fileNum = Freefile
' open the file for writing
Open "c:\plane.txt" For Output As fileNum
' write the formatted text to the file
Print #fileNum, plainText
' close the file
Close #fileNum
End Sub
проверил. Был неправ. забираюс свои слова обратноСделать uidoc.Refresh(True) и проверяй сколько хочешь.
На JavaScript разве нельзя проверить?Собаки нужны, собаки))) как на LS проверить сам знаю. Да на вебе.
Яваскрипт. Придется подружиться. Это же веб, на одних формулах не сделаешь.Не особо дружу с явой. Да ещё придется дополнительное поле делать. Т.к. надо использовать в формылах скрытия.
фигли там в вебе проверять? RTItem в вебе = textarea, у нее есть id, name
document.getElementById("rtid").Value == ""
Обучение наступательной кибербезопасности в игровой форме. Начать игру!