FUNCTION Replace$() - roll your own and share it

[FellippeHeitor]

hey but you have found a bug of OPTION _EXPLICIT
... it lets's to use Subprograms without an END at the end of the main!

Come again?

[bplus]

@bplus
great the stone math....
hey but you have found a bug of OPTION _EXPLICIT
... it lets's to use Subprograms without an END at the end of the main!
For my hobbist eyes it is horrible (I think because there is a voice of Pascal/TurboPascal into my mind)
would Pascal let you execute the main without closing it with END. ?
Would C let you execute the main without closing it with } ?
Also QB45 does this thing, but it has Subroutines first of the main and after the declaration of themselves.

@TempodiBasic  sorry to hear of your dis-ease (a joke) ;-))

[TempodiBasic]

what disease?
1. the normalization MUST of maniac man
2.  the voice hallucination  of schizophrenic man

@FellippeHeitor
this is scaring you, is it? :-)

[FellippeHeitor]

Just trying to understand if you're being cheeky or if you actually found a bug with option _explicit.

[bplus]

what disease?

For my hobbist eyes it is horrible (I think because there is a voice of Pascal/TurboPascal into my mind)
would Pascal let you execute the main without closing it with END. ?

Pascal's disease of seeing (or is it NOT seeing?), the horror of no end in sight! Pascal actually suffered this! Did you know?

[Qwerkey]

@FellippeHeitor May I ask why this post is in Discussions and not in Programs?  It's got lots of code stuff that members have created.  Posts in Discussions will never be searched for by a Librarian (well this one, anyway) for inclusion into the Library, even though a general resource based post might be applicable.
(I know that Fellippe wanted this to be a discussion, but nevertheless).

[FellippeHeitor]

Were discussing methods and none of this is a definitive product yet.

[Qwerkey]

Programs
This section is for (i) completed programs, or (ii) works in progress.

Only a minor point.

[SpriggsySpriggs]

Programs
This section is for (i) completed programs, or (ii) works in progress.

I'm with Fellippe on this one. It would be better to flesh everything out here first before moving something to programs.

[phred]

Why strings for numeric input?

Well, I'm pretty sure there may have been a reason but I can't remember it now, or consistency; something like that. Pretty sure.

phred

[bplus]

After some more considerations I have once again updated the plainest most straight forward replace function with this:

Beeps can be just as annoying as the program halting (like div by 0) if there is a problem causing argument.
I like MID$() because it's no problem when the arguments don't fit the source string.

Also now only make one call for LEN(replace$) and LEN(new$), a little more efficient for really long strings with lots of replacing.

Code: QB64: [Select]

1. OPTION _EXPLICIT
2. _TITLE "strReplace$ test" 'b+ 2019-12-28     check to see that new l's don't get more replacements
3. ' mod 2020-07-26 check for string lengths on source$ and replace$ but replacement new$ can be ""
4. ' mod 2020-07-27 don't set strReplace$ = s$ because could cause unintented recursion.
5. ' mod 2020-07-28 no beep, just return s$ if s$ or replace$ are 0 length
6. '                also make variable "constants for lengths of replace and new to avoid multiple calls to LEN()
7.  
8. PRINT strReplace$("hello all", "ll", "l")
9. PRINT strReplace$("hello all", "l", "lllll")
10. PRINT strReplace$("lots of luck", "l", "lllll")
11. PRINT strReplace$("Hello all", "ll", "") 'test a couple of deletions
12. PRINT strReplace$("l Hello all", "l", "") '
13. PRINT strReplace$("", "l", "no source") 'test error conditions
14. PRINT strReplace$("source no replace", "", "new") 'test error conditions
15. PRINT strReplace$("", "", "no source or replace") 'test error conditions
16.  
17. FUNCTION strReplace$ (s$, replace$, new$) 'case sensitive  2020-07-28 version
18.     DIM p AS LONG, sCopy$, LR AS INTEGER, lNew AS INTEGER
19.     IF LEN(s$) = 0 OR LEN(replace$) = 0 THEN
20.         strReplace$ = s$: EXIT FUNCTION
21.     ELSE
22.         LR = LEN(replace$): lNew = LEN(new$)
23.     END IF
24.  
25.     sCopy$ = s$ ' otherwise s$ would get changed
26.     p = INSTR(sCopy$, replace$)
27.     WHILE p
28.         sCopy$ = MID$(sCopy$, 1, p - 1) + new$ + MID$(sCopy$, p + LR)
29.         p = INSTR(p + lNew, sCopy$, replace$)
30.     WEND
31.     strReplace$ = sCopy$
32. END FUNCTION
33.  
34.  

You can read the function name as String Replace or Straight Replace, no Swiss Army knife here!