home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
OL.LZH
/
PROCS.LZH
/
STRIP.ICN
< prev
next >
Wrap
Text File
|
1991-07-13
|
724b
|
36 lines
############################################################################
#
# Name: strip.icn
#
# Title: strip characters from a string
#
# Author: Richard L. Goerwitz
#
# Date: June 3, 1991
#
# Version: 1.1
#
############################################################################
#
# strip(s,c) - strip characters c from string s
#
############################################################################
procedure strip(s,c)
# Return string s stripped of characters c. Succeed whether
# any characters c were found in s or not.
local s2
s2 := ""
s ? {
while s2 ||:= tab(upto(c))
do tab(many(c))
s2 ||:= tab(0)
}
return s2
end