replacing strings

We're glad you came by, but you might find what you're looking for elsewhere. TI-Basic Developer is not the site it once was. While its information on commands and other calculator features remains almost second-to-none, its forum, archives, and even hosting service, Wikidot, have been decaying for years. The calculator community would love to see what you're working on, or help you in your next coding adventure, but TI-Basic Developer is no longer the place to do it. Instead, you should head over to Cemetech (primarily American) or TI-Planet (primarily international). Both are active, well-established forums with their own archives, chatrooms, reference material, and abundant coding tools and resources. We'll see you there, we hope.

Forum Attachments

replacing strings

Skwerlman 16 Feb 2011 15:08

I started writing a program that's supposed to replace every instance of input2 inside the string input1 with input3.
The code I have works ok, but it's prone to infinite loops when input2 is part of input3.
If anyone is familiar with string manipulation, please help me work this out.

This is the code:

*strbound() returns the lower and upper bounds of a string and its length in the form {lower,upper,length}
*Its inputs are similar to inString's

rplcstr(in,ss,rs)
:Func
:Local t,n
:1→n
:While inString(in,ss,n)≠0
:strbound(in,ss,n)→t
:t[2]→n
:If n=0 or t[1]+t[2]=0
:Return in
:mid(in,1,t[1]-1)&rs&mid(in,t[2]+1,dim(in))→in
:EndWhile
:Return in
:EndFunc

Last edited on 16 Feb 2011 15:09 by Skwerlman Show more

Re: replacing strings

Xeda Elnara 17 Feb 2011 03:48

Here is what I came up with (it is all in one program):

rplcstr(in,ss,rs)
Func
Local b,c,a,n
1→n
dim(ss)→b
dim(rs)→c
dim(in)-b→a
While n-1≤a
If ss=mid(in,n,b) Then
left(in,n-1)&rs&right(in,a-n+1)→in
n+c-1→n
a+c-b→a
EndIf
n+1→n
EndWhile
Return in
EndFunc

When I run:

rplcstr("Hello worldl","l","lol")

It replaces all the "l" with "lol" so I get "Helollolo worloldlol" and I added the "l" at the end to make sure it replaced that properly. I hope that is helpful! I don't do much with the 89, so I am not used to the programming. I am not sure how optimised it is, but it does work.

---

Z80 Assembly>English>TI-BASIC>Python>French>C>0

Last edited on 17 Feb 2011 15:05 by Skwerlman Show more

Re: replacing strings

Qwerty_55 17 Feb 2011 06:08

Since this is in the 68K section, that'd be the most efficient way. If you want to do it for something like a game where you want the text to "print" like someone is typing it on a computer, then another way would be to step through and print each character in the string individually. If a certain character is detected, then simply print out the string instead of the lcharacter.

---

(∂²Ψ)/(∂x²) = -(2m(V(x)-E)Ψ/( ℏ²Ψ)

Re: replacing strings

Skwerlman 17 Feb 2011 15:09

I could do that, but I would have to hard-code everything, which can take a long time.

Re: replacing strings

Skwerlman 17 Feb 2011 14:53

Thank you very much! I'm using this as a routine in my port of DOS to 68k, so it will be very helpful!

Re: replacing strings

Xeda Elnara 17 Feb 2011 16:15

Oh, that's cool! Yeah, I only know a few random things about 68k programming and this happened to be one of them. I've never made a routine like this before, so I am glad I got to stretch my brain a little :)

---

Z80 Assembly>English>TI-BASIC>Python>French>C>0