I tried using the replace function as shown below, but I receive an error on using “Next i”.
Function formatOutput( theText )Dim iDim sNewStringFor i = 1 to Len(theText) If Mid(theText, i, 1) <> "’" Then sNewString = sNewString & Mid(theText, i, 1) End IfNext iEnd Function
The error reads: “Expected end of statement”.If I take the i out, I receive a blank output which I’m assuming is because I’ve stopped the loop. What am I doing wrong?
As soon as I can get this working I’d like to try assigning two single quotes as the value of an extra variable to replace all single quotes with two.
The Replace function isn’t the issue…Next i is. VBScript does not list the variable following the Next keyword.
Simply remove the i so that the line is just Next, and you’re all set. I typically leave the variable following the Next keyword in a comment, like so:
Next ’ i
Otherwise, I get confused.