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.
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
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,680
Downloads 1,453
CodeID
DB ID
ANmarAmdeen
610
Revisions
v2.0
Tuesday
July
11
2023