How do I parse a string for " or ' ? 2

[riarc]

I need to parse a string to remove and quotes so I can insert the string into my DB. I want to write a Public Function that I can just pass a string. How can I do this?

 

[CasperTFG]

Here is your function

Public Function RemoveQuotes(ByRef strIn As String) As String
Dim i As Integer
Dim strPointer As String
Dim strOut As String

For i = 1 To Len(strIn)
strPointer = Mid(strIn, i, 1)
If strPointer = Chr$(34) Or strPointer = Chr$(39) Then
Else
strOut = strOut & strPointer
End If
Next i
RemoveQuotes = strOut
End Function
Craig, mailto:sander@cogeco.ca
"Procrastination is the art of keeping up with yesterday."
I hope my post was helpful!!!

 

[strongm]

And here (ineveitably) is the Regular Expressions version. You'll need to add a reference to the Microsoft VBScript Regular Expressions, then:
[tt]
Option Explicit

Public Function NoQuotes(strSource As String) As String
Dim re As RegExp

Set re = New RegExp

re.Global = True
re.Pattern = """|'"
NoQuotes = re.Replace(strSource, "&quot
End Function

 

[CodeFish]

It would be a lot simpler using:-

Public Function RemoveQuotes(ByRef strIn As String) As String

RemoveQuotes = Replace(strIn, Chr$(34), "&quot
RemoveQuotes = Replace(RemoveQuotes, Chr$(39), "&quot

End Function


Codefish

 

[riarc]

Thanks I will try them both to see what works best for my app.

 

[CasperTFG]

Nice Sample CodeFish... =D Craig, mailto:sander@cogeco.ca
"Procrastination is the art of keeping up with yesterday."
I hope my post was helpful!!!

 

[riarc]

That worked great CodeFish. Thanks you just saved me alot of time.