Stupido string questions..

[josku_x]

Hello!

I just cannot imagine that I cannot get the solution to this.. my problem is, I want to remove everything before a string in a string.

That is like:

Code: Select all

aftershave

to remove everything before "shave", to get this result:

Code: Select all

shave

and vice versa to remove everything after a string, like:

Code: Select all

aftershave

to remove everything after "after", so to get this result:

Code: Select all

after

RemoveString() is my friend, but I don't know how to use it in this situation, I also know there may be good use of Mid().

Thank you very very much, any hlep is really appreciated!

[e2robot]

Just replace with null string.....

Code: Select all

test$="aftershave"
test$=ReplaceString(test$,"after","")
Debug (test$)


test$="aftershave"
test$=ReplaceString(test$,"shave","")
Debug (test$)

[e2robot]

or using RemoveString

Code: Select all

test$="aftershave"
test$=RemoveString(test$, "after")
Debug (test$)


test$="aftershave"
test$=RemoveString(test$,"shave")
Debug (test$)

[josku_x]

A good solution, but if I want to remove everything before "shave" without knowing there is "after"?

[Trond]

Code: Select all

mystr.s = "aftershave"
pos = FindString(mystr, "shave", 0)
mystr = Mid(mystr, pos, Len("shave"))

[josku_x]

good one Trond! Thanks!

[josku_x]

but Trond, is there a way doing that same but without knowing the length of "shave"?

Thanks!

[okasvi]

Code: Select all

Procedure.s RemPartOfStr(Str.s, StrToLeave.s)
	Pos.l = FindString(Str, StrToLeave, 0)
	ProcedureReturn Mid(Str, Pos, Len(StrToLeave))
EndProcedure

Debug RemPartOfStr("AfterShave","Shave")

you need to know atleast what you want to leave...

[PB]

Here's how I'd do it:

> to remove everything before "shave"

Code: Select all

Procedure.s CropBefore(string$,what$)
  ProcedureReturn Mid(string$,FindString(string$,what$,1),99999)
EndProcedure

Debug CropBefore("aftershave","shave") ; Returns "shave"

> to remove everything after "after"

Code: Select all

Procedure.s CropAfter(string$,what$)
  ProcedureReturn Mid(string$,Len(what$)+FindString(string$,what$,1),99999)
EndProcedure

Debug CropAfter("aftershave","after") ; Returns "shave"

(@Fred: The above shows why Mid would be nice without having to specify
a length parameter... because right now we need to use something large
like 99999 to get the rest of the string).

[Trond]

(@Fred: The above shows why Mid would be nice without having to specify a length parameter... because right now we need to use something large like 99999 to get the rest of the string).

Or just drop Mid entirely.

Code: Select all

Procedure.s CropBeforeA(string.s, what.s) 
  ProcedureReturn PeekS(@string.s + FindString(string.s, what.s, 1)-1)
EndProcedure 

Procedure.s CropBefore(string.s, what.s) 
  ProcedureReturn Right(string.s, Len(string.s)-FindString(string.s, what.s, 1)+1)
EndProcedure 

Debug CropBeforeA("aftershave","shave") ; Returns "shave"
Debug CropBefore("aftershave","shave") ; Returns "shave"

[josku_x]

Thanks people!

Those are good answers.

(@Fred have you something to add to PB4 about this? )

[josku_x]

Trond do you have a CropAfter() procedure that doesn't need Mid()?

Thank you very very much and a merry christmas!

[Trond]

Code: Select all

Procedure.s CropAfterA(string.s, what.s) 
  ProcedureReturn RemoveString(string.s, what.s)
EndProcedure

Procedure.s CropAfterB(string.s, what.s) 
  ProcedureReturn PeekS(@string.s+Len(what.s))
EndProcedure 

Procedure.s CropAfterC(string.s, what.s) 
  ProcedureReturn Right(string.s, Len(string.s)-Len(what.s))
EndProcedure 


Debug CropAfterA("aftershave","after") ; Returns "shave"
Debug CropAfterB("aftershave","after") ; Returns "shave"
Debug CropAfterC("aftershave","after") ; Returns "shave"

[josku_x]

Thanks thanks!!

[PB]

Using RemoveString is flawed because it doesn't actually crop. Observe:

Code: Select all

Procedure.s CropAfterA(string.s, what.s)
  ProcedureReturn RemoveString(string.s, what.s)
EndProcedure

Debug CropAfterA("two lots of after in here aftershave","after")