RTrim Function

āĻāĻ•āĻŸāĻŋ āĻ¸ā§āĻŸā§āĻ°āĻŋāĻ‚ āĻāĻ•ā§āĻ¸āĻĒā§āĻ°ā§‡āĻļāĻ¨ā§‡āĻ° āĻļā§‡āĻˇā§‡āĻ° āĻĢāĻžāĻāĻ•āĻž āĻ¸ā§āĻĨāĻžāĻ¨ āĻŽā§āĻ›ā§‡ āĻĢā§‡āĻ˛āĻž āĻšā§ŸāĨ¤

āĻ†āĻ°āĻ“ āĻĻā§‡āĻ–ā§āĻ¨: LTrim āĻĢāĻžāĻ‚āĻļāĻ¨

āĻ¸āĻŋāĻ¨āĻŸā§āĻ¯āĻžāĻ•ā§āĻ¸:


RTrim (Text As String)

āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻŽāĻžāĻ¨:

āĻ¸ā§āĻŸā§āĻ°āĻŋāĻ‚

āĻĒā§āĻ¯āĻžāĻ°āĻžāĻŽāĻŋāĻŸāĻžāĻ°:

āĻŸā§‡āĻ•ā§āĻ¸āĻŸ: āĻ¯ā§‡ āĻ•ā§‹āĻ¨ āĻ¸ā§āĻŸā§āĻ°āĻŋāĻ‚ āĻāĻ•ā§āĻ¸āĻĒā§āĻ°ā§‡āĻļāĻ¨āĨ¤

Error codes:

5 Invalid procedure call

āĻ‰āĻĻāĻžāĻšāĻ°āĻŖ:


Sub ExampleSpaces
Dim sText2 As String,sText As String,sOut As String
    sText2 = " <*Las Vegas*> "
    sOut = "'"+sText2 +"'"+ Chr(13)
    sText = Ltrim(sText2) ' sText = "<*Las Vegas*> "
    sOut = sOut + "'"+sText +"'" + Chr(13)
    sText = Rtrim(sText2) ' sText = " <*Las Vegas*>"
    sOut = sOut +"'"+ sText +"'" + Chr(13)
    sText = Trim(sText2) ' sText = "<*Las Vegas*>"
    sOut = sOut +"'"+ sText +"'"
    MsgBox sOut
End Sub

Please support us!