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() 
	 
	 
	 
	 
	 ну про то где исполняется сессия мы уже флудили
 ну про то где исполняется сессия мы уже флудили 
 
 
		
 
 
		 
	