A
ABarmin
Чтобы как-то наладить выполнение LotusScript между двумя БД решил использовать агенты. Соответственно, данные, которые уходят в агент и которые он возвращает хранятся в переменных окружения. Проблема в том, что эти переменные окружения куда-то девают перевод строки.
С этим можно как-то бороться?
Агент:
Библиотека получения параметра:
Когда вызываю getSetting непосредственно из той БД, где она описана все переносы строк на месте.
Что можете посоветовать?
С этим можно как-то бороться?
Агент:
Код:
Sub Initialize
' библиотека подключена
Dim setting As New SettingManager
Dim s As New NotesSession
Dim id As String
Dim res As String
id = s.GetEnvironmentString("var")
res = setting.getSetting(id)
Call s.SetEnvironmentVar("res", res)
End Sub
Библиотека получения параметра:
Код:
Public Class SettingManager
' возвращает параметр по его id
Function getSetting (ID As String) As String
Dim res As Variant
Dim q As String
q = {@dblookup("":"NoCache"; @dbname; "Настройки"; "} + ID + {"; 2; [FAILSILENT])}
res = Evaluate(q)
If Not Isempty(res) Then
Dim out As String
out = ""
Forall r In res
out = out + r + Chr(13)
End Forall
getSetting = out
End If
End Function
' возвращает базу данных, сервер и путь
' которой указан в значении настройки с ключом
' ID
Function getDB (ID As String) As NotesDatabase
End Function
' конструктор
Sub new
End Sub
End Class
Когда вызываю getSetting непосредственно из той БД, где она описана все переносы строк на месте.
Что можете посоветовать?