IBM Lotus Symphony
|
Służy do usuwania wszystkich odstępów na końcu łańcucha.
Patrz także: Funkcja LTrim
RTrim (Tekst As String)
Łańcuch
Tekst: Dowolny łańcuch.
Sub Przyklad_Odstepy
Dim sTekst2 as String,sTekst as String,sWyjscie as String
sTekst2 = " <*Las Vegas*> "
sWyjscie = "'"+sTekst2 +"'"+ Chr(13)
sTekst = Ltrim(sTekst2) REM sTekst = " <*Las Vegas*> "
sWyjscie = sWyjscie + "'"+sTekst +"'" + Chr(13)
sTekst = Rtrim(sTekst2) REM sTekst = " <*Las Vegas*> "
sWyjscie = sWyjscie +"'"+ sTekst +"'" + Chr(13)
sTekst = Trim(sTekst2) REM sTekst = " <*Las Vegas*> "
sWyjscie = sWyjscie +"'"+ sTekst +"'"
MsgBox sWyjscie
end sub