Quote 변경 함수

' ######################################################################

' Function name : encQuote

' Parameter :

' value = 문자열

' Return : String

' Description : " To " / ' To '

' ######################################################################

Function encQuote(ByVal value)

If IsNull(value) Then value = ""

encQuote = Replace(Replace(value, "'", "'"), """", """)

End Function

' ######################################################################

' Function name : decQuote

' Parameter :

' value = 문자열

' Return : String

' Description : " To " / &#39 To ';

' ######################################################################

Function decQuote(ByVal value)

If IsNull(value) Then value = ""

decQuote = Replace(Replace(value, "'", "'"), """, """")

End Function