Simple Function to Replace If Single code while FindFirst/Find encounted

by Raghuraja.C (12 Submissions)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 16^th June 2003
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Rate Simple Function to Replace If Single code while FindFirst/Find encounted




    Dim resultString As String
    Dim Index

    resultString = sString

    Index = InStr(resultString, "'")

    Do While Index > 0

        resultString = Left(resultString, Index) & "'" & _
        Mid(resultString, Index + 1)
        Index = InStr(Index + 2, resultString, "'")

    Loop

    QuoteSingleQuotes = resultString

End Function

Download this snippet Add to My Saved Code

Simple Function to Replace If Single code while FindFirst/Find encounted Comments

No comments have been posted about Simple Function to Replace If Single code while FindFirst/Find encounted. Why not be the first to post a comment about Simple Function to Replace If Single code while FindFirst/Find encounted.

Simple Function to Replace If Single code while FindFirst/Find encounted

Simple Function to Replace If Single code while FindFirst/Find encounted Comments

Post your comment

Difficulty