IBM Lotus Symphony
|
Służy do usuwania wszystkich odstępów na początku łańcucha.
LTrim (Tekst As String)
Łańcuch
Tekst: Dowolny łańcuch.
Ta funkcja służy do usuwania odstępów na początku łańcucha.
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