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

sanch

Well-known member
17.07.2006
215
0
#1
Какой ф-цией удалить из строки символы перевода каретки?? весь LS перелапатил TRIM чето не работает ((
 

morpheus

скриптописец
07.08.2006
3 915
1
#2
Это + 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

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