Subversion Repositories DevTools

Rev

Rev 6683 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6683 Rev 6873
Line 284... Line 284...
284 
		Exit Function
 284 
		Exit Function
285 
	Else
 285 
	Else
286 
        ' Remove trailing new lines and spaces
 286 
        ' Remove trailing new lines and spaces
287 
        While Asc(Right(SSstr, 1)) = 10 Or Asc(Right(SSstr, 1)) = 13
 287 
        While Asc(Right(SSstr, 1)) = 10 Or Asc(Right(SSstr, 1)) = 13
288 
            SSstr = Left(SSstr, Len(SSstr) - 1)
 288 
            SSstr = Left(SSstr, Len(SSstr) - 1)
- 
 
 289 
            If Len(SSstr) = 0 Then
- 
 
 290 
                SSstr = " "
- 
 
 291 
            End If
289 
        Wend
 292 
        Wend
290 
        SSstr = Trim(SSstr)
 293 
        SSstr = Trim(SSstr)
291 
		NewLine_To_BR = Replace ( SSstr, VBNewLine, "<br>")
 294 
		NewLine_To_BR = Replace ( SSstr, VBNewLine, "<br>")
292 
	End If
 295 
	End If
293 
End Function
 296 
End Function