Sub Button2_Click
Dim xTemp As String
xTemp = "[{""text:"" : ""Text without line feed and control return "" }]"
test ( xTemp)
End Sub
Sub Button1_Click
Dim xTemp As String
xTemp = "[{""text:"" : ""Text with " & CRLF & "line feed and control return "" }]"
test ( xTemp)
End Sub
Sub test ( pText As String )
Dim json As JSONParser
Dim xList As List
Try
json.Initialize(pText)
xList = json.NextArray
Label1.Text = "Json OK"
Catch
Log(LastException)
Label1.Text = "Error"
End Try
End Sub