Legacy Functions, Command Bloat and The String Function

[hap2u]

My apologies for disturbing the calm, I tend to go off the deep end when I am first using something.
 
Because I find it difficult to remember tons of terms I am against Command Bloat.  You have a very simple Basic here and I am enjoying my experience to date.  One way to keep Command Bloat to a minimum is to create Legacy Functions which show up when you click on the File/New menu.  In the process of creating my translation program I had to create a Rtrim$ function.  Until one is turned into a command it could be a legacy function, along with Ltrim$.

You could create the following command and turn the Left$, Right$, Mid$ and the replace one who's syntax I have forgotten into Legacy Functions.
Yes! I dislike the present string manipulators Microsoft stuck us with so I am biased.  String$() Seems to work but I have only just started using it.

'________________________________________________________

function String$(Sp$,Sx,To$,Sy)

Err$="String$(Sp$,Sx,To$,Sy)"

IF OFFSUB=0 THEN

    Ln=Ln+4: call logit Err$

    print tab(Ln); Err$: Ln=Ln-4: OFFSUB=1

END IF

'1 Zero or Less returns 1 to number of Chr$ to left or right

'2 Zero or Less returns whole String or adds to start of string

'1 Greater than LEN of String returns number of Chr$ to right or left

'2 Greater than LEN of String returns Nul

'Sp$="123456": Sx=3: Sy=6: To$="90"



if Sx<0 then Sx=0: if Sy<0 then Sy=0

if Sy>len(Sp$) then Sy=len(Sp$)+1

if Sx>len(Sp$) then Sx=len(Sp$)+1

if Sx=0 and Sy=0 then Sy=Len(Sp$)

X1$="": X2$="": X$=""

if Sx<=Sy then

    X$=mid$(Sp$,Sx,Sy-Sx+1)

    X1$=Left$(Sp$,Sx-1)

    X2$=mid$(Sp$,Sy+1)

else 'Sx>Sy

    X$=mid$(Sp$,Sy,Sx-Sy+1)

    X1$=Left$(Sp$,Sx)

    X2$=mid$(Sp$,Sy)

end if

if len(To$)>0 then

    Y$=To$+space$(len(To$))

    Y$=left$(Y$,Len(To$))

    X$=X1$+Y$+X2$

end if

String$=X$



end function

[hap2u]

Completed Function which replaces all the string commands and adds repeat to same. Should have thought of this years ago instead of griping about the lack of string splicing. Note original has small bug, Feel free to use this, create a command from it, whatever. I really am not a great programmer, must take a course or stop being lazy and do better documentation.

Sp$="grab the line "
To$="here"
xx$=String$(Sp$,len(Sp$)+1,To$,len(Sp$)+1)

'________________________________________________________
function String$(Sp$,Sx,To$,Sy)
Err$="String$(Sp$,Sx,To$,Sy)"
IF OFFSUB=0 THEN
Ln=Ln+4: call logit Err$
print tab(Ln); Err$: Ln=Ln-4: OFFSUB=1
END IF
'one Zero to left or right returns 1 to number of Chr$
'two left and right Zeros adds to start of string or returns nul
'Greater than LEN of String returns number of Chr$ to len
'len of To$ Greater than zero places To$ in String from Sx to Sy
'Sp$="123456": Sx=-2: Sy=-4: To$="98"
if Sx<0 and Sy<0 and len(To$)>0 then 'To$ repeat x -> y
X$="": For X=abs(Sx) to abs(Sy): X$=X$+To$: Next X
else
if Sx<0 then Sx=0: if Sy<0 then Sy=0 'start to end or end to start
if Sy>len(Sp$) then Sy=len(Sp$)+1 'greater than to one after Len
if Sx>len(Sp$) then Sx=len(Sp$)+1 'greater than to one after Len
X1$="": X2$="": X$="" 'values to nul set
if Sx<=Sy then 'go right Sx to Sy
X$=mid$(Sp$,Sx,Sy-Sx+1) 'value Sx to Sy
X1$=Left$(Sp$,Sx-1) 'Sp$ value left of Sx
X2$=mid$(Sp$,Sy+1) 'Sp$ value Right of Sy
else
X$=Mid$(Sp$,Sy,Sx-Sy+1) 'value Sy to Sx
X1$=Left$(Sp$,Sy-1) 'value Left of Sy
X2$=mid$(Sp$,Sx+1) 'value Right of Sx
end if
if len(To$)>0 then 'then place To$ in Sp$
Y$=To$+space$(len(To$)) 'add spaces to To$
Y$=left$(Y$,Len(To$)) 'trim To$ to Len To$ with spaces
X$=X1$+Y$+X2$ 'To$ inserted into Sp$ at Sx to Sy
end if
end if

String$=X$

end function

[tsh73]

hap2u, your program cannot be run as is.
Ir requires some other stuff
probably
global OFFSUB

sub logit Err$


Also some examples would be nice.
How to use it for repeat?

[svajoklis]

It would make sense just to write a library that you could use and then you wouldn't have to concern yourself over including some functions in the language itself. I liked that Alyce's Liberty BASIC Workshop had functionality to include another file - you could have your functions live there implemented in Liberty BASIC.