VBScript/ASP Functions 1

[fergiepl]

I am trying to build a simple find/replace code. I can not seem to subtract with the LEFT or RIGHT or MID functions. Can someone please help with the syntax? Thank you

<%

Dim InputPhrase, FindChar, ReplaceChar, PhraseLength,

NewPhrase,PartA,PartB,founda

InputPhrase=Request.Form(&quot;Phrase&quot
FindChar=Request.Form(&quot;FindMe&quot
ReplaceChar=Request.Form(&quot;ReplaceMe&quot
Phraselength=len(InputPhrase)
newphrase=inputphrase

For varCounter=1 to PhraseLength
founda=InStr(NewPhrase,FindChar)
<!--PartA is the string before the found character-->
PartA = Left(newphrase,founda-1)
<!--PartB is the remaining string-->
PartB = Right(newPhrase,4)
<!--Rebuild string and trim out space before next loop-->
NewPhrase = trim(parta) &Trim(ReplaceChar)&Trim(PartB)

Next

response.write NewPhrase

%>

 

[Discord]

Maybe I'm missing something but why not just use the Replace method?

 

[fergiepl]

I can not use the Replace function. I must use the Functions.

 

[Discord]

	For varCounter=1 to PhraseLength
		founda=InStr(NewPhrase,FindChar)
		if founda <> 0 Then
			'PartA is the string before the found character
			PartA = Left(newphrase,founda-1)
			'PartB is the remaining string
			PartB = Mid(NewPhrase,founda+1) 
			'Rebuild string and trim out space before next loop
			NewPhrase = trim(parta) &Trim(ReplaceChar)&Trim(PartB)
		end if
	Next

or

	founda = InStr(1,NewPhrase,FindChar)
	while (founda <> 0)
		'PartA is the string before the found character
		PartA = Left(newphrase,founda-1)
		'PartB is the remaining string
		PartB = Mid(NewPhrase,founda+1) 
		'Rebuild string and trim out space before next loop
		NewPhrase = trim(parta) &Trim(ReplaceChar)&Trim(PartB)
		founda=InStr(founda+1,NewPhrase,FindChar)
	wend

should work

 

[fergiepl]

Thank you! It is VERY much apprecited. It worked.