• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

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

Kizarek86

Green Team
20.07.2007
871
7
BIT
33
сабж собственно. Ну или хотябы проверить не пустое ли поле. Поле будет висеть под вебом, и заполнятся исключительно текстом.
 
M

morpheus

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

Kizarek86

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

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

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

allex

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


Или

rtitem.text
 
M

morpheus

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

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

Kizarek86

Green Team
20.07.2007
871
7
BIT
33
Собаки нужны, собаки))) как на LS проверить сам знаю. Да на вебе.
 
A

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
 
A

allex

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

Kizarek86

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

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

Akupaka

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

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

K-Fire

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

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

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

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

lmike

нет, пердело совершенство
Lotus Team
27.08.2008
7 933
609
BIT
177
может сюда поглядеть? -
 
A

Akupaka

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

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

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