double backslash parse problem

[GoogleCodeExporter]

What steps will reproduce the problem?
I create an Test Case:

Sub parse_test7()

    Dim lib As New JSONLib
    Dim json As Object

    Set json = lib.parse("{""Path"":""C:\\sample\\sample.jpg""}")
    Debug.Assert Err.Number = 0

    Debug.Print lib.toString(json)

    Set json = Nothing
    Set lib = Nothing

End Sub

What is the expected output? What do you see instead?
expected:
{"Path":"C:\sample\sample.jpg"}
instead:
{"Path":"C:samplesample.jpg"}

What version of the product are you using? On what operating system?


Please provide any additional information below.

I manual fix by follow:
@@ -149,7 +147,10 @@
             index = index + 1
             char = Mid(str, index, 1)
             Select Case (char)
-            Case """", "\\", "/"
+            Case "\"
+                parseString = parseString & "\"
+                index = index + 1
+            Case """", "/", "'"
                 parseString = parseString & char
                 index = index + 1
             Case "b"

Original issue reported on code.google.com by [email protected] on 13 May 2010 at 6:33