문자열을 JSON 형식으로 만들때 Escape

key = "kkk"
value = "vvv"
변수들을 JSON 형식
{key:value}
으로 만들때 특수문자 Escape

'// JSON Escape
Function json_escape(str)
	If isEmpty(str) Or isNull(str) Then Exit Function

	str = Trim(str)
	str = Replace(str, """", """)
	str = Replace(str, "'", "'")
	str = Replace(str, "\", "\\")
	str = Replace(str, Chr(13) & Chr(10), "\n")
	str = Replace(str, Chr(13), "\n")
	str = Replace(str, Chr(10), "\n")
	str = Replace(str, Chr(9), "\t")
	json_escape = str
End Function