N
nvyush
Здравствуйте все!
Столкнулся с такой проблемой. Есть документ, в нём рт-поле (многострочный текст). Беру этот текст и разбираю на строки. Подстроки "выкусываю" примерно так
На клиенте (8.0.1 на winxp) — всё нормально, при выполнении того же кода сервеным агентом не находятся разделители строк. Путём экспериментов выяснил, что когда код исполняется на клиенте разделитель строк cr+lf, когда на сервере (сервер на linux) — разделитель строк lf.
Чтобы не зависеть от платформы решил определять разделить строк таким образом:
Работает, но мне кажется, что можно как-то проще. Кто подскажет, что не так?
Столкнулся с такой проблемой. Есть документ, в нём рт-поле (многострочный текст). Беру этот текст и разбираю на строки. Подстроки "выкусываю" примерно так
Код:
pos0 = 1
pos1 = Instr(pos0, str, lineDelimiter)
Do Until pos1 = 0
resStr = Mid(str, pos0, pos1 - pos0)
...
pos0 = pos1 + Len(lineDelimiter)
pos1 = Instr(pos0, str, lineDelimiter)
Loop
Чтобы не зависеть от платформы решил определять разделить строк таким образом:
Код:
Dim s As New NotesSession
Dim db As NotesDatabase
Set db = s.CurrentDatabase
Dim doc As New NotesDocument(db)
Dim rti As New NotesRichTextItem(doc, "Body")
Call rti.AddNewline(1)
lineDelimiter = rti.GetUnformattedText()