replace function

keyvanjan · May 14th, 2006, 02:07 PM

The follwing function works
function FixID(str)
    FixID = trim(replace(str, "'", ""))
end function
but when I add another fixID to repkace spaces like this
function FixID(str)
    FixID = trim(replace(str, "'", ""))
    FixID = trim(replace(str, " ", ""))
end function
only the first one works(replace ') but not the second one.
how should I change it so it replaces both!

bslintx2 · May 14th, 2006, 11:55 PM

that second function is trimming and replacing single quotes in the function argument str THEN it trims and replaces spaces of that versame argument that was passed. you need to do this to an assigned var...not the str on the second replace

Code:

<%
  Function FixID(str)
   FixID = TRIM(REPLACE(str, "'", ""))
   FixID = TRIM(REPLACE(FixID, " ", ""))
  End Function

  Response.Write FixID("four, score, and, seven, years, ago")
%>

bslintx2 · May 15th, 2006, 12:01 AM

ooops...the example was supposed to have quotes...not commas

Function FixID(str)
   FixID = TRIM(REPLACE(str, "'", ""))
   FixID = TRIM(REPLACE(FixID, " ", ""))
  End Function

  Response.Write FixID("four' score' and' seven' years' ago")

mat41 · May 15th, 2006, 12:57 AM

Another way to skin the same cat:

  Function FixID(str)
    FixID = ""
    on error resume next
    FixID = CStr(str)
    if (len(FixID) > 0) Then
      FixID = Replace(FixID, "'", "", 1, -1, 1)
      FixID = Replace(FixID, " ", "", 1, -1, 1)
    end if
  End Function

Wind is your friend
Matt