Script Library: 1238 scripts
 

rightstring.r

REBOL [ File: %rightstring.r Date: 28-Aug-2005 Title: "rightString Function" Version: 1.1 Purpose: {A simple string function which returns the right most n characters.} Library: [ level: 'beginner platform: 'all type: 'function domain: [text text-processing] tested-under: [REBOL/Core 2.5.6.3.1 "windows XP Professionsl"] support: none license: cc-by see-also: none ] Copyright: {Copyright (C) 2005 - Digital Bear Consulting} Author: {Dale K. Brearcliffe} ] rightString: function [ "Returns the right most arg2 characters of string arg1." arg1 [string!] arg2 [number!] ][ l lt ][ l: length? arg1 if (l <= arg2) [return arg1] if arg2 = 0 [return none] either arg2 > 0 [ lt: 0 - arg2 ][ lt: arg2 ] return skip tail arg1 lt ]
halt ;; to terminate script if DO'ne from webpage
<< rif.r · rim-bot.r >>