Liberty BASIC Community Wiki - Remove From String II

Older Version Newer Version

MikeGerz Jan 28, 2006

**' *******************************************************
**' *** Here is an alternative program. ******************
**' *** It's much shorter, and it also removes ************
**' *** EVERY occurrence of the letter, not just one. *****
**' *** by Michael D. Gerzevitz *** 1-28-06 ***************
**' *******************************************************

**dim x$(100)**
**a$=""**
**print "Enter a string"**
**input ": ";x$**
**[main]**
**l=len(x$)**
**print "Type a character to remove"**
**input ": ";r$**
**if r$="" then [quit]**
**for y=1 to l**
**x$(y)=mid$(x$,y,1)**
**if not(x$(y)=r$) then**
**a$=a$+x$(y)**
**end if**
**next**
**x$=a$**
**print a$**
**a$=""**
**goto [main]**

**[quit]**
**end**