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

Kizarek86

Well-Known Member
Lotus team
20.07.2007
861
6
31
Россея матушка!)
#1
сабж собственно. Ну или хотябы проверить не пустое ли поле. Поле будет висеть под вебом, и заполнятся исключительно текстом.
 

Kizarek86

Well-Known Member
Lotus team
20.07.2007
861
6
31
Россея матушка!)
#4
А причем тут это поле? я же грю текст в РТ поле,а не файл приклеенный.

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

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

allex

Гость
#5
Код:
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
plainText = rtitem.GetFormattedText( False, 0 )
End If

Или

rtitem.text
 

morpheus

скриптописец
07.08.2006
3 915
1
34
Украина, Киев
#6
@Abstract - тоже не особо подходит. не работет пока документ не сохранен. А нужно проверять перед сохранение как раз, заполнено ли это поле.
а рт-поле в тек. документе НИКАК не провериш ДО сохранения этого документа

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

allex

Гость
#11
Код:
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
 

Kizarek86

Well-Known Member
Lotus team
20.07.2007
861
6
31
Россея матушка!)
#15
Medevic
Не особо дружу с явой. Да ещё придется дополнительное поле делать. Т.к. надо использовать в формылах скрытия.

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

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
2
36
Россия, Калуга
#16
Не особо дружу с явой. Да ещё придется дополнительное поле делать. Т.к. надо использовать в формылах скрытия.
Яваскрипт. Придется подружиться. Это же веб, на одних формулах не сделаешь.
 

Akupaka

А че я?.. О.о
04.10.2007
3 360
2
34
Kiev, Ukraine
#17
фигли там в вебе проверять? RTItem в вебе = textarea, у нее есть id, name

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

K-Fire

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

document.getElementById("rtid").Value == ""
+1, не знаю зачем всякие извращения с формулами или еще чем пытаться сделать.

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

Akupaka

А че я?.. О.о
04.10.2007
3 360
2
34
Kiev, Ukraine
#20
lmike, а что, кто-то просил реализацию редактора?..

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