Str2DB + Str2App + Str2HTML

Set of functions to clean and revise cleaning of string before saving into database.
Edit 2023-07-11: Adding safe IF to not do anything if string passed is null, avoiding error in Replace function.

CodeFunctionName
What is this?

Public

Tested

Original Work
Function Str2DB(sStr)
    RettT         = sStr
    If RettT > "" Then
    RettT         = Replace(RettT, vbCrLf, "")
    RettT         = Replace(RettT, vbCr, "")
    RettT         = Replace(RettT, vbLf, "")
    RettT         = Replace(RettT, "'", "'")
    RettT         = Replace(RettT, """", """)
    End If
    Str2DB         = RettT
End Function
Function Str2App(sStr)
    RettT         = sStr
    If RettT > "" Then
    RettT         = Replace(RettT, "", vbCrLf)
    RettT         = Replace(RettT, "", vbCr)
    RettT         = Replace(RettT, "", vbLf)
    RettT         = Replace(RettT, "'", "'")
    RettT         = Replace(RettT, """, """")
    End If
    Str2App     = RettT
    ' Str2App     = Trim(RettT)
End Function
Function Str2HTML(sStr)
    RettT         = sStr
    If RettT > "" Then
    RettT         = Replace(RettT, "", " <br/ >")
    RettT         = Replace(RettT, "", " <br/ >")
    RettT         = Replace(RettT, "", " <br/ >")
    ' RettT         = Replace(RettT, " <", "     <")
    'RettT = Replace(RettT, "'", "'")
    'RettT = Replace(RettT, """, """")
    End If
    Str2HTML     = RettT
End Function

sStr

Views 4,665

Downloads 1,444

CodeID
DB ID