/ Snippet Library - View Code

Snippet details

ID: 444

Viewed: 1320

Added: 2002-08-19

Version:

Snippets in this catagory
Show Printable Version

Removes Single Quotes from a given string

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 [clint.m.lafever@cpmx.saic.com] ' Purpose: Used to remove Single Quotes from a string ' Parameters: pstr=String with single quotes. ' Returns: String without single quotes ' Example: mstr=RemoveSquotesmstr '------------------------------------------------------------ Public Function RemoveSQuotes(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 RemoveSQuotes = pstr End Function

No Reviews to show