Простейший вопрос, но все же..

[sanch]

Какой ф-цией удалить из строки символы перевода каретки?? весь LS перелапатил TRIM чето не работает ((

 

[morpheus]

Это + chr(10)
иногда использую

Function NoSimvol10(s1 As String) As String
NoSimvol10 = s1
G1:
If Len(NoSimvol10)=0 Then Exit Function
Dim s2 As String
s2 = Right(NoSimvol10, 1)
If Right(NoSimvol10, 1) = Chr(10) Then 
NoSimvol10 = Left(NoSimvol10, Len(NoSimvol10)-1)
Goto G1
End If
End Function

 

[pbnoob]

объясняю принцип (на Lotus Script)
в цикле от 1 до конца строки прогоняешь функцию MID.
и в результирующий массив записываешь все символы отличные от 13
(ascii код Enter, 10 ascii код - возврата каретки)
(ASC\CHR - могут еще понадобиться)

 

[sanch]

Спасибо, помогло!