Removing Double Quotes

[DugzDMan]

Does anyone know who I can remove all the double quotes in a string?

I know this is easy and I've done it some time ago (though not with the double quotes), but I can't find that project.

Thanks!

 

[rdavis]

Use the replace function

Replace(string, """", "&quot


Rob

 

[DugzDMan]

I was thinking about that, but doesn't it return the number of times the string would be replaced?

Thanks!

 

[rdavis]

No, actually it returns the new string, so it really should look like this:

newstring = Replace(string, """", "&quot


Rob

 

[DugzDMan]

OK, I've come up with this (just a quick blurb to get me out for the day), but I'd imagine there's a better way to do it.

Do Until InStr(1, strTempString, """") = 0
   If InStr(1, strTempString, """") = 1 Then
       strTempString = Right(strTempString, Len(strTempString) - 1)
   Else
       lQuotePos = InStr(1, strTempString, """")
       strTempString = Mid(strTempString, 1, lQuotePos - 1) & _
           Mid(strTempString, lQuotePos + 1, Len(strTempString) - lQuotePos)
   End If
Loop
[\code]

 

[DugzDMan]

Ah, I gotcha!

Thanks, that will work much better!!