/ Snippet Library - View Code

Snippet details

ID: 446

Viewed: 1300

Added: 2002-08-19

Version:

Snippets in this catagory
Show Printable Version

Replaces all single quotes with ` instead.

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: Clint LaFever

Snippet By:	Clint LaFever
Declarations
Highlight Allnone
Code
Highlight All'------------------------------------------------------------ ' Author: Clint LaFever [lafeverc@home.com] ' Purpose: Used to replace Single Quotes in a string to ` instead. ' Parameters: pstr=String with single quotes. ' Returns: String without single quotes '------------------------------------------------------------ Public Function ReplaceSQuotes(pstr As String) As String On Error Resume Next Dim spos As Integer spos = InStr(pstr, "'") While spos <> 0 pstr = Left(pstr, spos - 1) & "`" & Right(pstr, Len(pstr) - spos) spos = InStr(pstr, "'") Wend ReplaceSQuotes = pstr End Function

No Reviews to show