Skip to main content
guest
Join | Help | Sign In
Liberty BASIC Community Wiki Home
guest| Join | Help | Sign In
Liberty BASIC Community Wiki
  • Wiki Home
  • Recent Changes
  • Pages and Files
  • Members
  • Home
    • Liberty BASIC FAQ
    • Contests
    • Tutorials
    • Science
    • Shared Code
    • Tips
    • DLLs
    • PublicDomainSprites
    • Member Pages
    • Links
    • Sandbox

Remove From String II

Edit 0 6 …
  • 0 Tags
    • No tags
  • Notify
  • RSS
  • Backlinks
  • Source
  • Print
  • Export (PDF)

Change 0 of 0

Older Version Newer Version

MikeGerz MikeGerz Jan 28, 2006

Review Changes
' * ' * 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**
Help · About · Pricing · Privacy · Terms · Support · Upgrade
Contributions to https://basic.wikispaces.com/ are licensed under a Creative Commons Attribution Share-Alike 2.5 License. Creative Commons Attribution Share-Alike 2.5 License
Portions not contributed by visitors are Copyright 2018 Tangient LLC
TES: The largest network of teachers in the world
Turn off "Getting Started"
  1. Home
  2. ...
Loading...