Получить значение текста из РТ поля на собаках

[Kizarek86]

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

 

[allex]

Проверь док на наличие поля $FILE

 

[morpheus]

можно пробовать @Abstract (но он в колонках видов не работает)
richtext => plaintext

 

[Kizarek86]

А причем тут это поле? я же грю текст в РТ поле,а не файл приклеенный.

Morpheus
@Abstract - тоже не особо подходит. не работет пока документ не сохранен. А нужно проверять перед сохранение как раз, заполнено ли это поле.

Ну или тогда другой вариант, но судя по всему не особо осуществимый. Как лотусевое текстовое поле сделать чтобы выглядело в браузере как "textarea", т.е. несколько строк для ввода?

 

[allex]

Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
plainText = rtitem.GetFormattedText( False, 0 )
End If

Или

rtitem.text

 

[morpheus]

@Abstract - тоже не особо подходит. не работет пока документ не сохранен. А нужно проверять перед сохранение как раз, заполнено ли это поле.

а рт-поле в тек. документе НИКАК не провериш ДО сохранения этого документа

з.ы. подсказали чтоможно uidoc.Refresh(True)

 

[Medevic]

а рт-поле в тек. документе НИКАК не провериш ДО сохранения этого документа

Проверишь.

Не понятно. Проверять надо в вебе?

 

[morpheus]

Проверишь.

как

 

[Medevic]

как

Уже было несколько раз на форуме.
Сделать uidoc.Refresh(True) и проверяй сколько хочешь.

 

[Kizarek86]

Собаки нужны, собаки))) как на LS проверить сам знаю. Да на вебе.

 

[allex]

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

 

[morpheus]

Сделать uidoc.Refresh(True) и проверяй сколько хочешь.

проверил. Был неправ. забираюс свои слова обратно

 

[allex]

A := @GetField("Body");
@Prompt([Ok];"Reminder";@Text(A))

 

[Medevic]

Собаки нужны, собаки))) как на LS проверить сам знаю. Да на вебе.

На JavaScript разве нельзя проверить?

 

[Kizarek86]

Medevic
Не особо дружу с явой. Да ещё придется дополнительное поле делать. Т.к. надо использовать в формылах скрытия.

allex
Так в РТ поле пусто постоянно...проверял естественно первым делом))

 

[Medevic]

Не особо дружу с явой. Да ещё придется дополнительное поле делать. Т.к. надо использовать в формылах скрытия.

Яваскрипт. Придется подружиться. Это же веб, на одних формулах не сделаешь.

 

[Akupaka]

фигли там в вебе проверять? RTItem в вебе = textarea, у нее есть id, name

document.getElementById("rtid").Value == ""

 

[K-Fire]

фигли там в вебе проверять? RTItem в вебе = textarea, у нее есть id, name

document.getElementById("rtid").Value == ""

+1, не знаю зачем всякие извращения с формулами или еще чем пытаться сделать.

Естественно если делать по уму, надо еще дополнительную проверку писать в агенте на WebQuerySave, но там скрипт, им элементарно все делается.

 

[lmike]

может сюда поглядеть? -

Ссылка скрыта от гостей

 

[Akupaka]

lmike, а что, кто-то просил реализацию редактора?..

зы: хотя пример интересный, но немного не по сабжу, как по мне :blink: